AThread.Connection.ReadStream写的对不对 接收不到东西呢？解决方法

AThread.Connection.ReadStream写的对不对 接收不到东西呢？

Delphi(Pascal) code

begin//发MyStream:=TMemoryStream.Create;MyStream.Write(TempStr[1],Length(TempStr));MyStream.Position:=0;i:=MyStream.size;//发的大小AThread.WriteInteger(i);AThread.WriteStream(MyStream);MyStream.Free;end;begin//接RStream := TMemoryStream.Create;Size := AThread.Connection.ReadInteger;AThread.Connection.ReadStream(RStream, Size, true); //FalseRStream.Position := 0;Setlength(TempStr, RStream.Size);RStream.Read(TempStr[1], RStream.Size);Memo3.Lines.Text := TempStr; end;

Memo3.Lines.Text接不到东西.是不是我写错了...帮看一下....


我刚才试了一下.我把Client窗体关了.
srever窗体的Memo3.Lines.Text接到了.
为什么？


[解决办法]
RStream:Tstringstream;

查看更多 下一篇