Indy-Client TIdHttp例子

最新推荐文章于 2024-01-26 09:52:37 发布

转载最新推荐文章于 2024-01-26 09:52:37 发布 · 1.6k 阅读

delphi 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一个简单的Delphi程序示例，该程序利用IdHTTP组件执行HTTP GET请求以从指定URL获取数据，并将响应内容显示在Memo控件中。此示例适用于初学者了解如何在Delphi中进行基本的HTTP交互。

uses IdHTTP;

const Url = 'http://del.cnblogs.com';

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TStringStream;
  idHttpObj: TIdHTTP;
begin
  stream := TStringStream.Create('', TEncoding.UTF8); //

  idHttpObj := TIdHTTP.Create(nil);
  idHttpObj.Get(Url, stream);
  idHttpObj.Free;

  Memo1.Text := stream.DataString;
  stream.Free;
end;