funtion einer dll aufrufen

[mymuschy]

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.