Wed, 18 Jun 1902 08:00:00 GMT
D3.Pdx D2-->D3 partial migration problem
Hello ! There is a "refined" problem. Really the part of source project in BC++5.02. Those who have D2 & D3 on computer can reproduce it. Make a simple dll in D3 - 'DBDll.dll': type TDataModule1 = class(TDataModule) Database1: TDatabase; procedure DataModule1Create(Sender: TObject); end; var DataModule1: TDataModule1; procedure OpenMyDB; stdcall; export; implementation {$R *.DFM} procedure OpenMyDB; begin DataModule1:= TDataModule1.Create(nil); end; procedure TDataModule1.DataModule1Create(Sender: TObject); begin Database1.Open; end; Make a simple project in D2 : type TForm1 = class(TForm) Button1, Button2: TButton; DBGrid1: TDBGrid; Database1: TDatabase; Table1: TTable; DataSource1: TDataSource; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.DFM} procedure OpenMyDB stdcall; external 'DBDll.dll'; procedure TForm1.Button1Click(Sender: TObject); begin Database1.Open; //--- EXCEPTION "Capability not supported" Table1.Open; end; procedure TForm1.FormCreate(Sender: TObject); begin OpenMyDB; //If this line commented then all works normally end; procedure TForm1.Button2Click(Sender: TObject); begin Table1.Close; Database1.Close; end; Questions: 1. What is this capability and why it is not supported? 2. What I must do or setup in D3 to avoid this problem? Thanks in advance. -- Sincerely yours, . Alyavdin VAST Inc.
|