Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#37: How to get your local IP?

Using the next code you can read a local IP address

function TForm1.LocalIP: string;
type
   TaPInAddr = array [0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
var
    phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: array [0..63] of char;
    i: Integer;
    GInitData: TWSADATA;
begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    i := 0;
    while pptr^[i] <> nil do
    begin
      result:=StrPas(inet_ntoa(pptr^[i]^));
      Inc(i);
    end;
    WSACleanup;
end;

Published: November 2, 1999

See also

	Paradox Password Recovery
	Viewer for TNEF-files (winmail.dat)
	Excel Reader (dll)
	MAPIMail
	ABA Picture Convert
	ABA Spreadsheet Convert
	Protected Storage Viewer
	Fast Document Viewer
	Mail parser (ActiveX)
	Excel Web-stream

Contact to webmaster