Главная страница
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
7-13836
Nubie
2002-05-21 02:56
2002.08.05
???Как запустить программу???


3-13582
Alex-A
2002-07-06 07:05
2002.08.05
Совместимость приложения с различными СУБД


3-13538
Prog_mail
2002-07-14 18:57
2002.08.05
Как с помощью SQL сделать выборку данных из Query?


1-13685
Извращенец
2002-07-14 20:04
2002.08.05
флаг, показывающий положение кнопки мыши ?


1-13666
cosinus
2002-07-23 15:57
2002.08.05
Подскажите наиболее правильную организацию поиска по всем локальн