IdHTTP Error Code

[ready4die]

s.a
programımda idhttp componentiyle sitelerden veri çekiyorum fakat sitede link hatalı olduğu için( 404 hatası) program duruyor bu 404 hatasını nasıl aşabilirim ?

[Search]

Kod: Tümünü seç

try-except 

ile hatayı yakalamayı denedin mi?

[Battosai]

aşılmaz hatadır kendisi

[Search]

Aşılır mı Aşılmaz mı Orasını bilemem kodu gormeden de bi yorum yapamayacagım cok kez idhttp kullandım hiç bu hatayı almadım...

[ready4die]

Kodları Veriyorum ;

Kod: Tümünü seç

procedure TForm1.ButtonClick(Sender: TObject);
Var
Browser: TIdHTTP;
Begin
  Memo1.Text:='';
  Browser := TIdHTTP.Create(nil);
  Try
    For i := 0 to Listbox1.Items.Count-1 do
      Begin
        Memo1.Text := Browser.Get(Edit1.Text + Listbox1.Items.Strings[Listbox1.itemindex]);
      End;
  Finally
    Browser.Free;
  end;

Try Except Denedim Fakat Olmadı ya da Ben Yalnış Yaptım. mümkünse Yardım Lütfen

[Search]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
   Browser: TIdHTTP;
   i:integer;
Begin
         Memo1.Text:='';
         Browser := TIdHTTP.Create(nil);
    For i := 0 to Listbox1.Items.Count-1 do
Begin
    try
         Memo1.Text := Browser.Get(Edit1.Text + Listbox1.Items.Strings[listbox1.itemindex]);
    except
         ShowMessage(listbox1.items.strings[listbox1.itemindex]+'Adresi bulunamadı');
    end;
       End;
          Browser.Free;
            end ;
               end.

Şeklinde dene bi istersen...
editi kullanmandaki maksadı anlayamadım...
Eger donguyle siteleri sıra ile get edeceksen [listbox1.itemindex] yerine yazmalısın

[ready4die]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
   Browser: TIdHTTP;
   i:integer;
Begin
         Memo1.Text:='';
         Browser := TIdHTTP.Create(nil);
    For i := 0 to Listbox1.Items.Count-1 do
Begin
    try
         Memo1.Text := Browser.Get(Edit1.Text + Listbox1.Items.Strings[listbox1.itemindex]);
    except
         ShowMessage(listbox1.items.strings[listbox1.itemindex]+'Adresi bulunamadı');
    end;
       End;
          Browser.Free;
            end ;
               end.

Şeklinde dene bi istersen...
editi kullanmandaki maksadı anlayamadım...
Eger donguyle siteleri sıra ile get edeceksen [listbox1.itemindex] yerine yazmalısın

kod için teşekkürler fakat derlemede sorun çıkardı
'.' expected but ';' found diyor ve kodun neresinde olduğunu çözemedim

[khanco]

end lerden biri fazla olmalı. kopyalarken kendi koyduğu end silinmemiştir. end sayısı 3 yerine 4 görünüyor.

[ready4die]

Sildim Ama Olmadı:S

[khanco]

Bu haliyle çalışıyor. yalnız adresler geçerli olmalı geçersiz adreste host bulunamadı hatası veriyor.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
   Browser: TIdHTTP;
   i:integer;
Begin
         Memo1.Text:='';
         Browser := TIdHTTP.Create(nil);
    For i := 0 to Listbox1.Items.Count-1 do
Begin
    try
         Memo1.Text := Browser.Get(Edit1.Text + Listbox1.Items.Strings[i]);
    except
         ShowMessage(listbox1.items.strings[listbox1.itemindex]+'Adresi bulunamadı');
    end;
       End;
          Browser.Free;


end;

[listbox1.itemindex] yerine kullandım.

[Search]

Arkadasım kod hata mı veriyor yoksa showmessage nin mesajınımı veriyor ama sen illa ben adrese ulasamayınca hiçbir hata vermesin diyorsan o zaman

Kod: Tümünü seç

except-end;

arasındaki showmessage blogunu sil sana hiçbir hata vermez olanları getirir olmayanlarda ise hiçbir hata vermez ...
kolay gelsin...