procedure TForm1.btn3Click(Sender: TObject);
var
lDataSet:IDADataSet;
lConnection:IDAConnection ;
stream: Binary;
mytbl:TDAMemDataTable ;
begin
mytbl :=tbl1;
lConnection := DAConnectionManager.NewConnection(DAConnectionManager.Connections[0].Name);
lDataSet := lConnection.NewDataset('select * from db_ip', 'SQLResult');
lDataSet.Open ;
with mystreamer do
try
stream := Binary.Create;
// Writes the data
Initialize(stream, aiWrite);
WriteDataset(lDataSet, [woSchema,woRows], -1);
Finalize;
// End of write data
mytbl.Close ;
mytbl .RemoteFetchEnabled :=False;
mytbl.LocalSchema :=nil;
mytbl.LocalDataStreamer :=nil;
//read
Initialize(stream, aiReadFromBeginning);
ReadDataset('SQLResult', mytbl, true);
Finalize;
//end
finally
stream.Free;
end;
end;
end.
