2022年用Delphi检测IE使用的代理服务器Delphi教程.docx

《2022年用Delphi检测IE使用的代理服务器Delphi教程.docx》由会员分享，可在线阅读，更多相关《2022年用Delphi检测IE使用的代理服务器Delphi教程.docx（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年用Delphi检测IE使用的代理服务器Delphi教程 假如我们开发的对象，不是在公网的环境内上网，是运用内网的，我们应当怎么样检测你的IE运用的代理服务器呢？接下来我们通过以下实例来学习： /-/记得引用 WinInet 单元/-usesWinInet/-/定义要运用的函数/-function GetProxyInformation: string;varProxyInfo: PInternetProxyInfo;Len: LongWord;beginResult := ;Len := 4096;GetMem(ProxyInfo, Len);tryif InternetQueryO

2、ption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) thenif ProxyInfo.dwAccessType = INTERNET_OPEN_TYPE_PROXY thenbeginResult := ProxyInfo.lpszProxyend;finallyFreeMem(ProxyInfo);end;end;procedure GetProxyServer(protocol: string; var ProxyServer: string;var ProxyPort: Integer);vari: Integer;proxyinfo, p

3、s: string;beginProxyServer := ;ProxyPort := 0;proxyinfo := GetProxyInformation;if proxyinfo = thenExit;protocol := protocol + =;i := Pos(protocol, proxyinfo);if i > 0 thenbeginDelete(proxyinfo, 1, i + Length(protocol);i := Pos(;, ProxyServer);if i > 0 thenproxyinfo := Copy(proxyinfo, 1, i - 1)

4、;end;i := Pos(:, proxyinfo);if i > 0 thenbeginProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);ProxyServer := Copy(proxyinfo, 1, i - 1)endend;/-/运用范例/-procedure TForm1.Button1Click(Sender: TObject);varProxyServer: string;ProxyPort: Integer;beginGetProxyServer(http, ProxyServer, ProxyPort);if ProxyPort=0 thenbeginShowMessage(你的IE没有运用的代理服务器)endelseLabel1.Caption := ProxyServer;label2.Caption := IntToStr(ProxyPort);end;