DLL + DataModule in Objektinspektor

[DirkG]

Wenn du den Code in einer Komponente verwenden willst, kannst du ein Feld für den DLL-Namen und ein Feld für die Tabelle vorsehen. Anstelle der String-Konstanten werden dann in der Fehlermeldung halt die Werte der Felder angezeigt.
Du kannst auch die Fehlermeldungen aus dem Code nehmen und darauf hoffen, das es ohne Fehler läuft.

Delphi-Quellcode:

library myDLL; 

uses 
  ShareMem, 
  MyDatenmodul in 'MyDatemodul.pas' {MyDatenmodul: TDataModule}, 
... 

{$R *.RES} 
    
var   DLLProcNext       : procedure(Reason: Integer); stdcall = nil; 
      bDoCoUninitialize : Boolean; 
      bDoDestroyDM_ADO  : Boolean; 

// ============================================================================ 
// Interne - Hilfsfunktionen 
// ============================================================================ 

// ---------------------------------------------------------------------------- 
// function DBInit: Integer; stdcall; 
// ---------------------------------------------------------------------------- 
// Funktion...: Alle Eemente der DLL initialisieren bzw erzeugen 
// Parameter..: keine 
// Erreichbar.: intern 
function DBInit: boolean; stdcall; 
begin 
  Result := true; 
  try; 
    //-- ActivX initialisieren ------------------------------------------------ 
    CoInitialize(nil); 
    bDoCoUninitialize := True; 
    //-- Datenmodul erzeugen -------------------------------------------------- 
    MyDatenmodul:= TMyDatemodul.Create(Application); 
  except
    Result := false; 
  end; 
end; 
// ---------------------------------------------------------------------------- 
// function DBUnInit: Integer; stdcall; 
// ---------------------------------------------------------------------------- 
// Funktion...: Datenmodul deinitialisieren 
// Parameter..: keine 
// Erreichbar.: intern 
function DBUnInit: boolean; stdcall; 
begin 
  Result            := true; 
  bDoCoUninitialize := false; 
  bDoDestroyDM_ADO  := false; 
  try 
    if bDoDestroyDM_ADO then 
      MyDatemodul.Free; 
    if bDoCoUninitialize then 
      CoUninitialize; 
  except 
    Result := false; 
  end; 
end; 
// ---------------------------------------------------------------------------- 
// procedure DLLMain(Reason: Integer); stdcall; 
// ---------------------------------------------------------------------------- 
// Funktion...: eigene Strukturen und Objekte initialisieren 
// Parameter..: [Reason] == Grund des Aufrufs 
// Erreichbar.: intern 
procedure DLLMain(Reason: Integer); stdcall; 
begin 
  case Reason of 
    //-- Die DLL wurde in den Speicherbereich des akt. Prozesses geladen ------ 
    DLL_PROCESS_ATTACH : begin 
      DisableThreadLibraryCalls(hInstance); 
      DBInit; 
    end; 
    //-- Der aktuelle Prozeß erzeugt einen neuen Thread ----------------------- 
    DLL_THREAD_ATTACH  : begin 
    end; 
    //-- Ein Thread wird beendet ---------------------------------------------- 
    DLL_THREAD_DETACH  : begin 
    end; 
    //-- Die DLL wird wieder aus dem Speicherbereich des akt.Prozesses entfernt 
    DLL_PROCESS_DETACH : begin 
      DBUnInit; 
    end; 
  end; 
  if Assigned(DLLProcNext) then DLLProcNext(Reason); 
end; 

// ============================================================================ 
// Initialisierungscode 
// ============================================================================ 
begin 
  DLLProcNext := Pointer(InterlockedExchange(Integer(DLLProc),Integer(@DLLMain))); 
  DLLMain(DLL_PROCESS_ATTACH); 
end.

Ein Problem stellt noch die Verwendung von ShareMem dar. Wenn du eine Komponente entwickelst, muss dem Anwender mitgeteilt werden, das er im Projekt die Unit ShareMem in der Projekt Datei einbinden muss. Ansonsten kommt es zu nicht nachzuvollziehbaren Fehlern.

Delphi-Quellcode:

program netguide;

uses
  ShareMem,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Ich habe bei mir nur eine Unit für die Allgemeine Verwendung des DM in einer DLL geschrieben. Die füge ich zu meinem Project hinzu, lege ein DM an und arbeite dann wie gewohnt in der IDE. Die DLL-Namen und Tabellen-Konstanten lege ich in einer Res oder Inc Datei ab, die ich mit folgendem Aufruf in das Project mit einbinde.

{$I 'meineKonstanten.inc'} Ich hoffe, das hilft dir weiter.