VPF::Знатокам EmbeddedWB вопрос - Форум программистов

darkcoder

Дата 10.10.2007, 12:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет. Необходимо отключить передачу user-agent для этого компонента, подскажите как?
Что я пробовал делать:
Заковотил функции где в реестр пишется юзерагент, убирал юзерагент из инетопен, из констант, все равно не помогает, или помогает частично.

Вот такой юзеранегт сейчас без отключения в коде компонента:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; MRA 4.10 (build 01952); Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; SLCC1; .NET CLR 2.0.50727; .NET CLR 3.0.04506; InfoPath.2)

Строка разделяется ';', значит в коде где то из переменных эта строка и собирается, а между ними ';' ???

Почему не помогает замена InternetOpen(PChar(UserAgent) на InternetOpen(PChar(''), разве не через InternetOpen этот компонент
работает? Какие еще функции посомотреть?

M
Alexeis

Модератор: Название темы должно отражать ее суть!

MetalFan

Дата 10.10.2007, 13:53 (ссылка)

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

Загрузка ...

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

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

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

вот код, выдранный из EWBTools

Код


procedure SetProxy(UserAgent, Address: string); //mladen
var
   list: INTERNET_PER_CONN_OPTION_LIST;
   dwBufSize: DWORD;
   hInternet: Pointer;
   Options: array[1..3] of INTERNET_PER_CONN_OPTION;
begin
   dwBufSize := sizeof(list);
   list.dwSize := sizeof(list);
   list.pszConnection := nil;
   list.dwOptionCount := High(Options); // the highest index of the array (in this case 3)
  // list.pOptions:= Allocmem(sizeof(INTERNET_PER_CONN_OPTION) * 3);
  //if list.pOptions = nil then
  //  Exit;
   Options[1].dwOption := INTERNET_PER_CONN_FLAGS;
   Options[1].Value.dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
  //inc(list.pOptions);
   Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
   Options[2].Value.pszValue := PChar(Address);
  //inc(list.pOptions);
   Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
   Options[3].Value.pszValue := '<local>';
  //Dec(list.pOptions, 2);
   list.pOptions := @Options;
   hInternet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
   InternetSetOption(hInternet, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
   InternetSetOption(hInternet, INTERNET_OPTION_REFRESH, nil, 0);
   InternetCloseHandle(hInternet);
end;

попробуй под себя адаптировать...

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

There are always someone smarter than you...

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