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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
14-13772
Bboy
2002-07-09 11:17
2002.08.05
Что за хрень, не получается поиграть!!!


3-13547
flider
2002-07-12 13:09
2002.08.05
Убить DataSet


4-13850
Максимка
2002-05-28 20:41
2002.08.05
Как создать несколько форм, но так чтобы...


14-13815
Felis manul
2002-07-10 09:28
2002.08.05
Значок Мастер Delphi


6-13748
GM_
2002-05-24 10:58
2002.08.05
Про TClientSocket