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

Вниз

IP адрес   Найти похожие ветки 

← →
Monak   (2003-02-28 23:40) [0]

Скромный вопрос - КАК УЗНАТЬ IP АДРЕС КОМПА????? Для всех версий Windows?

---

← →
Rouse_ ©   (2003-03-02 18:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
var WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
while (p.h_addr_list^ <> nil) do begin
memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^));
inc(p.h_addr_list);
end;
WSACleanup;
end;

Желаю успехов

---

← →
Beglec ©   (2003-03-09 21:42) [2]

а без этой библиотечки можно обойтись IdWinsock.pas

---

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

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

Наверх

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