Hallo zusammen,
ich habe ein DataModul in eine
DLL gepackt. Nun möchte ich beim Starten meines Programms dieses Modul initialisieren. Im OnCreate-Ereignis vom DataModule habe ich folgendes stehen :
Delphi-Quellcode:
procedure TDM_Firebird.DataModuleCreate(Sender: TObject);
begin
with ZConnection do
begin
Hostname := ReadFromRegistryString(HKEY_CURRENT_USER, APPNAME, 'DBServer');
Database := ReadFromRegistryString(HKEY_CURRENT_USER, APPNAME, 'Database');
User := ReadFromRegistryString(HKEY_CURRENT_USER, APPNAME, 'DBUsername');
Password := ReadFromRegistryString(HKEY_CURRENT_USER, APPNAME, 'DBPassword');
Port := StrToInt(ReadFromRegistryString(HKEY_CURRENT_USER, APPNAME, 'DBPort'));
Connect;
end;
end;
Ich möchte nun, dass genau diese Procedure ausgeführt wird. Wie mache ich das ?
Mein Versuch :
DM_Firebird := TM_Firebird.Create(nil);
Wennich diese Zeile nun in eine seperate Procedure oder zwischen begin und end von der
DLL schreibe, kommt beim Starten immer kein gültiger Integer-Wert.
Zitat
Baum-Darstellung
