Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

kak po imeni kompa uznat IP ?? [D6, Win95/98, Win2k]

Vygantas © (2002-06-08 16:05:00)
kak po imeni kompa uznat IP ??

Ghost. (2002-06-10 16:16:00) [1]
function HostToIP(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
IP := Format ("%d.%d.%d.%d", [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;

Stasev (2002-06-10 16:12:00) [2]
2 Anatoly Podgoretsky :
Xorosho vi odnako pomogaete :((((((

function IPAddrToName (IPAdr : String): String;
var
SockAddrInn : TSockAddrIn;
Vertsnavn : PHostEnt;
WSAData : TWSAData;
begin
WSAStartup ($101, WSAData);
SockAddrInn.sin_addr.s_addr:= inet_addr (PChar (IPAdr));
Vertsnavn:= GetHostByAddr (@SockAddrInn.sin_addr.S_addr, 4, AF_INET);
if Vertsnavn <> nil then
Result:= StrPas (Vertsnavn^.h_name)
else
Result:= "Can not Resolve Host Name";
end;

Malder (2002-06-09 12:16:00) [3]
http://delphibase.endimus.ru/?action=viewtopic&topic=netaddress

SerVS (2002-06-08 19:20:00) [4]
или в MSDN?
GetHostByName

Anatoly Podgoretsky (2002-06-08 16:17:00) [5]
FAQ смотрел?

Наверх

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