Guten Morgen,
ich habe eine
DLL (zum ansteuern eines USB Gerätes) wie folgt eingebunden:
Delphi-Quellcode:
unit USB_DLL;
interface
function GetUSBDeviceInfo(UsbDevices:longint;SerialNumber:pchar;LenSerialNumber:longint): longint;
stdcall;
implementation
function GetUSBDeviceInfo(UsbDevices:longint;SerialNumber:pchar;LenSerialNumber:longint): longint;
stdcall;
external '
USBCAL.DLL'
name '
GetUSBDeviceInfo'
end.
Den Quellcode der
DLL habe ich leider nicht.
Vom Hersteller hab ich folgende information:
Zitat:
Functions declared in USBCAL.dll:
Language C:
INT32 CALLBACK GetUSBDeviceInfo(INT32* UsbDevices,char* SerialNumber,INT32* LenSerialNumber);
Language VB5:
Declare Function GetUSBDeviceInfo Lib "usbcal.dll" _(UsbDevices As Long, _ ByVal SerialNumberDev1 As String, _ LenSerialNumber As Long, _ ) As Long
Wenn ich mit meinem Mauszeiger auf die funtion "GetUSBDeviceInfo" fahre erhalte ich folgenden HINT:
Zitat:
func USB_DLL.GetUSBDeviceInfo:funtion(UsbDevices:interg er;SerialNumber:pansichar;LenSerialNumber:integer) :integer - USB_DLL.pas
Sagt mir dieser Hint bereits das er die Funktion in der
DLL gefunden hat? oder schreibt er einfach nochmal meine fct. in "anderen Worten" hin?
Mein Funktionsaufruf im Programm sieht so aus:
Delphi-Quellcode:
var
Form1: TForm1;
Error: longint;
UsbDevices:longint;
SerialNumber:array[0..128] of Char;
LenSerialNumber:longint;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
NumberUsbDevices:=1;
SerialNumberDev1:= '';
LenSerialNumber:= length(SerialNumber);
Error:=GetUSBDeviceInfo(UsbDevices,SerialNumber,LenSerialNumber);
end;
Leider bekomme ich beim Aufruf eine AccesViolation. Warum? Habe ich die Parameter falsch übergeben oder vielleicht sogar die
DLL schon falsch eingebunden?
Kann mir da einer einen Tipp geben wie ich weiter komme?
Zur
DLL habe ich auch ein funktionierenden Besipielcode in VB5. Das könnt ich auch noch anbieten falls mir damit einer weiterhelfen kann.