delphi代理问题 求解 在线等
delphi代理问题 求解 在线等
procedure TForm1.Button3Click(Sender: TObject);
var
info : INTERNET_PROXY_INFO;
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',False) then
begin
reg.Writestring('ProxyServer','socks='+edit2.Text);
reg.Writestring('ProxyEnable', '1');
end;
reg.CloseKey;
reg.Free;
info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
info.lpszProxy:=pchar('socks='+edit2.Text) ;
InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);
InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil,0);
InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED, nil,0);
end;
我把代理地址写在 edit2.text上面 然后注册表修改代理
可是info.lpszProxy:=pchar('socks='+edit2.Text) ; 这一句 不加pachr编译不成功
加上以后 代理不能成功设置
小弟问info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
info.lpszProxy:=pchar('socks='+edit2.Text) ;
InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);
InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
请问各位能不能看到delphi中自带组件的内部代码,比如怎么去看speedbutton的flat方法中的代码等.
SpeedButton1.Flat
鼠标移到Flat上，按住Ctrl键，左击
对了，SpeedButton1 必须是创建好的
是啊，就这� ......
delphi内置的加密解密单元是哪个？
Delphi有内置加密解密单元？
delphi里有个加密和解密的单元
引用
delphi里有个加密和解密的单元
是哪个？
windows的api？
标准加密的源代码，网上 ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
环境winXP,delphi 7, postsgresql 8.4, 已安装odbc for postgresql
连接方式ado -> odbc -> postgresql
Delphi(Pascal) code:
con1.ConnectionString := 'Provider=MSDASQL.1;Extended Pr ......
