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

	SMReport
	ExcelFile Viewer
	Paradox ActiveX
	SMExport suite
	ABA Picture Convert
	Database Information Manager
	Viewer for TNEF-files (winmail.dat)
	Paradox to MS Access converter
	DBLoad
	Paradox to Text converter

Contact to webmaster