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...