Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

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

← →
hn   (2001-11-27 16:50) [0]

подскажите плиз пример задания параметров

---

← →
Digitman ©   (2001-11-27 18:13) [1]

вот готовый пример из модуля scktcomp.pas

function TCustomWinSocket.GetRemoteHost: string;
var
SockAddrIn: TSockAddrIn;
Size: Integer;
HostEnt: PHostEnt;
begin
Lock;
try
Result := "";
if not FConnected then Exit;
Size := SizeOf(SockAddrIn);
CheckSocketResult(getpeername(FSocket, SockAddrIn, Size), "getpeername");
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.s_addr, 4, PF_INET);
if HostEnt <> nil then Result := HostEnt.h_name;
finally
Unlock;
end;
end;

неужели так сложно заглянуть, поинтересоваться, как это делает сам Борланд ?

---

← →
hn   (2001-11-27 18:19) [2]

thanx
я уже разобрался

---

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

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх

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