TynSerial流的序列（还原）

2024-08-27 11:14:38

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;

　　

最新文章

热门文章