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

← →
CRACKISH © (2003-03-12 08:18) [0]

Люди задаю вам старый вопрос, как узнать свой ip адрес в инете (не локальный)???
Знаю что этот вопрос есть в дайджестах, но код не идет у меня!!!!!

← →
nikb (2003-03-12 09:42) [1]

{ Функция для определения IP и имени компьютера: (нашел на сайте "Мастера Delphi")
Не забудь подключить модуль winsock.
Клиент определяет имя компьютера и передает параметром метода строку (либо еще как) серверу.
Oleg Gashev © (08.12.01 22:21){}
{}function Get_IP_Host_Str: string;
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
err :integer;
begin
try
err:=WSAStartup($0101, WSAData);
if (err=0) then begin
GetHostName(name, $FF);
p := GetHostByName(Name);
Result:=inet_ntoa(PInAddr(p.h_addr_list^)^)+" ["+strpas(name)+"]";
WSACleanup;
end else begin
Result:="No Networking";
end;
except
Result:="No IP?!";
WSACleanup;
end;
end;

Спасибо!!!!!!

Как узнать свой IP? Найти похожие ветки