tidhttp kullanımı ve proxy server tanımı

[kazimates]

yapmak istediğim sadece http://www.tcmb.gov.tr/kurlar/today.html adresininin içindekilerini alıp memo1 in içerisinde göstermek fakat bunu yapabilmem için proxy serveri ve username password ü sanırım bir türlü geçemiyorum bununla ilgili olarak kod konusunda yardımcı olabilirmisiniz.

Kod: Tümünü seç

  URL  := 'http://www.tcmb.gov.tr/kurlar/today.html';
  Gelen := kurindir.Get( URL );
  memo1.Text:=gelen;

vergidiği hata ise Project kurlar1.exe raised exception class eidsocketerror with message 'socket error #11001 host not found'. process stopped. use step or run to continue.

[drony]

Öncelikle kullandığın proxy serverın güncel olduğundan yani çalışır olduğundan emin misin?

güncel proxyler..
http://freeproxy.ch/proxy.txt

sonra tekrar bilgi ver.

[kazimates]

aşağıdaki kodla yerel ağdaki bir serverden sayfayı alıyorum

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Http: TIdHttp;
begin
  Http := TIdHttp.Create(Self);
  http.Request.Clear;
  try
    Memo1.Lines.Text := Http.Get('http://ada');
  finally
    Http.Free;
  end;
end;

fakat http.get('herhangi bir web sayfası');

dediğimdeki bu yerel ağ haricinde yani isa ve proxyden geçiyor portuda 8080 den çıkması lazım o zaman verilen hata ise şu şekilde

Projext kurtest_project1.exe raised exception class EIDSocketError with message 'Socket error # 11004'. Process stopped. use step or run to continue.

[kazimates]

http://www.torry.net/pages.php?id=215 adresinden ALWinInetHTTPClient1 component paketini download ettim ve muhteşem birşey sadece hedef adresi yazdım ve karşıma hemen geldi ne proxy istedi nede başka bir ayar muhteşem bir şey. indy ye olum ALWinInetHTTPClient1 e çok yaşa.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Http: TIdHttp;
begin
{  Http := TIdHttp.Create(Self);
  http.Request.Clear;
  try
    Memo1.Lines.Text := Http.Get('http://www.google.com.tr');
  finally
    Http.Free;
  end;
end;
}

   Memo1.Lines.Text :=ALWinInetHTTPClient1.Get('http://www.google.com.tr');
end;
end.