Wiec.........
tego typu problem, chce wyrzucic do DLL'elek wszystkei formy z programu nie ważne dla czego, powiedzmy ze widze w tym jakis cel...:)
Aplikacja jest bazodanowa, na pierwszej (i jak dobrze pójdzie jedynej w samym programie) mam komponent bazodanowy IBDataBase, który łaczy mi sie z bazą i takie tam. Chcę aby na podstawie tego komponentu działały wszystikie komponenty bazodanowe w bibliotekach. I wszystko mi sumie działa....ale..........
wiec tak... po stronie programu jest nie za wiele
wywołuje procedure z DLL tworzącą formę i przypisuje jej uchwyt aplikacji oraz w/w kompnent IBDataBase;
procedure stworzForme(AppHandle: integer; BAZA : TIBDataBase); stdcall external 'formadll.dll';
tak ją wywołuję
stworzForme(Application.Handle, IBBaza);
po stronie DLL wygląda to tak:
procedure stworzForme(AppHandle: integer; BAZA : TIBDataBase);stdcall;
begin
Application.Handle := AppHandle;
dllForm:=TDLLForm.Create(Application);
dllForm.Bazunia:=TIBDataBase.Create(dllForm);
dllForm.Bazunia:=Baza;
dllForm.IBQuery1.Database:=dllForm.Bazunia;
dllForm.IBQuery1.Open;
dllForm.ShowModal;
dllForm.IBQuery1.Close;
dllForm.Free;
end;
i wszystko smiga jak burza tyle ze po zakonczeniu działania programu wywala mi acces vaiolation itp...
chyba ze nie dam OPEN dla IBQuery to smiga bez błędów....
z góry dzieki za pomoc