DLL und Komponenten

[Tim Henford]

es geht darum, dass die DLL auch mit anderen Programmierumgebung aufgerufen werden kann und die AdoConnection vereinfacht in einer DLL untergebracht ist...
Ich habe gelesen mit Datamoduls könnte das was werden?

Ich habe es folgendermaßen probiert nach A.Kosch:

Delphi-Quellcode:

library ADOinDLL;

uses
SysUtils, Windows, Classes, ActiveX,
ADOinDLL_DM in 'ADOinDLL_DM.pas' {DataModule1: TDataModule};

{$R *.res}

procedure ShowData; stdcall;
var
iCount : Integer;
begin
CoInitialize(nil);
try
DataModule1 := TDataModule1.Create(nil);
try
DataModule1.ADOConnection1.Connected := True;
DataModule1.ADODataSet1.Active := True;
iCount := DataModule1.ADODataSet1COLUMN1.Value;
DataModule1.ADODataSet1.Active := False;
DataModule1.ADOConnection1.Connected := False;
finally
DataModule1.Free;
end;
finally
CoUninitialize;
end;
MessageBox(0, PChar(IntToStr(iCount)), 'SELECT Count(*) FROM Categories', 0);
end;

exports
ShowData;

begin
end.

Der Client ruft die exportierte Schnittstellenprozedur der dynamisch importierten DLL auf:

Delphi-Quellcode:

type
TShowData = procedure;
var
aShowData : TShowData;

procedure TForm1.Button1Click(Sender: TObject);
var
hDLL : THandle;
begin
hDLL := LoadLibrary('C:\Ablage\ADOinDLL.dll');
if hDLL = 0 then
begin
ShowMessage('DLL kann nicht geladen werden');
Abort;
end;
@aShowData := GetProcAddress(hDLL, 'ShowData');
if Assigned(aShowData) then
aShowData;
FreeLibrary(hDLL);
end;

Doch bei mir kommt da permanent Exception EOLEException in module...?

...ok korrektur ...nun klappts, es lag an der adoconnection...