https://www.cnblogs.com/guorongtao/p/11976664.html
访问 Web 网站,最简单用法直接使用 TIdHTTP 控件:
例如:AA := IdHTTP1.Get('www.baidu.com.');
访问 https 的网站,需要 SSL 库。
在 Windows 下,去 https://indy.fulgan.com/SSL/ 下载最新的 SSL 的库。
openssl-1.0.2q-i386-win32.zip
下载后,解压缩,包括两个 dll 文件:
ssleay32.dll 和 libeay32.dll;
直接放到程序编译好的 EXE 相同文件夹底下
在Delphi7下比较难找,给一个链接:https://download.csdn.net/download/baidu_24930139/12011774
TIdHTTP 控件绑定 TIdSSLIOHandlerSocketOpenSSL 控件:
1. IOHandler 这个属性,下拉,选择 IdSSLIOHandlerSocketOpenSSL1;
2. HandleRedirects 属性:设置为 True;默认是 False; 网页重定向 ,不开的话如果网页有重定向,跳转网页会报错 http/1.1 301 moved permanently
IdSSLIOHandlerSocketOpenSSL1 的属性设置:SSLOptions -> Method 属性,设置为:sslvTLSv1_2,因为openssl-1.0.2q-i386-win32.zip
IdHTTP1.Request.UserAgent:='Mozilla/4.0' ; //不加的话,会弹 Connection Closed Gracefully.错误 memo1.Text:= IdHTTP1.Get('https://www.baidu.com'); WebBrowser1.Navigate('https://www.baidu.com');
分类:
Delphi2010
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 分享一个免费、快速、无限量使用的满血 DeepSeek R1 模型,支持深度思考和联网搜索!
· 基于 Docker 搭建 FRP 内网穿透开源项目(很简单哒)
· 25岁的心里话
· ollama系列01:轻松3步本地部署deepseek,普通电脑可用
· 按钮权限的设计及实现