C++ DLL - Headerkovertierung und Funktionsaufruf

[DeddyH]

Ich habe es nun selbst versucht und dabei ist das hier heruasgekommen. Da ich aber nicht sonderlich viel Ahnung von C/C++ habe, kann das auch völliger Quatsch sein, probier es halt einmal.

Delphi-Quellcode:

type
  P_O2DRESULTOBJECT = ^T_O2DRESULTOBJECT;
  T_O2DRESULTOBJECT = packed record
    iModelId: integer;
    iPositionX: integer;
    iPositionY: integer;
    fRotation: single;
    fMatchQuality: single;
  end;

  P_O2DRESULT = ^T_O2DRESULT;
  T_O2DRESULT = packed record
    bOverallPass: T_BOOL;
    fOverallMatchQuality: single;
    iNrOfObjectsFound: integer;
    iObjectsFoundListSize: integer;
    objectsFoundList: P_O2DRESULTOBJECT;
    iImageSize: integer;
    image: PByte;
  end;
  
var
  O2dGetLastResult: function(iConnectionID: DWord; var decodingResult: T_O2DRESULT): integer; cdecl;
  
 procedure demo_O2dTriggerWithResults(con_id: Cardinal; const filename: string);
 const
   maxNumberOfObjects = 5;
   maxImageSize = 308278;
 var
   i, retval: integer;
   _result: T_O2DRESULT;
   detail: array[0..maxNumberOfObjects - 1] of T_O2DRESULTOBJECT;
   image: PByte;   
 begin
    _result.iObjectsFoundListSize := maxNumberOfObjects;
    _result.objectsFoundList := @detail[Low(Detail)];
    image := AllocMem(maxImageSize);
    try
      _result.image := image;
      _result.iImageSize := maxImageSize;
      retval := O2dGetLastResult(con_id, _result);
      for i := 0 to result.iObjectsFoundListSize - 1 do
        (* irgendwas machen *)
    finally
      FreeMem(image);
    end;
 end;

[MatuAC]

Nochmals vielen Dank für die Hilfe!!

Ich habe jetzt meinen Fehler gefunden - es lag nicht an den DLL-Aufrufen, das war wohl doch schon alles korrekt. Vielmehr hatte ich einen Fehler bei der weiteren Verarbeitung gemacht...

Da ich den ausgelesenen Bildinhalt in einem String haben wollte, hatte ich einfach folgende Zuweisung gemacht:
tmpstr := _result.image; Hat so erstmal ohne Fehler geklappt, da ich ja als _result.image den Typ PChar verwendet hatte.
Allerdings scheint hört Delphi beim umkopieren beim ersten Byte mit dem Wert "0" auf...
Ich mache es jetzt so:
copymemory(@tmpstr[1],_result.image,_result.iImageSize); und damit klappt es jetzt Es macht dann auch keinen Unterschied, ob ich PChar oder PByte verwende.

Gruß,
MatuAC

[DeddyH]

Naja, PChar ist ja so definiert, dass der enthaltene String mit dem ersten 0-Zeichen endet (deshalb heißt es ja "nullterminierter String"), darum war ich auf PByte umgestiegen (außerdem macht C/C++ IIRC keinen Unterschied zwischen Byte und Char, der Datentyp ist in beiden Fällen char).

[edit] Aus diesem Grund ist Deine Multiplikation mit SizeOf(Char) auch eigentlich falsch, da Du auf einem Unicode-Delphi doppelt so viel Speicher anfordern würdest wie tatsächlich benötigt werden. [/edit]

[MatuAC]

Grade wegen "nullterminierter String" war ich dann auch noch auf den Fehler gekommen - leider komme ich nur noch selten dazu, in Delphi programmieren zu können, deshalb hatte ich ersteinmal nicht mehr daran gedacht

Ich benutze noch das "Ur-Alt" Delphi 7... Vielleicht ist es bei neueren Delphi Versionen anders, aber bei mir bekomme ich bei SizeOf(Char) "1" zurück, somit war es hier auch kein Unterschied...

[DeddyH]

Sicher, bis einschließlich Delphi 2007 ist ein Char auch ein AnsiChar -> 1 Byte, ab Delphi 2009 ist das allerdings ein WideChar -> 2 Byte.