Twebbrowser可以指定PROXY和端口吗?(100分)

  • 主题发起人 主题发起人 smileff8
  • 开始时间 开始时间
S

smileff8

Unregistered / Unconfirmed
GUEST, unregistred user!
如果可以,如何提定,谢谢!
 
改注册表,但是好象不可以马上生效的。
 
Proxy是由Internet选项设置的,如果在Internet选项设置后,Twebbrowser自然会从那里取得
Proxy,而至于Internet选项如何设置,你可以找如何运行控制面板程序的Delphi技巧!
 
利用 INTERNET_OPTION_PROXY 及 INTERNET_OPTION_SETTINGS_CHANGED 兩函數。
不需改註冊表。
uses wininet

procedure TForm1.ProxyComboBox1Exit(Sender: TObject);
var
inf:INTERNET_PROXY_INFO;

len:DWord;

s:string;
begin
ServerDir1Exit(Sender);

s:=ProxyComboBox1.text;

if trim(s)<>'' then
begin
inf.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
inf.lpszProxy:=pchar(s);
inf.lpszProxyBypass:=nil;

len:=sizeof(inf);

InternetSetOption(nil, INTERNET_OPTION_PROXY, @inf, len);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
end else
begin
inf.dwAccessType:=INTERNET_OPEN_TYPE_DIRECT;
inf.lpszProxy:=nil;
inf.lpszProxyBypass:=nil;

len:=sizeof(inf);

InternetSetOption(nil, INTERNET_OPTION_PROXY, @inf, len);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
end;
end;

 
接受答案了.
 
后退
顶部