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如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
Delphi 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
请问各位能不能看到delphi中自带组件的内部代码,比如怎么去看speedbutton的flat方法中的代码等.
SpeedButton1.Flat
鼠标移到Flat上，按住Ctrl键，左击
对了，SpeedButton1 必须是创建好的
是啊，就这� ......
我用delphi做界面，库里面的函数参数是CArray <DBStruct,DBStruct>型的引用，DBStruct是结构体。请问我在delphi中该用什么样的实参去接收库里面传过来的值呢？请各位帮帮忙，谢谢！~~
请各位大哥大姐帮帮忙啊 ......
