IP Adresse der aktuell angezeigten Seite vom TWebBrowser

[x000x]

Moin moin,

ob und wie es mit TWebBrowser funktioiert kann ich dir auch nicht sagen...
Da dir aber die adresse (URL) bekannt ist ein alternativer Vorschlag:

Delphi-Quellcode:

uses WinSock;

...

function GetIpFromName(sHostName: String; out sIPAddr, sWSAError: String): Boolean;
var HEnt    : pHostEnt;
    WSAData : TWSAData;
    iCnt    : Integer;
begin
   Result := False;
   if WSAStartup($0101, WSAData) <> 0 then begin
      sWSAError := 'WSAStartup error';
      Exit;
   end;
   try
      sIPAddr   := '';
      sWSAError := '';
      HEnt := GetHostByName(@sHostName[1]);
      if Assigned(HEnt) then begin
         Result := True;
         for iCnt := 0 to HEnt^.h_length - 1 do
             sIPAddr := sIPAddr + IntToStr(Ord(HEnt^.h_addr_list^[iCnt])) + '.';
         SetLength(sIPAddr, Length(sIPAddr) - 1);
      end else begin
         case WSAGetLastError of
            WSAEFAULT        : sWSAError := 'WSAEFault';
            WSANOTINITIALISED: sWSAError := 'WSANotInitialised';
            WSAENETDOWN      : sWSAError := 'WSAENetDown';
            WSAHOST_NOT_FOUND: sWSAError := 'WSAHostNotFound';
            WSATRY_AGAIN     : sWSAError := 'WSATryAgain';
            WSANO_RECOVERY   : sWSAError := 'WSANoRecovery';
            WSANO_DATA        : sWSAError := 'WSANoData';
            WSAEINPROGRESS   : sWSAError := 'WSAEInProgress';
         end;
      end;
   finally
      WSACleanup;
   end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var szStr, szError : String;
begin
   if GetIpFromName('www.delphipraxis.de', szStr, szError) then
      ShowMessage(szStr +#13#10+ szError)
   else
      ShowMessage(szError);
end;