Zamiana hosta na adres IP.

0

W jaki sposób zamienić domenę np. www.google.pl na adres IP w Delphi?

0

A czy w ogóle szukałeś zanim zapytałeś? Da się to zrobić przy użyciu modułu WinSock. Ja sam mam poniższy kod z google. Zaryzukuje i go wkleje, ale nie odpowiem na 1000 kolejnych pytań, bo wedlug mnie to co podałem rozwiązuje "problem". Sam bym to z trudem wykombinował. Dlatego trzeba poszukać w google rozwiązania. Także Ludziska moje drogie. Piszę to co do niektórych. Dział Newbie czy nie. Problem z podstawami czy nie. Nieważne. Ogarnijcie się i zanim "nasmarujecie" pytanie na forum - googlować i kombinować samodzielnie, ino chyżo! ;P Zaytanie na forum to ostatecznośc. A ode mnie -1 za olewanie google.

function GetIPFromHost(const HostName : string) : string;
type
  PaPInAddr = ^TaPInAddr;
  TaPInAddr = array[0..10] of PInAddr;
var
  I : integer;
  Phe : PHostEnt;
  PPtr : PaPInAddr;
  GInitData : TWSAData;
begin
  Result := '';
  WSAStartup($101, GInitData);
  Phe := GetHostByName(PChar(HostName));
  if Phe = nil then
  begin
    Exit;
  end;
  PPtr := PaPInAddr(Phe^.h_addr_list);
  I := 0;
  while PPtr^[I] <> nil do
  begin
    Result := inet_ntoa(pptr^[I]^);
    I := I + 1;
  end;
  WSACleanup;
end;

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