Introduction to Indy （转载）

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  IdBaseComponent, IdComponent, IdTCPServer;

type

  TformMain = class(TForm)

    IdTCPServer1: TIdTCPServer;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure IdTCPServer1Connect(AThread: TIdPeerThread);

    procedure IdTCPServer1Execute(AThread: TIdPeerThread);

  private

    ZipCodeList: TStrings;

  public

  end;

var

  formMain: TformMain;

implementation

{R *.DFM}

procedure TformMain.IdTCPServer1Connect(AThread: TIdPeerThread);

begin

  AThread.Connection.WriteLn(''''Indy Zip Code Server Ready.'''');

end;

procedure TformMain.IdTCPServer1Execute(AThread: TIdPeerThread);

var

  sCommand: string;

begin

  with AThread.Connection do begin

    sCommand := ReadLn;

    if SameText(sCommand, ''''QUIT'''') then begin

      Disconnect;

    end else if SameText(Copy(sCommand, 1, 8), ''''ZipCode '''') then begin

      WriteLn(ZipCodeList.Values[Copy(sCommand, 9, MaxInt)]);

    end;

  end;

end;

procedure TformMain.FormCreate(Sender: TObject);

begin

  


文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!