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]