Aktuele (I-net) IP anzeigen

[Klaus01]

..oder wenn Du die Indys installierst hast -> idIPWatch

.. habe gerade gemerkt, dass dies Dir nicht viel weiterhelfen wird, sorry.

Delphi-Quellcode:

function GetIPString : string;
var
  RespText  : string;
  YourIPPos : integer;
  CopyLoop  : integer;
  IPText    : string;
  IDHTTP    : TIdHTTP;
begin
  IPText := '';
  IDHTTP := TIdHTTP.Create(nil);
  try
    // Need to set up proxy here if you're using one ...
    RespText := IDHTTP.Get('http://www.whatismyip.com/');
    YourIPPos := Pos('Your IP is ', RespText);
    for CopyLoop := YourIPPos + strlen('Your IP is ') to length(RespText) do
    begin
      if not (RespText[CopyLoop] in ['0'..'9', '.']) then break;
      IPText := IPText + RespText[CopyLoop];
    end;
  finally
    IDHTTP.Free;
  end;

  Result := IPText;
end;

Basierend auf den Vorschlag von Balu der Bär.

Grüße
Klaus