Einzelnen Beitrag anzeigen

Astat

Registriert seit: 2. Dez 2009
Ort: München
320 Beiträge
 
Lazarus
 
#9

Re: Funktion aus DLL (in C++ geschrieben) nach Delphi import

  Alt 13. Dez 2009, 23:34
Hallo STaRDoGGCHaMP.

Probier einfach mal folgendes durch:

Delphi-Quellcode:

type
  TPoint = packed record
    x: Integer;
    y: Integer;
  end;

type
  PMove = ^TMove;
  TMove = packed record
    nJumps : Integer;
    nNewPiece : Integer;
    nOldPiece : Integer;
    pfrom : TPoint;
    pto : TPoint;
    pPath : array [0..11] of TPoint;
    pdel : array [0..11] of TPoint;
    nDelPiece : array [0..11] of Integer;
  end;

  TBoard = array [0..7, 0..7] of Integer;
  TStr = array [0..254] of Char;

var
  GetMove: function(Board: TBoard; color: Integer; maxtime: Double; str: TStr;
    var playnow: Integer; info: Integer; unused: Integer;
      move: PMove): Integer stdcall;

  GetMoveEx: function(Board: TBoard; color: Integer; maxtime: Double; str: TStr;
    var playnow: Integer; info: Integer; unused: Integer;
      move: PMove): Integer cdecl;
Dynamische arrays von Delphi nach C sind problematisch, wie soll C die länge wissen?
Womöglich spielt Alignment (hier 32 Bit) eine Rolle, wenn C z.B. über Offset (Index) auf die Struct Inhalte zugreift?
Wenn man den C Source nicht kennt, immer annehmen das die Structs aligned sind (packed records verwenden).
Womöglich ist die Dll nicht stdcall sondern cdecl?

lg. Astat
Lanthan Astat
06810110811210410503210511511603209711003210010110 9032084097103
03211611111604403209711003210010110903210010510103 2108101116122
11610103209010110510810103206711110010103210511003 2068101108112
10410503210310111509910411410510109810111003211910 5114100046
  Mit Zitat antworten Zitat