[Delphi ]Jak skorzystać z DNS w pisanych programach?

Main Page -> Forum Index -> Programming Generally -> [Delphi ]Jak skorzystać z DNS w pisanych programach?

Author

Message

And!
Poziom 23

Joined: 22 Aug 2002
Posts: 3986
Location: Świętokrzyskie

27 Jul 2004 19:55

[Delphi ]Jak skorzystać z DNS w pisanych programach?

Jak skorzystać z serwera obsługującego DNS znając jego IP
w programie np. w delphi.

Czyli np. jak przetłumaczyć w programie 212.77.100.101 na www.wp.pl
łącząc się z DNS.

Zamykam. - arnoldziq

Google

Google Adsense

27 Jul 2004 19:55

Mimitron
Poziom 17

Joined: 17 Jul 2003
Posts: 416

#2 28 Jul 2004 14:54

Re: Jak skorzystać z DNS w pisanych programach?

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);
if HostEnt<>nil then
begin

result:=StrPas(Hostent^.h_name);
end;end;

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:=IPAddrToName('212.77.100.101')
end;

Google

Google Adsense

# 28 Jul 2004 14:54

And!
Poziom 23

Joined: 22 Aug 2002
Posts: 3986
Location: Świętokrzyskie

28 Jul 2004 20:12

Re: Jak skorzystać z DNS w pisanych programach?

Heh dzięki działa prawidłowo.
Dla zainteresowanych dodam że trzeba skorzystać z Winsocket dodając do wykorzystanych modułów w części uses moduł Winsocket .
Pozdrawiam And!

Main Page -> Forum Index -> Programming Generally -> [Delphi ]Jak skorzystać z DNS w pisanych programach?

Page 1 of 1

Page generation time: 0.14 seconds

FAQ || Administrator || Moderators || Widgets and banners || Contact