TWebBrowser [D6, WinXP]
Yakudza © (2004-07-15 12:53:00)
Можно ли TWebBrowser`ом ходить через определенный прокси
?
Ihor Osov'yak (2004-07-15 16:12:00) [1]
Можно.
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;
Зы. Устанавливает параметры в пределах процесса..
Зы2. uses WinInet
Наверх 
ЧАТ |
Орешник |
|
