whatsapp mesajlari Delphi ile okumak.

[Mikro Step]

PC de telefonumla senkronize olacak sekilde Whatsappi internet gezgini uzerinde acacagim.

whatsapp grubuma uye olanlar mesaj attiginda Delphi programim gelen mesaji okuyacak.

Bu isi nasil yaparim?

 

[frekans50]

Delphi programı whatsap web sayfasını gösterecek ve içeriği okuyacak şekilde yapılırsa yeterli olacaktır.
Chromium APi gibi araçlar var.

Daha da iyisi Whatsap Api diye bir şey kullanabilirsiniz.

 

[Mikro Step]

Delphinin webbrowser komponenti ile whatsapp sayfasini actigimda whatsapp server bu tarayiciyi begenmedi.

Uzerine kodlarimi yazip gelistirmek icin Iskelet gorevi gorecek ornek bir uygulama yokmu?

 

[Mikro Step]

Akilli bidik python ile bir seyler yapacak gibi gorunuyor.

Delphi ile whatsapp arasina bir araci koyacak. Sanirim olacak bu is.

 

[frmman]

Delphi 10.2 den önceki sürümlerdeki Twebbrowser eski ieexplorer tabanlı çalışıyor. Sonraki sürümlerde edge (chromium) desteği geldi. D7 kullanıyorsanız 3. parti bir component yoksa dahili komponent ile sanırım bu işi yapamayacaksınız.

 

[Mikro Step]

Akilli bidik ile bayagi bir yol actik fakat yaptiklarimiz hic hosuma gitmedi.

Kendi bildigim yolla ilerleyecegim. (Ekran fotosunu cek programa mouse ile tiklat)

Simdi whatsappda ilgilendigim gruba gelen yazilari select all ile secip ctrl C ile aliyorum Note pad icine ctrl V yaptigimda hic bir sey gelmiyor. Copy paste islemini engellemisler.

Select all degil de mesaji bulup secip ctrl C ctrl V yaparsam oluyor.

Tum mesajlari secip ctrl V ctrl C yapabilseydim bu is cok kolay olacakti.

Basit bir yerde takildim kaldim.

 

[clc]

Akilli bidik ile bayagi bir yol actik fakat yaptiklarimiz hic hosuma gitmedi.

Kendi bildigim yolla ilerleyecegim. (Ekran fotosunu cek programa mouse ile tiklat)

Simdi whatsappda ilgilendigim gruba gelen yazilari select all ile secip ctrl C ile aliyorum Note pad icine ctrl V yaptigimda hic bir sey gelmiyor. Copy paste islemini engellemisler.

Select all degil de mesaji bulup secip ctrl C ctrl V yaparsam oluyor.

Tum mesajlari secip ctrl V ctrl C yapabilseydim bu is cok kolay olacakti.

Basit bir yerde takildim kaldim.

Mesajları wp içerisinde seçerseniz kopyalayabiliyorsunuz. Android için mesaja biraz uzun basın rengi biraz değişecek fark edersiniz sonra diğerlerini seçip kopyalayın, gönderen tarih saat ve mesaj formatında gelir. Aynısını web için de yapabiliyorsunuz mouse kullanarak ama prosedür ezberimde değil

 

[frmman]

Aşağıdaki testleri macos üzerinde yaptım. Şu an için windowsda deneme imkanım yok.

Firefox üzerinden web whatsap açıkken dahil olduğum grupdaki mesajları

• Fare ile ilgili kısmı şeçerek
• Fare ile metnin bir kısmını seçip sağ tıklayarak açılan popup menüden hepsini seç diyerek
• Klavyeden commad+A ile metnin hepsini seçip kopyalayabiliyorum. Text editöre yapıştırabiliyorum

Ayrıca whatsapın kendi uygulamasıda kurulu

• Burada sadece fare ile seçtiğim kısmı sağ tıklayıp kopyalayabiliyorum
• Hepsini seçme seçeneği burada yok.

 

[Mikro Step]

Evet mesajlardan birinin ustunde bir yeri mouse ile tiklayip, tikli halde en alta kadar indirip ctrl C yapinca kapyaliyormus. Hic yoktan iyidir.

Her defasinda en tepeye cikip en tepeden itibaren en asagiya kadar yazilmis tum mesajlari kopyalayip delphide memoedit gibi bir nesneye yapistirmam gerekecek. Boylece en son yazilmis mesajlari aratip buldurayim.

Fakat en tepeye cikmak icin de iyi bir kod yazmak gerekecek. Scrollbar cok fazla mesaj birikmis whatsapp sayfasinda sikintili.

 

[frmman]

D12 Tedgebrowser denemesi.

Kullanılan Embarcadero resmi sample projesi.

Bu örneğe ve diğer örneklere aşağıdaki linkden ulaşabilirsiniz.

Sonrası size kalmış.

RADStudio12Demos/Object Pascal/VCL/WebBrowser/Edge at main · Embarcadero/RADStudio12Demos

Delphi and C++Builder Demos for Embarcadero RAD Studio version 12 - Embarcadero/RADStudio12Demos

github.com

 

[frmman]

Yukarıdaki mesaja ilave

32bit veya 64bit hangi tipde derliyorsanız ona göre derlenmiş WebView2Loader.dll i exe ile aynı yere koyun.

Microsoft.Web.WebView2 i aşağıdaki linkden indirebilirsiniz.

SDK Sayfası: https://www.nuget.org/packages/Microsoft.Web.WebView2

Doğrudan indirme Linki: https://www.nuget.org/api/v2/package/Microsoft.Web.WebView2/1.0.3296.44

indirilen dosya uzantısı microsoft.web.webview2.1.0.3296.44.nupkg
nupkg şeklinde. Bunu ZIP yapıp arşivi açın. İçinden size uygun olan dlli çıkartıp yukarıda tarif edildiği gibi kullanın.

​