"Internet IP" herausfinden

[Surrounder]

DynDns bietet so einen Dienst, hier ein Beispiel mit der Indy Komponente

Delphi-Quellcode:

procedure TForm1.BtnGetProviderIPClick(Sender: TObject);
var
  IPSTR, HP: string;
  BeginIP, EndIP, i: integer;
begin
  BtnGetProviderIP.Enabled := False;
  HP := 'http://checkip.dyndns.org/';

  IdHTTP1.ProxyParams.ProxyServer := EdtProxyIP.Text;
  IdHTTP1.ProxyParams.ProxyPort := StrToInt( EdtProxyPort.Text );
  IPSTR := IdHTTP1.Get(HP);

  BeginIP := Pos('Current IP Address:', IPSTR) + Length('Current IP Address:');
  EndIP := Pos('</body>', IPSTR);

  ip := '';
  for i := BeginIP + 1 to ENDip - 1 do
  begin
    IP := IP + IPstr[i];
  end;
  EdtProviderIP.Text := ip;
  BtnGetProviderIP.Enabled := True;
end;