DLL einbinden octopus.dll

[multi-man]

Hallo !

Ich habe folgendes Problem :

Ich habe einen OctopusUSB ( Hier der Link )
Das ist ein Ein/Ausgabe Interface für den Anschluss an USB. Ich habe es mir bestellt, da ich dachte, ich bekomme es auch mit Delphi angesteuert, allerdings komme ich nicht richtig weiter...

Dabei ist eine octopus.dll
Diese exportiert unter anderem eine Funktion "octopus_init" :

Code:

/*
 * initial octopus handle before use octopus_open
 */
int octopus_init(struct octopus_context *octopus)
{
   if (octopus == NULL)
      octopus_error_return(-1,"octopus not valid");

   octopus->error_str = NULL;
   octopus->usb_handle = NULL;
  
   return 1;
}

Dass ich diese mit
function octopus_init(context: octopus_context): integer; external 'octopus.dll'; aufrufen kann ist klar, aber was mache ich eben mit den Übergabewert "*octopus" ?

Das struct octopus_context ist wie folgt definiert :

Code:

struct octopus_context {
   // USB specific
   /// libusb's usb_dev_handle
   struct usb_dev_handle *usb_handle;

   /// String representation of last error
   char *error_str;
};

Ich habe es versucht mit folgendem record zu übersetzen :

Delphi-Quellcode:

  usb_device_handle = Record
  end;

  octopus_context = record
      usb_handle : usb_device_handle;
      error_str : string;
  end;

aber der Inhalt bleibt leer, und sobald ich eine andere Funktion aufrufen möchte, kommt eine exception ...

Ich hoffe mir kann jemand helfen

mfg
Chris