Форум: "Сети";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
ВнизПодскажите как можно определить имя и IP адрес комп. Найти похожие ветки
← →
diokant (2003-05-15 17:25) [0]Я пробовал использовать GetHostName, но на некоторых машинах возвращает -1, а имя-пустое значение
← →
Wonder (2003-05-15 17:39) [1]Как именно пробовал?
← →
diokant (2003-05-15 17:42) [2]на той машине где не получалось принес доработанную версию с выдачей сообщений...
← →
diokant (2003-05-15 17:45) [3]пробовал так:
ShowMessage("n error="+inttostr(gethostname(nameKomp,sizeof(nameKomp))));
ShowMessage("name="+nameKomp);
← →
Wonder (2003-05-15 17:59) [4]Полный код давай.
← →
Kryukov Andrew (2003-05-15 18:05) [5]Написал Олег, найдено на этом сайте:
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;
← →
diokant (2003-05-15 18:23) [6]А так работает. А мое sizeof(nameKomp) нет.
Спасибо...
А что означает [0..$FF]?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c