TBufDataset error: The data-stream format is not recognized
lazarus / 16-Databases

----------------------------------------------------------------------
travain · 2020-11-20 17:50

The problem occurs when loading data from a query via TMemoryStream.
But only with Lazarus on 64-bit operating system. Linux or Windows.

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        
try           bufTable := TBufDataset.Create( Form1 );          
 msData := TMemoryStream.Create;            qry_Table.SaveToStream(
msData, dfBinary );           bufTable.LoadFromStream( msData,
dfBinary );            bufTable.Open;            Label1.Caption :=
Format('Count: %d | Records loaded: %d', [iCount,
bufTable.RecordCount]);            Inc( iCount );         except     
    on e: exception do begin              //--             
Memo_Error.Lines.Text := '>>> Error <<<' + sLineBreak +             
'..:: Exception message ::..' + sLineBreak + e.Message;             
//--           end; { exception }        end;

----------------------------------------------------------------------
marcov · 2020-11-20 18:05

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
 qry_Table.SaveToStream( msData, dfBinary );msData.position:=0;      
   bufTable.LoadFromStream( msData, dfBinary );

----------------------------------------------------------------------
travain · 2020-11-20 18:43

Thanks for help.