HastNameAndIP

← →
desc (2008-09-19 08:38) [0]

Есть функция:

procedure GetHostNameAndIP(HostName: PChar; IP: PChar);
var
wVerReq: WORD;
wsaData: TWSAData;
h: PHostEnt;
c: array[0..128] of char;
begin
wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
GetHostName(@c, 128);
h := GetHostByName(@c);
HostName := h^.h_Name;
IP := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
WSACleanup;
end;

Вызаваю:

var
HostName, IP: PChar;

...

GetHostNameAndIP(HostName, IP);

sb.Panels[2].Text := HostName;

Пишет какието каракули... Как получить нормальную строку из PChar ?

← →
Поросенок Винни-Пух © (2008-09-19 09:16) [1]

Есть функция:
выброси ее

← →
desc (2008-09-19 09:41) [2]

> Поросенок Винни-Пух © (19.09.08 09:16) [1]

Какая функция ?

← →
Сергей М. © (2008-09-19 09:46) [3]

> desc (19.09.08 09:41) [2]

тебе чего надобно-то, старче ?
Объясни хотя бы на пальцах, прежде чем искать какую-то функцию ..

← →
Поросенок Винни-Пух © (2008-09-19 09:48) [4]

Есть функция:

procedure GetHostNameAndIP(HostName: PChar; IP: PChar);

Которая на самом деле процедура и которую надо выбросить.
Ибо писал ее какой-то дятел.

← →
clickmaker © (2008-09-19 10:52) [5]

> [2] desc (19.09.08 09:41)

где выделение памяти под буфер?

вот это что за бред - HostName := h^.h_Name; ?

что такое локальные переменные, понимаем?

> что такое локальные переменные, понимаем?

Не пацанское это дело, кодить надо...

> где выделение памяти под буфер?

- WinSock сам выделяет буфер - в Tls и один на все, поэтому до следующей WinSock операции в контексте текущего потока, которая может затереть внутренний буфер - нужное значение надо скопировать...

HastNameAndIP Найти похожие ветки