znając adres strony http można zamienić ten adres na nr IP skąd ta strona jest wyświetlana, jak to zrobić?
0
0
- w poleceniu otwórz wpisujesz cmd.
- piszesz: ping [spacja] nazwa_strony_www.onet.plg www.onet.pl
Odpowiedzią jest IP: 213.180.130.200
Jak to zrobić w Delphi...?
Możesz np: wykonać to polecenie w pliku wsadowym BAT a następnie wynik zapisać do pliku po czym wczytać ten plik np: do labela.
0
uses Winsock;
...
procedure TForm1.HostNaIP(Sender: TObject);
type pu_long = ^u_long;
var WSAData : TWSAData;
HostEnt : PHostEnt;
InAddr : TInAddr;
begin
If WSAStartup($101, WSAData)<>0 Then
Label1.Caption := 'Wystąpił błąd!'
Else Begin
HostEnt:=GetHostByName('www.onet.pl');
InAddr.S_addr:=u_long(pu_long(HostEnt^.h_addr_list^)^);
Label1.Caption :=inet_ntoa(InAddr);
End;
WSACleanup;
end;
0
super elegancko [rotfl] dzięki