Форум: "Сети";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Внизсвойства обозревателя Найти похожие ветки
← →
int64 (2003-03-06 11:17) [1]Проблема не в переводе. Логика как-раз примитивная:
1. Объявляется переменная list.
2. Заполняются её поля, как тебе надо.
3. InternetSetOption(..., @list, sizeof(list));
Проблема в том, что структура list и типы с константами для заполнения не описаны в Delphi (или описаны под другими именами). Не хочется разбираться. Легче поискать готовые решения. Они и здесь проскальзывали.
Для решения проблемы могу предложить альтернативный метод. Лобовой и примитивный. Связанный с непосредственным редактированием реестра.
uses ..., WinInet, Registry;
...
Procedure EnableProxy(cost Server: String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings",False);
Reg.WriteString("ProxyServer",Server);
Reg.WriteBool("ProxyEnable,True);
Reg.CloseKey;
Reg.Free;
InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;
Procedure DisableProxy;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings",False);
Reg.WriteBool("ProxyEnable,False);
Reg.CloseKey;
Reg.Free;
InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;
Примеры:
EnableProxy("proxyserver:8080")
EnableProxy("ftp=ftpproxyserver:2121;gopher=goproxyserver:3333;http=httpproxyserver:8080;https=httpsproxyserver:8080");
EnableProxy("http=httpproxyserver:8080");
InternetSetOption в коде для того, чтобы утверждать настройки без перезагрузки браузера.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c