Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

Броузер   Найти похожие ветки 

← →
hooky-mars   (2003-11-06 18:55) [0]

Saluer!
Подскажите, как сделать броузер в котором можно программно настрить прокси сервер или тключить его!!!

Заранее искренне благодарен!!!!

---

← →
Ihor Osov'yak   (2003-11-07 02:26) [1]

TWebBrouser + InetSessionToUserSetting

Пример использования InetSessionToUserSetting:

function InetSessionToUserSetting(aEnProxy: boolean; aStrIP, aStrPort: string): boolean;
var
p: INTERNET_PROXY_INFO;
x: integer;
dreserved: dword;
begin
result := false;
FillChar(p, sizeof(p), 0);

if aEnProxy then
begin
p.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
if aStrPort <> "" then
p.lpszProxy := PChar(aStrIP + ":" + aStrPort)
else
p.lpszProxy := PChar(aStrIP);
end
else
begin
p.dwAccessType := INTERNET_OPEN_TYPE_DIRECT;
p.lpszProxy := "";
end;

p.lpszProxyBypass := "";
x := sizeof(p);
dreserved := 0;
if UrlMkSetSessionOption(INTERNET_OPTION_PROXY, @p, x, dreserved) <> S_OK then
begin
Exit;
end;

result := true;

end;

Зы - успановки дейчтвуют в пределах процесса, независимо от системных..

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c