delphi鎬庝箞鎶撳彇缃戦〉鏁版嵁
瑕佷娇鐢―elphi鎶撳彇缃戦〉鏁版嵁锛屽彲浠ヤ娇鐢ㄤ互涓嬫楠わ細
-
瀵煎叆鐩稿叧鐨勫簱鏂囦欢锛氬湪Delphi涓紝鍙互浣跨敤
IdHTTP鍜?code>IdSSLOpenSSL缁勪欢鏉ヨ繘琛岀綉缁滆姹傘€傜‘淇濆凡缁忔纭鍏ヤ簡杩欎袱涓簱鏂囦欢銆?/p> -
鍒涘缓涓€涓?code>IdHTTP缁勪欢锛氬湪Delphi涓紝閫氳繃鍦ㄥ伐鍏风涓€夋嫨
TIdHTTP缁勪欢骞跺皢鍏舵斁缃湪绐椾綋涓婃潵鍒涘缓涓€涓?code>IdHTTP缁勪欢銆?/p> -
璁剧疆
IdHTTP鐨勫睘鎬э細璁剧疆IdHTTP鐨勫睘鎬ф潵閫傚簲浣犳姄鍙栫綉椤垫暟鎹殑闇€姹傘€備緥濡傦紝浣犲彲浠ヨ缃?code>Request.UserAgent灞炴€ф潵妯℃嫙涓€涓壒瀹氱殑娴忚鍣ㄣ€?/p> -
鍙戦€丠TTP璇锋眰锛氫娇鐢?code>IdHTTP.Get鏂规硶鏉ュ彂閫丠TTP璇锋眰骞惰幏鍙栫綉椤靛唴瀹广€備綘闇€瑕佹彁渚涚洰鏍囩綉椤电殑URL浣滀负鍙傛暟銆?/p>
-
澶勭悊杩斿洖鐨勭綉椤靛唴瀹癸細浣犲彲浠ヤ娇鐢?code>IdHTTP.ResponseText灞炴€ф潵鑾峰彇杩斿洖鐨勭綉椤靛唴瀹癸紝鐒跺悗杩涜杩涗竴姝ョ殑澶勭悊锛屽瑙ｆ瀽HTML銆佹彁鍙栨暟鎹瓑銆?/p>
浠ヤ笅鏄竴涓畝鍗曠殑绀轰緥浠ｇ爜锛屽睍绀轰簡濡備綍浣跨敤Delphi鎶撳彇缃戦〉鏁版嵁锛?/p>
uses
IdHTTP, IdSSLOpenSSL;
procedure TForm1.Button1Click(Sender: TObject);
var
IdHTTP: TIdHTTP;
Response: string;
begin
IdHTTP := TIdHTTP.Create(nil);
try
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537';
// 鍙戦€丠TTP璇锋眰骞惰幏鍙栫綉椤靛唴瀹?/span>
Response := IdHTTP.Get('http://www.example.com');
// 澶勭悊杩斿洖鐨勭綉椤靛唴瀹?/span>
// TODO: 杩涗竴姝ュ鐞嗙綉椤靛唴瀹?/span>
Memo1.Lines.Text := Response;
finally
IdHTTP.Free;
end;
end;
浠ヤ笂浠ｇ爜鍒涘缓浜嗕竴涓?code>IdHTTP缁勪欢锛屽苟鍚?code>http://www.example.com鍙戦€佷簡涓€涓狧TTP GET璇锋眰銆傝繑鍥炵殑缃戦〉鍐呭琚瓨鍌ㄥ湪涓€涓狹emo缁勪欢涓€備綘鍙互鏍规嵁鑷繁鐨勯渶姹傝繘琛岃繘涓€姝ョ殑澶勭悊銆?/p>
璇锋敞鎰忥紝杩欏彧鏄竴涓畝鍗曠殑绀轰緥浠ｇ爜锛屽疄闄呬笂鎶撳彇缃戦〉鏁版嵁鍙兘娑夊強鍒版洿澶嶆潅鐨勬搷浣滐紝濡傚鐞咰ookies銆佸鐞嗛噸瀹氬悜绛夈€傚湪瀹為檯搴旂敤涓紝浣犲彲鑳介渶瑕佹牴鎹叿浣撶殑闇€姹傝繘琛屾洿澶氱殑璁剧疆鍜屽鐞嗐€?/p>
相关问答
