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
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
Delphi 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
//下面是一记录，三维坐标
type
Tposition = record
x:integer;
y:integer;
z:integer;
end;
//======下面是要在一个循环 ......
请问c++builder中如何调用delphi编写的函数？
如在delphi中函数定义为 function a(s1:string, s2:string):string;
那么在c++builder程序中如何定义这一外部函数呢？
直接将pas文件加入工程，编译成功后， ......
