TynSerial流的序列(还原)
TynSerial流的序列(还原)
procedure TForm1.ToolButton18Click(Sender: TObject); var serial: TynSerial; ms, ms2: TMemoryStream; begin serial := TynSerial.Create; ms:=TMemoryStream.Create; ms2:=TMemoryStream.Create; serial.WriteStream('stream', ms); // 序列 serial.ReadStream('stream', ms2); // 还原 ms.Free; ms2.Free; serial.Free; end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/10972525.html