Versuch es mal so...
Delphi-Quellcode:
type
octopus_context = packed record
usb_handle : integer;
error_str : pchar;
end;
Poctopus_context = ^octopus_context;
function octopus_init(context: Poctopus_context): integer; stdcall; external 'octopus.dll';
function octopus_open(context: Poctopus_context): integer; stdcall; external 'octopus.dll';
Aufruf...
Delphi-Quellcode:
var context:Poctopus_context;
begin
new(context);
try
if octopus_init(context) = 0
then
raise Exception.Create(context.error_str);
if octopus_open(context) < 0
then
raise Exception.Create(context.error_str);
finally
dispose(context);
end;
end;
Das Init läuft durch, beim Open erhalte ich die folgende Meldung: "could not found octopus device with pid and vid". Diese Meldung ist ja schonmal vielversprechend, ich habe ja auch kein Gerät. Aber es kommt eben auch keine
Access Violation mehr.