Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.



Anatoly Podgoretsky   (2001-10-27 17:02) [1]

Что то не нарисована ошибка



Yuraz   (2001-10-27 17:41) [2]

А ты попробуй хотя бы отобразить полученный pHostEn^.h_name^ через диалоговое окно - увидишь



Anatoly Podgoretsky   (2001-10-27 19:43) [3]

Значит ты предлагаешь, что бы увидеть ошибку набрать твой текст, у самого значит сил нет сказать об ней.
Это что лень или тенденция?



Yuraz   (2001-10-28 09:19) [4]

Код просто не рабочий. А взял здесь, в FAQ.

По нажатию кнопки из Edit берётся имя smtp.mail.ru (например) а мне надо получить IP. Может кто всё таки знает?



Anatoly Podgoretsky   (2001-10-28 12:55) [5]

У тебя destHost не инициализирован




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
14-66359          fliz                  2001-11-23 17:14  2002.01.21  
Пародия на


3-66216           Kaster                2001-12-18 21:12  2002.01.21  
Помогите пожайлуста! Мне надо, чтобы после поиска, найденная запись стала первой в DBGrid е!


1-66257           ЗАА                   2002-01-03 17:24  2002.01.21  
курсор в StringGrid


3-66213           PONTIY                2001-12-19 06:54  2002.01.21  
Работа с курсором


4-66415           Константин            2001-11-17 21:50  2002.01.21  
По(ту)сторонние звуки