訪問 Web 網站,最簡單用法直接使用 TIdHTTP 控件:
例如:AA := IdHTTP1.Get('www.baidu.com.');
訪問 https 的網站,需要 SSL 庫。
在 Windows 下,去 https://indy.fulgan.com/SSL/ 下載最新的 SSL 的庫。
下載后,解壓縮,包括兩個 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
例如:AA := IdHTTP1.Get('https://www.baidu.com');