DLL funktion wohl nicht ganz korrekt nach Delphi portiert...

[FriFra]

Zitat von sx2008:

Der Datentyp für "Errorcode" passt auch nicht ganz:

Delphi-Quellcode:

function Unlock_Device(net_id: Byte; szPassword: PChar; var Errorcode: Byte):
  integer; stdcall; external 'EASY_COM.DLL' name 'Unlock_Device';

Doch, der passt schon... Das muss ein Pointer auf einen Byte-Wert sein.
function Unlock_Device(net_id: Byte; szPassword: PChar; Errorcode: Pointer): integer; stdcall; external 'EASY_COM.DLL' name 'Unlock_Device'; folgende Funktion läuft bei mir auch:
function Lock_Device(net_id: Byte; Errorcode: Pointer): integer; stdcall;external 'EASY_COM.DLL' name 'Lock_Device'; Der einzige Unterschied ist das Passwort... die Unlock-Funktion kommt einfach nicht mit dem übergebenen PChar klar.