Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c