Need to edge out the competition for your dream job? Train for certifications today.
function LocalIp: string;
var IPW: TIdIPWatch;
Result := '127.0.0.1';
IpW := TIdIPWatch.Create(nil);
if IpW.LocalIP <> '' then
Result := IpW.LocalIP;
Open in new window
function LocalIP: string;
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
Buffer: array [0..63] of Ansichar;
Result := '';
phe := GetHostByName(Buffer);
if phe = nil then
pptr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pptr^[i] <> nil do
Result := StrPas(inet_ntoa(pptr^[i]^));
procedure TForm1.Button1Click(Sender: TObject);
Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.