Форум: "Сети";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Вниз

Как получить имя компьютера и его название!   Найти похожие ветки 

← →
Vit3128   (2002-05-24 15:56) [0]

Пожалуйста пришлите мне описание по GetIP, GetHOST! Это через WinSock вроде у меня не получается их найти в справке вроде тоже не найти! Подскажите если можно с примером получить имя получить адрес!

---

← →
Donal_Graeme   (2002-05-24 16:26) [1]

gethostname - получить имя компа на котором запущена программа,
gethostbyname - получить адрес этого компа по имени

пример

uses Winsock;

type

TCompInfo = packed record
IPs : Array of AnsiString;
IPCount : Word;
Name : AnsiString;
Official : AnsiString;
Aliases : Array of AnsiString;
end;

function SC_GetCompInfo (CompName: AnsiString = "") : TCompInfo;
var PC : Array [0..255] of Char;
he : PHostEnt;
ad : PChar;
WD : WSAData;
L, I, J, AL, N : LongInt;
begin
WSAStartup (MakeWord (2, 2), WD);
If CompName = "" then gethostname (PC, 256)
else StrPCopy (PC, CompName);
he := gethostbyname (PC);
WSACleanup;
ad := he.h_addr^;
L := length (Ad);
AL := he.h_length;
With Result do
begin
IPCount := L div AL +1;
SetLength (IPs, IPCount);
For I := 0 to IPCount -1 do
begin
IPs[I] := "";
For J := 0 to AL -1 do
begin
N := Ord (ad[I*AL +J]);
IPs[I] := IPs[I] +IntToStr (N, 3) +".";
end;
Delete (IPs[I], Length (IPs[I]), 1);
end;
Name := StrPas (PC);
Official := StrPas (he.h_name);
end;
end;


---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c