Introduction to Indy （转载）

  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'''');

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!