Хочу сделать dll-ку позволяющую выполнять скрипты для базы данных
Компонент IBscript
Этот компонент имеет ряд событий которые на обычной форме(при двойном клике)
выглядят примерно так :
Код:
procedure TForm1.IBScript1ExecuteError(Sender: TObject; Error,
SQLText: String; LineIndex: Integer; var Ignore: Boolean);
begin
MyTexterror := SQLText; //какой то мой код
Ignore := MyFlIgnore;
//.....
end;
Вместе с ним используются копоненты IBDataBase и IBtransaction.
Делаю как положено :
Код:
var flerr : bool;
IDB : TIBDatabase;
TR : TIBTransaction;
SC : TIBScript;
.......
IDB := TIBDatabase.Create(nil);
TR := TIBTransaction.Create(nil);
SC := TIBScript.Create(nil);
DB.Connected := false;
DB.DatabaseName := FullDbPath;
DB.DefaultTransaction := TR;
и.т.д.....
TR.Active := false;
TR.DefaultDatabase := IDB;
и.т.д.....
SC.AutoDDL := (Avtoddl <> 0);
SC.Database := IDB;
SC.Transaction := TR;
SC.Script.Text := textscript;
SC.Terminator := sterm;
SC.OnExecuteError := ???????????????????
А дальше затык
Как создать и прописать код в обработчик события ?
Самое интересное что если это делать на форме то все работает, т.е
если прописать процедуру myproc вписать в нее свой код и тупо присвоить ее обработчику.
Собственно такая проблема возникает при создании любого обработчика любого компонента
где есть переменные, к которым нужно обратится
Подскажите кто знает.
Спасибо.