gpt4 book ai didi

delphi - 使用 Rad Studio 2007 读取 vcl.net 应用程序中的代理详细信息

转载 作者:行者123 更新时间:2023-12-03 15:58:57 25 4
gpt4 key购买 nike

如何从 vcl.net 应用程序 (Rad Studio 2007) 读取代理详细信息(地址和端口)?听说过 InternetGetProxyInfo。但没有在任何地方找到详细信息。

谢谢。

最佳答案

只是提供一个想法。我从来没有找到其他方法:(

procedure TfrmProxy.sbtnGetIEProxyClick(Sender: TObject);

function GetHTTPProxy(const str: String): String;
var
ts: TStringList;
i: Integer;
begin
ts := TStringList.Create;
try
ts.Text := StringReplace(str, ';', #13#10, [rfReplaceAll]);
if ts.Count = 1 then
Result := ts[0]
else
begin
for i := 0 to ts.Count-1 do
begin
if pos(UpperCase('http'), uppercase(ts[i])) > 0 then
begin
Result := Copy(ts[i], 6, length(ts[i]));
Exit;
end;
end;
end;
finally
ts.Free;
end;
end;


var
Reg: TRegistry;
str: String;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.KeyExists('Software\Microsoft\Windows\CurrentVersion\Internet Settings') then
begin
Reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Internet Settings');
chxUseProxy.Checked := Reg.ReadInteger('ProxyEnable') <> 0;
if chxUseProxy.Checked then
begin
str := Reg.ReadString('ProxyServer');
str := GetHTTPProxy(str);
ledtProxyHost.Text := Copy(str, 0, pos(':', str)-1);
ledtProxyPort.Text := Copy(str, pos(':', str)+1, length(str));
end;
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

关于delphi - 使用 Rad Studio 2007 读取 vcl.net 应用程序中的代理详细信息,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/354586/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com