Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

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

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.03 c