Скачать: 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 вся ветка

Скачать: CL | DM;



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