Witam.
Jak odczytać nazwę usługodawcy Internetu (nazwę hosta) na własnym komputerze.
Pozdrawiam.
Witam.
Jak odczytać nazwę usługodawcy Internetu (nazwę hosta) na własnym komputerze.
Pozdrawiam.
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
http://www.showmyip.com/ tu masz już gotowy Host, teraz tylko pobawić sie stringami (bez podtextów :P )
Ja bym proponował sprawdzenie informacji WHOIS na hoscie.
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.