USES winsock
function IPAddrToName(IPAddr : String): String;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
//funkcja powyzej pobiera host na pdst adresu
if HostEntnil then
begin
result:=StrPas(Hostent^.h_name)
end
else
begin
result:='';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= 'Czekaj...Trwa pobieranie danych';
Host1.text:= IPAddrToName(Edit1.Text);//tu pobieramy host
Label3.Caption := 'Pobieranie zakończone';
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', '.']) then Key := #0;
{tenkod nie pozwala na wpisanie w pole na IP nic innnego jak cyfry i kropki}
end;
...
Augiasz jak widzisz do pobrania nazwy hosta nie potrzebne jest WhoIs..
z tego ci się orientuje WhoIs ci by nie pomoglo bo to chyba pobiera info o domenach org,edu i com (tak bylo w demos)
do mleczasza... skoro nic nie wiesz na ten temat to kiego cos w ogole piszesz...
Chcialbym zobaczyc chociaz jeden program twojego autorstwa. Odsylasz do FAQ....a ty chociaz je przeczytales ze wiesz co w nich jest?
akurat tego nie ma..ja to znalazlem bodajze na torry.net lolku
To ze np Dryobates odsyla do FAQ oznacza to ze WIE co w tych faqach jest...ty chyba nic nie wiesz mistrzu delphi :-) :-) :-)