Introduction to Indy （转载）(5)

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

  
			   
			   

                       标签：
                   
                   
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有