This worked well with the 3.55 branch.
Code: Select all
fMyConnection:=TMyConnection.Create(nil);
try
with fMyConnection do
Begin
loginprompt:=false;
pooling:= TCustomMyDataSet(ADataset).Connection.pooling;
PoolingOptions := TCustomMyDataSet(ADataset).Connection.PoolingOptions;
Server := TCustomMyDataSet(ADataset).Connection.Server;
Username := TCustomMyDataSet(ADataset).Connection.Username;
Password := TCustomMyDataSet(ADataset).Connection.Password;
Database := TCustomMyDataSet(ADataset).Connection.Database;
IsolationLevel := TCustomMyDataSet(ADataset).Connection.IsolationLevel;
Port := TCustomMyDataSet(ADataset).Connection.port;
ConnectionTimeout := TCustomMyDataSet(ADataset).Connection.ConnectionTimeout;
options := TCustomMyDataSet(ADataset).Connection.options;
//connect;
End;How can I solves this (this property moved from public to private ?)Port := TCustomMyDataSet(ADataset).Connection.port;
options := TCustomMyDataSet(ADataset).Connection.options;
Connection:= TCustomMyDataSet(ADataset).Connection;
Best Regards
Stephane Wierzbicki