Başlangıç > Kodlar > Delphi.Net ile Internetten veri çekmek

Delphi.Net ile Internetten veri çekmek

Forumda genelde nasıl döviz kuru alırım, dış IP mi nasıl bulurum gibi sorular mevcut Aşağıdaki örnekde internet sayfalarından bilgi okuyarak aldığınız bilgileri değişkenlere aktarımı örnekleri var ilki TC Merkez bankasının sayfasından Dolar ve Euro kurları alıyor, ikincisi ise yine başka bir siteden sizin interneta çıktığınız IP yi alıyor.
Tabii bu yöntemle bilgi alırken dikkaet etmeniz gereken şey sayfalardaki bilgileirn sabit yerlerde olmasıdır copy komutu ile sayfadaki bilgiyi copy(sayfa,145,15)  şeklindedir

sayfa = indy TidHTTP nin siteden okuduğu sayfanın
aktarıldığı değişken

145 = 145 . karakterden itibaren 15 karakter oku şeklindedir.

Çok dikkat etmeniz gereken şey ise internet sayfasından okunan bilginin internette gözüktüğü arayüzden değil değil KAYNAĞI GÖRÜNTÜLE de html kodları ile çıkan text leride opkduğunu unutmayın. Doğru koordinatı bulmak için sayfanın kaynağını görüntüleyip başlayacağnız noktaya kadar kaç karakter olduğunu saymaktır.

Bu yöntemi kullanarak internetten değişik işlemler yapmanız mümkündür. Hatta kafayı yorarsanız ve kendinizin yönettiği bir internet sitenizde varsa, Programınızın internetten talimatlar alarak değişik yordamara dallanmasını sağlayabilirsiniz,yedek al,IP numaranı bana maille,kapan,dosya bakımına gir,kilitlen ve hiç çalışma gibi işlmeleri yaptırmanız mümkündür.
Kısacası programınız sizden emirler alarak çalışmasını sağlayarak uzaktan yönetmek mümkündür. İllaki trojan yazamanız gerekmez ( sanki trojan olmadı bu yöntemler )

İlk Örneğimiz Merkez bankasından Kur okuma

Formunuza Indy bileşenlerinden Bir TidHTTP bileşeni koyun ve adını KUROKU olarak değiştirin. Sonra forma 1 buton ve 4 tanede label ekleyin butona çifttıklayarak aşaığdaki kodu oraya yazın. Bu örnekde merkezin günlük kur sayfasından bilgi okunuyor

( Not: kodlar Delphi 2005 de yazılmıştır ama Indy olan her versionda çalışır diye tahmin ediyorum. )

procedure TForm1.Button1Click(Sender: TObject);
var
DolarAlis,DolarSatis,EuroAlis,EuroSatis,merkezbankasisite:String;
begin

try
Merkezbankasisite:=kuroku.Get('http://www.tcmb.gov.tr/kurlar/today.html');
except
ShowMessage('Üzgünüm Merkez Bankasına Bağalanamadım.');
exit;
end;

Dolaralis:=Trim(  copy( Merkezbankasisite,810,6) );
DolarSatis:=Trim(  copy( Merkezbankasisite,823,6) );

EuroAlis:=Trim(  copy( Merkezbankasisite,1083,6) );
EuroSatis:=Trim(  copy( Merkezbankasisite,1096,6) );

Label1.Caption:='Dolar Alış  : '+DolarAlis;
Label2.Caption:='Dolar Satış : '+DolarSatis;

Label3.Caption:='Euro Alış   : '+EuroAlis;
Label4.Caption:='Euro Satış  : '+euroSatis;

end;

İkinci Örnek Internet IP nizi Bulma:

Yeni Indy den TidHTTP yi formunuza koyun ve adını IPAL olarak değiştirin ve aşağıdaki kodu yazın işlme tamamdır.
Bu örnekde okunacak stringin başlama ve boyunu yazmadım onuda siz bulursunuz artık.

Label1.Caption:=copy(  ipal.Get('http://www.krahosting.com/ip/'),xx,yy) ;

Salih GÜÇLÜ


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: