Moin moin
So, also hab jetzt mal folgendes gemacht:
die Funktion Readdata sieht in der
DLL bei mir jetzt so aus:
Delphi-Quellcode:
function Readdata:Integer;stdcall;
begin
result:=treiber_readdata(hTreiber);
end;
Die Funktion gibt jetzt einen Integer-Wert zurück. Sprich das 'inttostr' musst du dann beim Aufrufen davor setzen..
Analog dazu die Einbindung:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages,..
.
.
procedure Open_Driver;
stdcall;
procedure Close_Driver;
stdcall;
function Readdata:Integer;
stdcall;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure Open_Driver;
stdcall;
external '
treiber2_project.dll';
procedure Close_Driver;
stdcall;
external '
treiber2_project.dll';
function Readdata:Integer;
stdcall;
external '
treiber2_project.dll';
.
.
.
Auch hier von String auf Integer gewechselt, so hatte ich keine Fehlermeldung mehr...schau mal ob dir das hilft
schönen Gruß
Sam