Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Люди, подскажите, как получить IP адрес веб сайта!!! [D5]

Yuraz © (2001-10-27 16:01:00)
Делаем так, рисует ошибку:

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-28 12:55:00) [1]
У тебя destHost не инициализирован

Yuraz (2001-10-28 09:19:00) [2]
Код просто не рабочий. А взял здесь, в FAQ.

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

Anatoly Podgoretsky (2001-10-27 19:43:00) [3]
Значит ты предлагаешь, что бы увидеть ошибку набрать твой текст, у самого значит сил нет сказать об ней.
Это что лень или тенденция?

Yuraz (2001-10-27 17:41:00) [4]
А ты попробуй хотя бы отобразить полученный pHostEn^.h_name^ через диалоговое окно - увидишь

Anatoly Podgoretsky (2001-10-27 17:02:00) [5]
Что то не нарисована ошибка

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »