Jak odczytać nazwę usługodawcy Internetu

0

Witam.
Jak odczytać nazwę usługodawcy Internetu (nazwę hosta) na własnym komputerze.

Pozdrawiam.

0

http://whatismyip.com <- za pomoca chociazby INDY pobierasz
potem pare operacji na stringu i masz swoj eIP
potem mozesz wyslac zapytanie do http://ripe.net i bedziesz mial info

0

http://www.showmyip.com/ tu masz już gotowy Host, teraz tylko pobawić sie stringami (bez podtextów :P )

0

Ja bym proponował sprawdzenie informacji WHOIS na hoscie.

0

Tak, to jest sposób,
Lecz chodzi mi o coś bardziej profesjonalnego, by aplikacja nie była zależna od ?obcych? serwisów.
Np. do odczytania IP można użyć kodu :

uses winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
       wVersionRequested:WORD;
       wsaData:TWSAData;
 begin
    wVersionRequested := MAKEWORD(1, 1);
    WSAStartup(wVersionRequested, wsaData);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
       p:PHostEnt;
       s:array[0..128] of char;
       p2:pchar;
 begin
    GetHostName(@s, 128);
    p := GetHostByName(@s);
    Memo1.Lines.Add(p^.h_Name);
    p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    Memo1.Lines.Add(p2);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
WSACleanup;
end;

jednak gdzie powinna być nazwa hosta kod pobiera nazwę komputera.

1 użytkowników online, w tym zalogowanych: 0, gości: 1