Форум: "Сети";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
ВнизЛюди, подскажите, как получить IP адрес веб сайта!!! Найти похожие ветки
← →
Yuraz (2001-10-27 16:01) [0]Делаем так, рисует ошибку:
procedure TForm1.Button1Click(Sender: TObject);
var
pHostEn : PHostEnt;
destAddress : in_addr;
destHost : PChar;
begin
pHostEn := gethostbyname(PChar(Edit1.Text));
if (pHostEn = nil) then begin
destAddress := in_addr(inet_addr(destHost));
if destAddress.S_addr = u_long(INADDR_NONE) then
begin
Exit;
end;
pHostEn := gethostbyaddr(@destAddress, 4, PF_INET);
if (pHostEn = nil) then
begin
end
else
destAddress := PInAddr(pHostEn^.h_addr_list^)^; end
end;
end.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.034 c