<P>Habe in Delphi 2.0 folgene DLL (zum Testen) geschrieben:</P>
<P>library SAS;<BR><BR>
uses<BR>
ShareMem, SysUtils, Classes;
<BR><BR>
function Addiere(i:Integer):Integer; stdcall;<BR>
begin<BR>
result:=i + 1<BR>
end;<BR><BR>
exports<BR>
Addiere;<BR><BR>
begin
end.</P>
<P>und sie folgendermaßen in ACCESS 2000 eingebunden:</P>
<BR>Option Compare Database<BR>
Private Declare Function Addiere Lib "C:\Test\SAS_2000_Neu\sas.dll" (ByVal i As Long)<BR><BR>
Sub Befehl38_Click()<BR>
Dim iA As Long<BR>
iA = Addiere(5)<BR>
MsgBox (iA)<BR>
End Sub<BR></P>
<P>Pfad in Declare ist genau der, in welcher sich aufrufende *.MDB-Datei befindet.<BR>
wurde auch ohne Pfadangabe getestet, doch jedes mal kommt <B>VB-Fehler:53
Datei "C:\Test\SAS_2000_Neu\sas.dll" bzw. "sas.dll" nicht gefunden</B>.<BR>
Schreibweise wurde auch x-mal überprüft.</P>
<P>Wer kann helfen?</P>
<BR>
mfg Wally
<P>library SAS;<BR><BR>
uses<BR>
ShareMem, SysUtils, Classes;
<BR><BR>
function Addiere(i:Integer):Integer; stdcall;<BR>
begin<BR>
result:=i + 1<BR>
end;<BR><BR>
exports<BR>
Addiere;<BR><BR>
begin
end.</P>
<P>und sie folgendermaßen in ACCESS 2000 eingebunden:</P>
<BR>Option Compare Database<BR>
Private Declare Function Addiere Lib "C:\Test\SAS_2000_Neu\sas.dll" (ByVal i As Long)<BR><BR>
Sub Befehl38_Click()<BR>
Dim iA As Long<BR>
iA = Addiere(5)<BR>
MsgBox (iA)<BR>
End Sub<BR></P>
<P>Pfad in Declare ist genau der, in welcher sich aufrufende *.MDB-Datei befindet.<BR>
wurde auch ohne Pfadangabe getestet, doch jedes mal kommt <B>VB-Fehler:53
Datei "C:\Test\SAS_2000_Neu\sas.dll" bzw. "sas.dll" nicht gefunden</B>.<BR>
Schreibweise wurde auch x-mal überprüft.</P>
<P>Wer kann helfen?</P>
<BR>
mfg Wally
Comment