用Delphi检测IE使用的代理服务器

1 2 下一页

　　如果我们开发的对象，不是在公网的环境内上网，是使用内网的，我们应该怎么样检测你的IE使用的代理服务器呢？接下来我们通过以下实例来学习：
　　

　　//-----------------------------------------------
　　//记得引用 WinInet 单元
　　//-----------------------------------------------
　　uses
　　WinInet

　　//----------------------------------------------
　　//定义要使用的函数
　　//----------------------------------------------

　　function GetProxyInformation: string;
　　var
　　ProxyInfo: PInternetProxyInfo;
　　Len: LongWord;
　　begin
　　Result := '';
　　Len := 4096;
　　GetMem(ProxyInfo, Len);
　　try
　　if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then
　　if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
　　begin
　　Result := ProxyInfo^.lpszProxy
　　end;
　　finally
　　FreeMem(ProxyInfo);
　　end;
　　end;

　　procedure GetProxyServer(protocol: string; var ProxyServer: string;
　　var ProxyPort: Integer);
　　var
　　i: Integer;
　　proxyinfo, ps: string;
　　begin
　　ProxyServer := '';
　　ProxyPort := 0;

　　proxyinfo := GetProxyInformation;
　　if proxyinfo = '' then
　　Exit;

　　protocol := protocol '=';

上一篇： 用Delphi设计“抢三十”游戏
下一篇： Delphi学习:查句柄知多少

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有