TBufDataset SaveToStream and LoadFromStream, how?
lazarus / 16-Databases

----------------------------------------------------------------------
tatamata · 2020-02-10 20:17

Hello,
Could somebody please provide full example how to save TBufDataset to
a file stream and how to load back from a saved file stream?

----------------------------------------------------------------------
lucamar · 2020-02-10 21:08

Canonical example: The standard implementation of SaveToFile and
LoadFromFile (in $FPCSource/packages/fcl-db/src/base/bufdataset.pas):

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TCustomBufDataset.LoadFromFile(AFileName: string; Format:
TDataPacketFormat);var AFileStream : TFileStream;begin  if
AFileName='' then AFileName := FFileName;  AFileStream :=
TFileStream.Create(AFileName,fmOpenRead);  try   
LoadFromStream(AFileStream, Format);  finally    AFileStream.Free; 
end;end; procedure TCustomBufDataset.SaveToFile(AFileName: string; 
Format: TDataPacketFormat);var AFileStream : TFileStream;begin  if
AFileName='' then AFileName := FFileName;  AFileStream :=
TFileStream.Create(AFileName,fmCreate);  try   
SaveToStream(AFileStream, Format);  finally    AFileStream.Free; 
end;end;