Subject | TIB_MetadataDialog raises AV error |
---|---|
Author | Fabiano |
Post date | 2002-05-16T11:59:22Z |
Hi All.
IBO 4.2Gc
When I tried to use TIB_MetadataDialog I've got an AV error.
Altering TfrmMetadataExtract as below work for me:
TfrmMetadataExtract = class(TfrmBase)
..
..
private
..
..
protected
// ===== Override ancestor SetConnection
procedure SetConnection( AValue: TIB_Connection ); override;
public
{ Public declarations }
end;
implementation
procedure TfrmMetadataExtract.FormCreate(Sender: TObject);
var
tmpOpt: TIB_DDLCodeOption;
tmpEnt: TIB_DDLExtractType;
begin
// Initialise the controls from Metadata instance at startup.
FInternalUpd := true;
try
// Setting Metadata.IB_Connection here does not work
//Metadata.IB_Connection := BaseConnection;
..
..
end;
procedure TfrmMetadataExtract.SetConnection( AValue: TIB_Connection );
begin
inherited;
Metadata.IB_Connection := AValue;
end;
Best regards
Fabiano Rezende
IBO 4.2Gc
When I tried to use TIB_MetadataDialog I've got an AV error.
Altering TfrmMetadataExtract as below work for me:
TfrmMetadataExtract = class(TfrmBase)
..
..
private
..
..
protected
// ===== Override ancestor SetConnection
procedure SetConnection( AValue: TIB_Connection ); override;
public
{ Public declarations }
end;
implementation
procedure TfrmMetadataExtract.FormCreate(Sender: TObject);
var
tmpOpt: TIB_DDLCodeOption;
tmpEnt: TIB_DDLExtractType;
begin
// Initialise the controls from Metadata instance at startup.
FInternalUpd := true;
try
// Setting Metadata.IB_Connection here does not work
//Metadata.IB_Connection := BaseConnection;
..
..
end;
procedure TfrmMetadataExtract.SetConnection( AValue: TIB_Connection );
begin
inherited;
Metadata.IB_Connection := AValue;
end;
Best regards
Fabiano Rezende