for döngüsü

[ready4die]

s.a
arkadaşlar benim 1 listboxım var bu listboxtaki siteleri tek tek açtırıyorum ve açılan sayfalardaki kaynak kodlarından istediğim stringleri kontrol ettiriyorum.. fakat bu döngüdeki son sayıya göre işlem yapıyor kodu vereyim ;

procedure TForm1.Button1Click(Sender: TObject);
Var
i:integer;
begin
for i := 0 to listbox1.Items.count-1 do
Memo1.Text := idhttp1.Get(Listbox1.Items);
if pos('aranacak',Memo1.Text) = 0 then
Showmessage('aradığınız string bulunamadı')
Else
Showmessage('aradığınız string bulundu');
end;


burdan siteleri tek tek açtırıyorum fakat string bulunan siteyi nasıl gösterebilirim ? ve diyelim listboxta 5 tane site var
1. siteyi açıcak ve kontrolü yapıcak duruma göre mesaj verecek
2.yi açıcak kontrolü yapıcak duruma göre mesaj vercek
3.
4.
5.
böyle böyle listboxtak isiteleri tektek açıcak ve string olan siteyi bize gösterecek

ben bu yazdığım kodla denedim fakat çalıştıramadım.. son açılansiteye göre işlem yapıyor..
teşekkürler

[sadettinpolat]

1- lütfen forum kurallarını okuyalim
2- for dongusunun begin end i eksik.

[khanco]

1 Başlık forum kurallarına göre hatalı soruyu açık olarak ifade edebilmeli.
2 Delfinin hızı görüntüledğin bilgiden hızlı olduğu için kaçtane liste elemanı koyarsan koy bekletmediğin sürece sadece en sondaki siteyi incelersin. sitenin görüntülenmesi bitene kadar bekletmelisin.
3 bu kodla sitede sadece ana sayfaya bakabiliyorsun sanıyorum.(yanılıyor olabilirim)
4 @sadettinpolat belirttiği eksiklerinde var

[ready4die]

1 Başlık forum kurallarına göre hatalı soruyu açık olarak ifade edebilmeli.
2 Delfinin hızı görüntüledğin bilgiden hızlı olduğu için kaçtane liste elemanı koyarsan koy bekletmediğin sürece sadece en sondaki siteyi incelersin. sitenin görüntülenmesi bitene kadar bekletmelisin.
3 bu kodla sitede sadece ana sayfaya bakabiliyorsun sanıyorum.(yanılıyor olabilirim)
4 @sadettinpolat belirttiği eksiklerinde var

begin
end bloğunada koydum olmadı bekleterek deneyeceğim evet sadece sitenin anasayfasını çekiyorum deneyeceğim bu arada teşekkürler

[ready4die]

s.a

en son yazdığım kod ;

procedure TForm1.Button1Click(Sender: TObject);
Var
i:integer;
begin
For i := 0 To ListBox1.items.count-1 Do
Begin
Memo1.Text := IDHttp1.Get(Listbox1.Items);
Sleep(3000);
End;
if Pos('string',Memo1.Text) = 0 Then
ShowMessage('var')
Else
ShowMessage('yok');


fakat işlem aynen devam ediyor yani son siteye gelip mesajı veriyor sleep(5000) de yaptım olmadı

[khanco]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
 Var
i:integer;
begin
For i := 0 To ListBox1.items.count-1 Do

begin
Memo1.Text := IDHttp1.Get(Listbox1.Items[i]);
end ;

end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
 if Pos('aradığın string buraya gelecek',Memo1.Text) = 0 Then
ShowMessage('yok')
Else
ShowMessage('var');
// burayada görmek istersen istediğin sayıda karakterle label, edit, memo gibi bir bileşene yazdırabilirsin. 
end;

Bu değişiklikleri yaparsan gerekli beklemeyi yapıyor.

[Battosai]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
i:integer;
begin
For i := 0 To ListBox1.items.count-1 Do
Begin

Memo1.Text := IDHttp1.Get(Listbox1.Items[i]);

  if Pos('string',Memo1.Text) = 0 Then
  ShowMessage('var')
   Else 
   begin
    ShowMessage('yok');
     //exit;
  end;


End;

[ready4die]

Kodlar için teşekkürler işimi hallettim sayılır.yeni sorularla başınızı ağrıtmaya ve öğrenmeye tekrar gelicem:)