Скачать: CL | DM;

TWebBrowser   Найти похожие ветки 

← →
Yakudza ©   (2004-07-15 12:53) [0]

Можно ли TWebBrowser`ом ходить через определенный прокси ?

---

← →
Ihor Osov'yak ©   (2004-07-15 16:12) [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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c