Delphi 7 + Indy 10.0.52

Server端的代码
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPServer.Active := True;
end;
procedure TForm1.IdTCPServerExecute(AContext: TIdContext);
var
Stream: TIdStreamVCL;
aStream: TMemoryStream;
begin
if AContext.Connection.IOHandler.ReadLn = 'str' then
AContext.Connection.IOHandler.WriteLn('this is string');
if AContext.Connection.IOHandler.ReadLn = 'stream' then
begin
aStream := TMemoryStream.Create;
Stream := TIdStreamVCL.Create(aStream);
AContext.Connection.IOHandler.Write(Stream);
Stream.Free;
aStream.Free;
end;
end;

Client端代码
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TIdStreamVCL;
aStream: TMemoryStream;
begin
IdTCPClient.Host := '127.0.0.1';
IdTCPClient.Port := 1911;
IdTCPClient.Connect;
IdTCPClient.IOHandler.WriteLn('str');
Caption := IdTCPClient.IOHandler.Readln;
IdTCPClient.IOHandler.WriteLn('stream');
aStream := TMemoryStream.Create;
Stream := TIdStreamVCL.Create(aStream);
IdTCPClient.IOHandler.ReadStream(Stream);
Stream.Free;
aStream.Free;
IdTCPClient.Disconnect;
end;


通过string类型可以相互传输,TMemoryStream类型无法传输.请问是什么问题???
详细代码请看附件.

------
要学的东西太多~

附加檔案：490ec3c0b3668_WS.rar