Internetten Bilgi Okuma?

[umutcanster]

arkadaşlar benim bildigim kadarıyla
copy(sayfa,125,11)
gibi kodla okutabiliyoruz idhttp kullanarak...
fakat bu kodla ancak 125 satırdan 11 karakter oku anlamı cıkıyor

biz bunu 125 satırın hepsini okuyu nasıl yaparız?
copy(sayfa,125,null) gibimi diyecegim fakat saçma oldu..

[mkysoft]

Satırları bu şekilde okuyamazsınız. Çünkü sayfa değişkeniniz size html kodlarını verir. Html kodlarını temizlemelisiniz. Sayfanın içeriği sabitse işiniz kolay, karakter sayısını sayararak bulabilirsiniz. Sayfa içeriği değişken ise, size sabit bir yer gösterecek bir html kodu yada başlık metnini pos komutuyla bularak oradan sayma işlemini yapmalısınız.

[umutcanster]

yok html kodu yok normal "notepad" ile oluşturulmuş bir yazı....rica edersem örnek kod verebilir misiniz... mesela "oku.txt" böyle olacak;

"hosgeldiniz....
xxxsoft müsteri takip programına
ip adresiniz : xxxxx.xxxx"

buradaki "ip adresiniz" satırını okutmak istiyorum... yani herhangi bir html kodu olmayacak basit bir txt oluşturulacak..

[conari]

INI file okuma diye aratsan o kadar çok sayfa varki.

[mkysoft]

Ini file ile okuyabilmek için stream kullanmalısın yada dosyayı kaydetmelisin öncelikle. Bence gerek yok. Copy komutunu neden kullanmıyorsunuz anlamadım. Onunla yapabilirsiniz. #13#10 kodunu aratırsanız bu satır sonu işaretidir. 2. bu işaretten sonraki metni alacaksınız. copy fonksiyonun kullanımına bir bakın.

[umutcanster]

her ne kadar anladım desemde yalan olur...Rica etsem örnek gösterseniz....

[umutcanster]

bilgi vereN?

[CiTiZEN]

sitede ntv de ki döviz kurlarını almak için bi kod parçası vardı belki işinizi görebilir.

[aslangeri]

@umutcanster;
"Copy" ve "Pos" komutlarını araştır.
pos ile belirgin bir metin bloğunun konumunu bulacaksın bulduğun bu konuma göre copy komutunu kullanacaksın.
kolay gelsin.

[emin_as]

Aşagıdaki kod işini görür.
Ama dikkat et, bu kod bilgileri satir satir okur. Satır sonu için #10 #13 gibi özel karakterlerin olması gerekir.

Kod: Tümünü seç

var
  strlst : TStringlist;
  ipstr  : string;
  ....
begin
  strlst:=TStringlist.Create;
   .....
  strlst.text:=idHttp.Request ....
  //  memo1.lines.text:=strlst.text;  bu şekilde bilgileri direk bir memo da da görebilirsin
  if strlst.count > 3 then
   ipstr:=strlst[2];  // 0 dan başlıyor 2 inci satir 3.satir demek
 ...
  strlst.Free;
end;