Thema: Delphi IdHttp und proxy

Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#12

Re: IdHttp und proxy

  Alt 30. Okt 2008, 22:33
Delphi-Quellcode:
var
   szTmp1,szTmp2 : String;
begin
   IdHTTP1.Request.ProxyServer := '213.4.106.85';
   IdHTTP1.Request.ProxyPort := 8080;
   szTmp1 := IdHTTP1.Get('http://2host.de/');
   szTmp1 := Copy(szTmp1, Pos('<BIG>[B]',szTmp1)+8,40);
   szTmp1 := Copy(szTmp1, 1, Pos('[/B]',szTmp1)-1);

   IdHTTP1.Request.ProxyServer := '';
   IdHTTP1.Request.ProxyPort := 0;
   szTmp2 := IdHTTP1.Get('http://2host.de/');
   szTmp2 := Copy(szTmp2, Pos('<BIG>[B]',szTmp2)+8,40);
   szTmp2 := Copy(szTmp2, 1, Pos('[/B]',szTmp2)-1);
   memo1.lines.text := 'Deine IP ohne Proxy: ' + szTmp1 + #13#10+
                       'Deine IP mit Proxy: ' + szTmp2;
end;
Das funktioniert... Zeigt dir auch die IPs an

[EDIT]
Hab grade festgestellt, dass ich hier nur Indy 8.xx installiert hab... Sorry
[/EDIT]
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat