Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> InternetOpen, InternetOpenURL, всегда возвращают true 
:(
    Опции темы
pavelv
Дата 2.8.2006, 05:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет



Не могу понять в чем дело, может делаю что-то не так. У меня есть доступ в интернет через прокси сервер, 10.114.20.2:3128. Решил ознакомиться с winApi более детально и проверить програмно когда прокси работает, а когда нет. Но так как не очень предсталяю, что происходит после InternetOpen и почему-то думаю если прокси пингуется нормально то и он будет выдвать, что есть связь....сделал дополнительную проверку на открытие URL, чтобы уж наверняка знать что связь есть. Пишу вот как, но hSession всегда возвращает не NIL(независимо какой прокси указывать), тоже происходит и с hURL, всегда не NIL. Если кто знает подскажите в чем может быть проблема, или может какими другими функциями мне проверить есть ли доступ в интернет?
Код

procedure TForm1.Button1Click(Sender: TObject);
var hSession, hURL:Pointer;
begin
  hSession:=InternetOpen('FreeGet',INTERNET_OPEN_TYPE_PRECONFIG,PChar('10.114.20.2:3128'),nil,0);
if hSession=nil then
    begin
      MessageDlg('Error, InternetOpen: Ñîåäèíåíèå íå ìîæåò áûòü óñòàíîâëåíî',
                 mtError,[mbOK],0);
      exit;
    end;

hURL:=InternetOpenURL(hSession, PChar('http://www.ngs.ru'), nil,0,0,0);

if hURL=nil  then
    begin
      MessageDlg('Error, InternetOpenURL: Ññûëêà íå ìîæåò áûòü îòêðûòà!',
                 mtError,[mbOK],0);
      InternetCloseHandle(hSession);
      exit;
    end;
end;


PM MAIL   Вверх
pavelv
Дата 2.8.2006, 07:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет



Вчера толи с пьяну делал, толи как надо то конечно так:
Код

  hSession:=InternetOpen('Microsoft Internet Explorer',INTERNET_OPEN_TYPE_PROXY,PChar('10.114.20.2:3128'),nil,0);

Как не странно в этом случае тоже всегда возвращается true, но вот при попытке выполнить  
InternetOpenURL, если прокси указан не верно будет возвращено nil. Осталась проблема в том, что если прокси указан верно то InternetOpenUrl при указанном url вида 'http://*' всегда не NIL. 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0673 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.