Son Depremler (Tüm Platformlar için)

[Fesih ARSLAN]

Merhaba;
"Son Depremler" uygulamasıdır.
Uygulama verileri, Kandilli Rasathanesi ve Deprem Araştırma Enstitüsü (KRDAE)'nün web sayfasından anlık alır.
Uygulama sade bir ara yüze sahiptir. Kendi tasarım zevkinize göre yeniden düzenleyebilirsiniz.
Özellikleri

• KRDAE sayfa verilerinin Memo nesnesinde gösterilmesi.Liste Oluştur Butonu ile KRDAE sayfa verileri parse işlemine tabi tutularak ListView'da gösterilmektedir.Uygulama iOS, Android, MAc OS X ve Windows platformlarında stabil çalışmaktadır.

Android Platformu (Asus Zenfone 5) Ekran görüntüsü



Link
https://mega.nz/#!yRNX2YCK!qT0DOJr6IUc54...n6t2oQOSA8

Lisans: Kullanım ve geliştirme haklarının tümünü size devrediyorum. Adımı anmanız yeterlidir.
Hayırlı olsun...

[10.Köy]

Merhabalar. İnternette uzun uzun aradım sanırım bilgiler arasında kayboldum. Son depremler uygulamanız gerçekten tam amaca yönelik elinize sağlık ve kodları incelediğimde Idhttp kullanmışsınız.Mobilde webbrowser kullanarak parse işlemini yapmak istiyorum idhttp, https kullanan dropbox text dosyayı windowsta parse edememiştim. Webbrowser ile windows ortamında parse işlemini yapabiliyorum ancak  aşağıda ki bu kodla android için yapmak istediğimde hata alıyorum. Belki de Bsalsa komponenti için geçerli olan kodu webbrowser için mobilde kullandığımdan bu hatayı alıyorum. webbrowser ile  aradan sec fonksiyonu dahi widestring tanımlamasında aşağıda ki kod gibi  tanımsız hatasını verdi.

Kod: (Select All)

memo1.Text:=webbrowser1.OleObject.document.body.innerHTML;

 
Belki basit sorular soruyorum ama çok aradım nette artık sormasam ayıp ,  yardımcı olursanız çok memnun olurum, çalışmalarınızda kolaylıklar, başarılar.

[Tuğrul HELVACI]

(16-09-2016, Saat: 23:07)10.Köy Adlı Kullanıcıdan Alıntı: Merhabalar. İnternette uzun uzun aradım sanırım bilgiler arasında kayboldum. Son depremler uygulamanız gerçekten tam amaca yönelik elinize sağlık ve kodları incelediğimde Idhttp kullanmışsınız.Mobilde webbrowser kullanarak parse işlemini yapmak istiyorum idhttp, https kullanan dropbox text dosyayı windowsta parse edememiştim. Webbrowser ile windows ortamında parse işlemini yapabiliyorum ancak  aşağıda ki bu kodla android için yapmak istediğimde hata alıyorum. Belki de Bsalsa komponenti için geçerli olan kodu webbrowser için mobilde kullandığımdan bu hatayı alıyorum. webbrowser ile  aradan sec fonksiyonu dahi widestring tanımlamasında aşağıda ki kod gibi  tanımsız hatasını verdi.

Kod: (Select All)

memo1.Text:=webbrowser1.OleObject.document.body.innerHTML;

 
Belki basit sorular soruyorum ama çok aradım nette artık sormasam ayıp ,  yardımcı olursanız çok memnun olurum, çalışmalarınızda kolaylıklar, başarılar.

 Merhaba, Windows ortamlarında kullandığınız WebBrowser'ın DOM altyapısı Internet Explorer'a özel bir alt yapıdır ve tüm platformlarda varlığını devam ettirmesi gibi bir zorunluluk yoktur. Dolayısı ile DOM nesne modeline bina ederek ilerlemeniz tavsiye edilmez. En uygun yöntem parse etmektir. Ayrıca Delphi'de standart olarak AradanSec isimli bir metod yoktur. Yanılmıyorsam bu metod muharrem bey'in yazdığı bir metod. Dolayısı ile herkesin bu metodu bilmesi de söz konusu değildir

[10.Köy]

(16-09-2016, Saat: 23:28)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı:  Merhaba, Windows ortamlarında kullandığınız WebBrowser'ın DOM altyapısı Internet Explorer'a özel bir alt yapıdır ve tüm platformlarda varlığını devam ettirmesi gibi bir zorunluluk yoktur. Dolayısı ile DOM nesne modeline bina ederek ilerlemeniz tavsiye edilmez. En uygun yöntem parse etmektir. Ayrıca Delphi'de standart olarak AradanSec isimli bir metod yoktur. Yanılmıyorsam bu metod muharrem bey'in yazdığı bir metod. Dolayısı ile herkesin bu metodu bilmesi de söz konusu değildir

