Как узнать свой IP в локальной сети ?

[adaptive person]

Просто мне нужно узнать IP адрес компьютера в локальной сети и вывести его на форму ? Нужно определить именно IP в локальной сети (типа 192.168.x.x). Как это сделать в delphi ?

[Stilet]

http://delphiworld.narod.ru/_all_articles_.html
Раздел TCP/IP - [22]
В частности: http://delphiworld.narod.ru/base/get_own_ip.html

[Аватар]

И так

function sqIPAdress: String;
var IdIPWatch: TIdIPWatch;
begin
  IdIPWatch:=TIdIPWatch.Create(nil);
  Result:=IdIPWatch.LocalIP;
  IdIPWatch.Free;
end;

[adaptive person]

Сообщение от аватар

И так
Код:

function sqIPAdress: String;
var IdIPWatch: TIdIPWatch;
begin
IdIPWatch:=TIdIPWatch.Create(nil);
Result:=IdIPWatch.LocalIP;
IdIPWatch.Free;
end;

Компилятор ругается на TIdIPWatch . Как это можно исправить ?

[Stilet]

Это компонент из вкладки INDI. Просто кинь его на форму.