Introduction to Indy （转载）(7)

StdCtrls, ExtCtrls, IdAntiFreezeBase,

  IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

type

  TformMain = class(TForm)

    Client: TIdTCPClient;

    IdAntiFreeze1: TIdAntiFreeze;

    Panel1: TPanel;

    Panel2: TPanel;

    memoInput: TMemo;

    lboxResults: TListBox;

    Panel3: TPanel;

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

  public

  end;

var

  formMain: TformMain;

implementation

{R *.DFM}

procedure TformMain.Button2Click(Sender: TObject);

begin

  memoInput.Clear;

  lboxResults.Clear;

end;

procedure TformMain.Button1Click(Sender: TObject);

var

  i: integer;

  s: string;

begin

  butnLookup.Enabled := true; try

    lboxResults.Clear;

    with Client do begin

      Connect; try

        lboxResults.Items.Add(ReadLn);

        for i := 0 to memoInput.Lines.Count - 1 do begin

          WriteLn(''''ZipCode ''''   memoInput.Lines[i]);

          lboxResults.Items.Add(memoInput.Lines[i]);

          s := ReadLn;

          if s = '''''''' then begin

            s := ''''-- No entry found for this zip code.'''';

          end;

          lboxResults.Items.Add(s);

          lboxResults.Items.Add('''''''');

        end;

        WriteLn(''''Quit'''');

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有