Cevapsız bırakmadiginiz için teşekkürler.  Wbbrowser ile parse mobilde şu an için yapılamıyor anladigim kadariyla cevabinizdan, idhttp ile parse yapmalıyım?  Idhttp ile https websitelerinden veri cekememistim o yüzden webbrowser kullanmak istemiştim. 

AradanSec fonksiyonu evet delphi ye ait değil ancak yabancı kaynaklarda dahi kullanıldığını gördüm bugün çoğu kişi artik yeni fonksiyon yazma gereği dahi  duymamis . Öyle olunca herkes bilir diye düşündüm . Webbrowser ile mobilde parse işlemi mümkün mü?

[Fesih ARSLAN]

Aslında parse ile WebBrowser'ın Html'ini almak farklı bir işlem. Sizin de belirttiğiniz gibi Firemonkey proje yapısındaki WebBrowser'ın Document özelliği olmadığından, innerHTML'i de doğrudan alınamıyor. Belki farklı metodlar ile alınabilir.
Parse işlemi; var olan bir metni işleyerek daha anlamlı ve anlaşılır hale dönüştürme işidir. Yani VCL'de yapılan parse işlemi ile FMX'te yapılan parse işlemi arasında hiç bir fark yoktur. Bunun için tüm proje tiplerinde Pos, Copy, Delete, Replace gibi ortak fonksiyonlar kullanılır.

[10.Köy]

Bahsettiğiniz ortak fonksiyonlara yogunlasayim Teşekkürler cevabınız için.

[Fesih ARSLAN]

(17-09-2016, Saat: 01:51)10.Köy Adlı Kullanıcıdan Alıntı: Bahsettiğiniz ortak fonksiyonlara yogunlasayim Teşekkürler cevabınız için.

Parse işlemine tabi tutacağınız html'i paylaşırsanız, parse konusunda da yardımcı olalım.

[10.Köy]

(17-09-2016, Saat: 02:55)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:

(17-09-2016, Saat: 01:51)10.Köy Adlı Kullanıcıdan Alıntı: Bahsettiğiniz ortak fonksiyonlara yogunlasayim Teşekkürler cevabınız için.

Parse işlemine tabi tutacağınız html'i paylaşırsanız, parse konusunda da yardımcı olalım.

Html dropboxa yüklü Text dosyası aslında . Memoya aktardigim her satır için örneğin değişken dini bayram günlerini degistirebilmeyi düşünmüştüm .

https://dl.dropboxusercontent.com/u/13343586/test.txt

[10.Köy]

Merhalar, Benim için uzun uğraşlar sonucu https ile webrowser olmadan Idhttp ile https site içeriğini memoya aktarabiliyorum. Olurda benim gibi sıkıntı yaşayanlar olur diye konu yorumlarının devamı olduğundan burada paylaşmak istedim. 

Uses
IdHttp, IdSSLOpenSSL

procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
 lHTTP: TIdHTTP;
begin
 lHTTP := TIdHTTP.Create(nil);
 try
   lHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
   lHTTP.HandleRedirects := True;
   s := lHTTP.Get('https://sunucunuz/Örnek.txt');  
   Memo1.Text := s;
 finally
   lHTTP.Free;
 end;
end;

Daha önce IdHttp ile Https protokolüne sahip sitelerden veri çekemiyordum. Bu şekilde çekebiliyorum. Ancak benim isteğim minimal projeler olduğundan dropbox'a yüklediğim text içeriği memoya html kod olmadan çektiğini gördüm ve benim işimi görüyor ancak facebook'ta vb sitelerde denediğimde tüm html kodları memoya aktardı, ayrıca kod ayıklamak gerekiyor. Umarım gün gelir bir arkadaşımın işine yarar.

[Fesih ARSLAN]

(18-09-2016, Saat: 18:33)10.Köy Adlı Kullanıcıdan Alıntı: Merhalar, Benim için uzun uğraşlar sonucu https ile webrowser olmadan Idhttp ile https site içeriğini memoya aktarabiliyorum. Olurda benim gibi sıkıntı yaşayanlar olur diye konu yorumlarının devamı olduğundan burada paylaşmak istedim.  

Güzel düşünceniz ve forma katkınızdan dolayı çok teşekkür ederim.