vcl-dxmdaset-dot-tdxcustommemdata-dot-savetostream-x28-system-dot-classes-dot-tstream-x29.md
Saves stored data to a stream.
procedure SaveToStream(AStream: TStream); dynamic;
| Name | Type | Description |
|---|---|---|
| AStream | TStream |
The target stream.
|
Call the SaveToStream procedure to save all stored dataset records to a stream.
The following code example copies data between two memory-based datasets through a stream:
var
AStream: TMemoryStream;
begin
AStream := TMemoryStream.Create; // Creates a memory stream
try
dxMemData1.SaveToStream(AStream); // Saves data from the first dataset to the created stream
AStream.Position := 0; // Resets the current position to 0 after a data save operation
dxMemData2.DisableControls; // Disables data synchronization with bound controls
try
dxMemData2.LoadFromStream(AStream); // Loads previously saved data to the second dataset
finally
dxMemData2.EnableControls; // Re-enables data synchronization with bound controls
finally
AStream.Free; // Releases the memory stream regardless of the operation's success
end;
TMemoryStream *AStream;
// ...
AStream = new TMemoryStream(); // Creates a memory stream
try
{
dxMemData1->SaveToStream(AStream); // Saves data from the first dataset to the created stream
AStream->Position = 0; // Resets the current position to 0 after a data save operation
dxMemData2->DisableControls(); // Disables data synchronization with bound controls
try
dxMemData2->LoadFromStream(AStream); // Loads previously saved data to the second dataset
__finally
{
dxMemData2->EnableControls(); // Re-enables data synchronization with bound controls
}
}
__finally
{
delete AStream; // Releases the memory stream regardless of the operation's success
}
See Also
TdxCustomMemData.SaveToBinaryFile Procedure
TdxCustomMemData.SaveToStrings Procedure