Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите как можно определить имя и IP адрес комп. [D6, Win2k]

diokant © (2003-05-15 17:25:00)
Я пробовал использовать GetHostName, но на некоторых машинах возвращает -1, а имя-пустое значение

diokant (2003-05-15 18:23:00) [1]
А так работает. А мое sizeof(nameKomp) нет.
Спасибо...
А что означает [0..$FF]?

Kryukov Andrew (2003-05-15 18:05:00) [2]
Написал Олег, найдено на этом сайте:
function GetIP:string;
var
WSAData : TWSAData;
p:PHostEnt;
Name:array [0..$FF] of Char;
err:integer;
begin
try
err:=WSAStartup($0101, WSAData);
if (err=0) then begin
GetHostName(name, $FF);
p := GetHostByName(Name);
result:=inet_ntoa(PInAddr(p.h_addr_list^)^)+" ["+strpas(name)+"]";
WSACleanup;
end else result:="No Networking";
except
result:="No IP?!";
WSACleanup;
end;
end;

Wonder (2003-05-15 17:59:00) [3]
Полный код давай.

diokant (2003-05-15 17:45:00) [4]
пробовал так:
ShowMessage("n error="+inttostr(gethostname(nameKomp,sizeof(nameKomp))));

ShowMessage("name="+nameKomp);

diokant (2003-05-15 17:42:00) [5]
на той машине где не получалось принес доработанную версию с выдачей сообщений...

Wonder (2003-05-15 17:39:00) [6]
Как именно пробовал?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »