Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

как узнать 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]

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


 
opexspb ©   (2003-08-31 23:39) [4]

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;


 
opexspb ©   (2003-08-31 23:42) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
3-89136
Inkotex
2003-10-07 18:25
2003.10.27
Blob поля


1-89322
romeo
2003-10-16 16:47
2003.10.27
Delphi не знает функцию


14-89546
ИМХО
2003-10-07 22:47
2003.10.27
Приобрести компакт-диски с музыкой


14-89548
J.C. code
2003-10-07 19:43
2003.10.27
Не компилится


14-89530
cgt
2003-09-29 20:34
2003.10.27
НАРОД!!!ОБЪЕДИНЯЕМСЯ