WebBrowser和IE共同使用代理

作者：傻猫 发布时间：January 28, 2010 分类：Web技术

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
user urlmon,wininet; 

procedure qiehuanproxy(const proxyname:string); 

var info:TInternetProxyInfo; 

 lngth:integer; 

 h:integer; 

 proxy :pChar; 

 bypass :PChar; 

 begin 

 proxy:=pchar(proxyname);//proxy address:port 

 bypass:=pChar(''); 

 info.dwAccessType := INTERNET_OPEN_TYPE_PROXY  ; 

 info.lpszProxy :=proxy; 

 info.lpszProxyBypass:=bypass; 

 lngth:=sizeof(info); 

  h:=UrlMkSetSessionOption(INTERNET_OPTION_PROXY ,@info,lngth,0); 

end;

标签: none

添加新评论 »

验证码：