Форум: "Сети";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.025 c