как узнать IP адрес ?

← →
shark © (2003-08-29 10:37) [0]

вот например ктонить запускает прогу на своём компе , а она ему ево IP адрес выводит.
Вопрос: как зделать такую прогу ?

← →
Jeer © (2003-08-29 10:49) [1]

NуMыHейTуTиPи1.LыocalIйPук

← →
shark © (2003-08-29 10:54) [2]

??? =(

← →
Jeer © (2003-08-29 11:20) [3]

Как спросил, так и ответили.
Ответ, кстати, работающий:))

procedure TForm1.Button1Click(Sender: TObject);
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);

//Получаем имя локального компьютера (хоста)
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
//Вывести адрес
TEdit(FindComponent("Edit"+IntToStr(i+1))).Text:=inet_ntoa(pptr^[I]^);
Inc(I);
end;

//Закрываем сокет
WSACleanup;
end;

Выдаст все IP, т.е. если есть локалка и глобальня сети, то их будет два.

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