Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.21;
Скачать: CL | DM;

Вниз

Подскажите как можно определить имя и 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
14-68022
Centurion
2003-07-03 14:21
2003.07.21
FastReport


6-67948
Renegate
2003-05-16 09:07
2003.07.21
Вывод запушенных процессов.


14-68074
VictorT
2003-07-05 22:23
2003.07.21
Народ, вы счас можете на форум Дремучих зайти?


14-67974
Dmitriy O.
2003-07-07 09:07
2003.07.21
Можно ли творить зло ради добра ?


8-67921
KAV
2003-04-01 17:36
2003.07.21
Повёрнутый элипс