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

	ExcelFile Viewer
	Viewer for MS Outlook Messages
	Paradox to Text converter
	dBase Viewer
	ABA Spreadsheet Convert
	DBExport tools
	DBLoad
	DBISAM Viewer
	SMMsg suite
	Excel Reader (dll)


	Contact to webmaster