Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.039 c
14-56894
y-soft
2003-10-17 08:19
2003.11.17
Екатеринбург!


1-56585
REA
2003-11-06 10:51
2003.11.17
COM Exceptions


14-56838
Dimonnn
2003-10-28 00:11
2003.11.17
Помогите найти


14-56902
Rouse_
2003-10-25 03:01
2003.11.17
Молодой и не опознанный


14-56865
анабО
2003-10-28 12:58
2003.11.17
!анабО