delphi 设置代理问题 急
网上看了很多帖子 方法都一样 调试起来都不行
虽然 IE 选项中已经完成了 代理的设置
但是 访问起来还是不行 譬如 访问www.ip138.com
已经是本机IP
我的代码 就是根据网上普遍的代码 修改的 请高手过目
procedure TForm1.Button1Click(Sender: TObject);
var sProxy: string;
Pinfo: INTERNET_PROXY_INFO;
reg: Tregistry;
begin
Pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
Pinfo.lpszProxy := pchar(trim(edit1.Text));
InternetSetOption(nil, INTERNET_OPTION_PROXY, nil, SizeOf(PInfo));
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', true ) then
begin
reg.Writestring('ProxyServer', edit1.Text);
reg.WriteInteger('ProxyEnable', integer(true));
end
finally
reg.CloseKey;
reg.free;
webbrowser1.Navigate('http://www.google.com');
&n
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
Delphi
怎样获取网页部分内容（代码），并且显示出来！
（只是网页里面的一部分内容并不是全部）
没弄懂！
类似websever的功能？
估计是利用ie的接口。。。。。。。。
是类似websever的功能 ......
Delphi(Pascal) code:
for I := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Selected[I] then ListSelectItem := I;
ListBox1.Selected[I] := False;
end;
ListBox1.Selected[ListSel ......
