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
相关问答：
我用ftp上传一个文件到ftp服务器上，前几天都用的好好的，后面一直到现在连不上ftp了
-------------------------------------
IdHTTP1:=TIdHTTP.Create(GetIP); //为防止断网后idhttp无法启动起来,所以 ......
如何让MDI窗体只能建立一个子窗体?
1、只要一个子窗体，那用MDI意义何在呢，可以直接用SDI窗体了
2、如果一定要这样，通过TForm.MDIChildCount属性控制
楼主想要做一个导航界面？？
导航页面的实现思� ......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
请问c++builder中如何调用delphi编写的函数？
如在delphi中函数定义为 function a(s1:string, s2:string):string;
那么在c++builder程序中如何定义这一外部函数呢？
直接将pas文件加入工程，编译成功后， ......
