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;
//======下面是要在一个循环 ......
环境winXP,delphi 7, postsgresql 8.4, 已安装odbc for postgresql
连接方式ado -> odbc -> postgresql
Delphi(Pascal) code:
con1.ConnectionString := 'Provider=MSDASQL.1;Extended Pr ......
unit TestRa;
interface
uses
type
var
implementation
创建一个form系统自动生成这几个关键字！
1.他们之间有什么关联吗？
2.系统对他们是如何定义的？
3.delphi语言体系结构是怎么 ......
