idtcpserver接收stream

type

 

 TServerHandleThread = class(TThread)

 private

   Mstr:string;

   procedure HandleInput;

 protected

   procedure Execute; override;

 public

   constructor Create(AStyle:Boolean;Str:String);overload;

   destructor Destroy; override;

 end;

 

implementation

 

{ TServerHandleThread }

 

constructorTServerHandleThread.Create(AStyle: Boolean;

 Str: String);

begin

 inherited Create(AStyle);

 Mstr:=Str;

 FreeOnTerminate:=true;

end;

 

destructor TServerHandleThread.Destroy;

begin

 inherited;

end;

 

procedure TServerHandleThread.Execute;

begin

 inherited;

 FreeOnTerminate:=True;

  try

   Synchronize(HandleInput);

 finally

   Free;

 end;

end;

 

procedure TServerHandleThread.HandleInput;

var

 command,content:String;

begin

  try

   command:=Copy(Mstr,0,5);

   content:=AnsiReplaceStr(Mstr,command,'');

   if command='_SOR_' then

   begin

     OptionPage.fornewscores(content);

   end

   else if command='_INF_' then

   begin

     OptionPage.forconnectchange(StrToIntDef(content,0),True);

   end

   else if command='_DIS_' then

   begin

     OptionPage.forconnectchange(StrToIntDef(content,0),False);

   end;

 except

 end;

end;

 

end.

 

 

 

Tcpserver.OnExecute

var

 temp:TStringStream;

 Dstr:string;

 mythread:TServerHandleThread;

begin

 temp:=TStringStream.Create('');

  try

   with AThread.Connection do

   begin

     ReadStream(temp);

     temp.Position:=0;

     Dstr:=temp.DataString;

   end;

 finally

   temp.Free;

 end;

 

 mythread:=TServerHandleThread.Create(False,Dstr);

End;

在execute中先由線程來接收，之後給新的線程來處理

現在我就想到這一個方法來處理    不知道會不會有bug