VPF::Отслеживание подключения в сети

remax

Дата 10.1.2008, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

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

Цитата(Rennigth @ 10.1.2008, 23:23

)

А изменение это зануление dc, т.к. если HttpQueryInfo выполниться неудачно, то вdc останеться тотже мусор что и при инициялизации, и есть шанс(хоть и мизерный) что там будет значение 200 и функция вернет в итоге True smile

Хуже не будет smile

, хотя и маловероятно.... smile

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

razumsap

Дата 11.1.2008, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Цитата(remax @ 10.1.2008, 22:12)

Пример автоматического определения параметров прокси (кусок моей рабочей проги)

Код


  procedure TfrmMain.AvtoProxy;
var
  proxyinfo: pinternetproxyinfo;
  len: longword;
  use_proxyserver:boolean;
begin
  len := 4096;
  use_proxyserver:=false;
  getmem(proxyinfo, len);
  try
    if internetqueryoption(nil, internet_option_proxy, proxyinfo, len) then
      if proxyinfo^.dwaccesstype = internet_open_type_proxy then
        begin
          use_proxyserver := true;
          cbPROXY_SERV.Text:=proxyinfo^.lpszproxy;
          if  pos(':',cbPROXY_SERV.Text)>0
            then
              begin
                try
                  cbPROXY_PORT.Text:=trim(copy(cbPROXY_SERV.Text,pos(':',cbPROXY_SERV.Text)+1,5));
                except
                  cbPROXY_PORT.Text:='3128';
                end;
                cbPROXY_SERV.Text:=copy(cbPROXY_SERV.Text,1,pos(':',cbPROXY_SERV.Text)-1);
              end
            else cbPROXY_PORT.Text:='3128';

          update;
        end
  finally
     freemem(proxyinfo);
  end;
  cbProxyEnabled.Checked:= use_proxyserver;
  Update;
end;

Добавлено @ 22:17
Rennigth, твои изменения изменили логику работы проги. Весь смысл - периодический опрос. А в твоей модификации - только FormCreate?

Добавлено @ 22:19
razumsap, а в самом деле, чего мы мучаемся - посмотри в настройках своего броузера - есть явное указание прокси или нет?

Добавлено @ 22:25

Цитата(razumsap @ 10.1.2008, 16:33

)

вобщем, админ наш сказал, что пинг не проходит, по причине того, что мы(наша ОАО) работаем через 2 прокси

А админ не сказал причину регулярного отсутствия интернета? Может дело в выключении каких то рутеров или проксей? И пинговать достаточно их, или те же ваши прокси?

Я конечно извиняюсь, но подскажите переменная cbPROXY_SERV - это компонента, если да то какая или что за тип? smile

И ещё если я знаю настройки прокси сервера, то куда мне их подставлять?

razumsap

Дата 15.1.2008, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

To remax
Повторюсь

одскажите переменная cbPROXY_SERV - это компонента, если да то какая или что за тип?
И ещё если я знаю настройки прокси сервера, то куда мне их подставлять?

remax

Дата 15.1.2008, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

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

Цитата(razumsap @ 15.1.2008, 09:13

)

cbPROXY_SERV

компонента, комбобокс. Только этот фрагмент проги тебе не нужен, так как параметры прокси ты и так знаешь. Проблема в том, что обычно я использую инди-компоненты для работы с инетом. Поэтому, как правильно адаптировать примерчик -

Цитата(remax @ 10.1.2008, 00:48

)

программа проверяет существование определенного адреса в сети

к работе с прокси я с ходу не скажу. Надо глубже разбираться с WinInet, а сейчас нет времени. Если никто не подбросит Вам вариант, позже набрасаю примерчик с использованием инди....

Но, возможно, все гораздо проще. Когда не работает интернет, проверьте, используя стандартную команду PING, доступность прокси-сервера. Если дело в этом, то возможно и писать прогу будем по другому.

Это сообщение отредактировал(а) remax - 15.1.2008, 21:15

--------------------

MetalFan

Дата 15.1.2008, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

посмотри мой компонент-обертку над WinInet. а в WinInet есть возможность использования настроенного в системе прокси

--------------------

There are always someone smarter than you...

remax

Дата 16.1.2008, 03:06 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

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

MetalFan, MFWIHTTP c D7 не дружит? Только с BDS?

--------------------

MetalFan

Дата 16.1.2008, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

remax, дружит. чуть его допилить, там кто-то отписывался по этому поводу...

--------------------

There are always someone smarter than you...

razumsap

Дата 23.1.2008, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

подскажите кто сталкивался,
как при подключениии к интернету обойти запрос ввода Логина и Пароля, т.е. ввести их програмно, чтоб не выскакивало окно, причём с уже заполненными (правильно) данными?

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