delphi IdTCPClient1 简单用法

unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,

  IdComponent, IdTCPConnection, IdTCPClient, IdCoder, IdCoder3to4, IdCoderMIME;

type

  TForm1 = class(TForm)

    Button1: TButton;

    IdTCPClient1: TIdTCPClient;

    Memo1: TMemo;

    IdEncoderMIME1: TIdEncoderMIME;

    Memo2: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  Response: string;

begin

  Memo1.Lines.Clear;

  try

    IdTCPClient1.Host := '144.129.139.172';

    IdTCPClient1.Port := 80;

    IdTCPClient1.Connect;

    try

      with IdTCPClient1.IOHandler do

      begin

        WriteLn('GET /state.xml HTTP/1.0');

        WriteLn('Host: ' + IdTCPClient1.Host);

        WriteLn('Accept: */*');

        WriteLn('User-Agent: ...');

        WriteLn('Authorization: Basic ' + IdEncoderMIME1.EncodeString('admin:webrelay'));

        WriteLn;

        Response := AllData;

      end;

    finally

      IdTCPClient1.Disconnect;

    end;

    Memo1.Lines.Add(Response);

  except

    on E: Exception do

     Memo2.Lines.Add(E.Message);

  end;

end;

end.