Guten Morgen,
ich habe eine DLL (zum ansteuern eines USB Gerätes) wie folgt eingebunden:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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.

markieren

Code:

INT32*

Der Stern kennzeichnet die Variable als einen Pointer.

Versuchs mal mit:
PInteger bei der Funktionsdeklaration und

Error := GetUSBDeviceInfo(@UsbDevices, SerialNumber, @LenSerialNumber); beim Aufruf.

Ich würde var xy Integer benutzen.

Korrekt ist:

markieren

Delphi-Quellcode:

unit USB_DLL;

interface
function GetUSBDeviceInfo(var UsbDevices: Longint; SerialNumber: PChar; var LenSerialNumber: Longint): Longint; stdcall;

implementation

function GetUSBDeviceInfo; external 'USBCAL.DLL' name 'GetUSBDeviceInfo';

end.

Aufruf:

markieren

Delphi-Quellcode:

var
  SerialNumber: array [0..255] of Char;
  UsbDevices: Longint;
  LenSerialNumber: Longint;
begin
  LenSerialNumber := SizeOf(SerialNumber);
  GetUSBDeviceInfo(UsbDevices, SerialNumber, LenSerialNumber);
end;

Das geht von der Voraussetzung aus das die Funktion Infos ueber genau ein Device liefert.
Es koennte sein das der Parameter UsbDevices von einer anderen Funktion ausgefuellt worden sein muss.
Auf jeden Fall soll hier ein Puffer mit einem C String gefuellt werden. Dazu muss man der Funktion in LenSerialNumber mitteilen wie gross der Puffer ist.
Hinterher traegt die Funktion offensichtlich in LenSerialNumber ein wieviele Bytes sie in den Puffer kopiert hat.

jetzt funzts! Danke!
Ich denke es lag an dem fehlenden VAR vor den Longints!

Gruß
Stephan