| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

gethostbyaddr [D5, D6, Win95/98, Win2k]

hn ©   (2001-11-27 16:50:00) 

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

---

hn   (2001-11-27 18:19:00) [1]

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

---

Digitman   (2001-11-27 18:13:00) [2]

вот готовый пример из модуля 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;

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

---

Наверх