Funktion aus DLL (in C++ geschrieben) nach Delphi importiere

[STaRDoGGCHaMP]

Hallo erneut,
Erst einmal vielen Dank für die Antwort Astat, das mit dem Char array war wohl der entscheidende Punkt welcher für die Zugriffsverletzung sorgte. Wenn ich das Programm jetz so ausführe:

Delphi-Quellcode:

program TestpadConsole;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

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..1023] of Char;

const
  PGC_WHITE = 1;
  PGC_BLACK = 2;
  PGC_MAN = 4;
  PGC_KING = 8;

var hDll: THandle;
    nBoard: TBoard;
    playnow: Integer = 1;
    str: TStr;
    Move: TMove;
    GetMove: function(var Board: TBoard; color: Integer; maxtime: Double; str: TStr;
                      var playnow: Integer; info: Integer; unused: Integer;
                      move: PMove): Integer; stdcall;

begin
  try
    hDll := LoadLibrary('C:\..\cakeM32.dll');
    if hDll <> 0 then begin
      @GetMove := GetProcAddress(hDll, 'getmove');
      if Assigned(@GetMove) then begin
        nBoard[0, 0] := PGC_BLACK OR PGC_MAN;
        nBoard[0, 1] := 0;
        nBoard[0, 2] := PGC_BLACK OR PGC_MAN;
        nBoard[0, 3] := 0;
        nBoard[0, 4] := 0;
        nBoard[0, 5] := 0;
        nBoard[0, 6] := PGC_WHITE OR PGC_MAN;
        nBoard[0, 7] := 0;
        nBoard[1, 0] := 0;
        nBoard[1, 1] := PGC_BLACK OR PGC_MAN;
        nBoard[1, 2] := 0;
        nBoard[1, 3] := 0;
        nBoard[1, 4] := 0;
        nBoard[1, 5] := PGC_WHITE OR PGC_MAN;
        nBoard[1, 6] := 0;
        nBoard[1, 7] := PGC_WHITE OR PGC_MAN;
        nBoard[2, 0] := PGC_BLACK OR PGC_MAN;
        nBoard[2, 1] := 0;
        nBoard[2, 2] := PGC_BLACK OR PGC_MAN;
        nBoard[2, 3] := 0;
        nBoard[2, 4] := 0;
        nBoard[2, 5] := 0;
        nBoard[2, 6] := PGC_WHITE OR PGC_MAN;
        nBoard[2, 7] := 0;
        nBoard[3, 0] := 0;
        nBoard[3, 1] := PGC_BLACK OR PGC_MAN;
        nBoard[3, 2] := 0;
        nBoard[3, 3] := 0;
        nBoard[3, 4] := 0;
        nBoard[3, 5] := PGC_WHITE OR PGC_MAN;
        nBoard[3, 6] := 0;
        nBoard[3, 7] := PGC_WHITE OR PGC_MAN;
        nBoard[4, 0] := PGC_BLACK OR PGC_MAN;
        nBoard[4, 1] := 0;
        nBoard[4, 2] := PGC_BLACK OR PGC_MAN;
        nBoard[4, 3] := 0;
        nBoard[4, 4] := 0;
        nBoard[4, 5] := 0;
        nBoard[4, 6] := PGC_WHITE OR PGC_MAN;
        nBoard[4, 7] := 0;
        nBoard[5, 0] := 0;
        nBoard[5, 1] := PGC_BLACK OR PGC_MAN;
        nBoard[5, 2] := 0;
        nBoard[5, 3] := 0;
        nBoard[5, 4] := 0;
        nBoard[5, 5] := PGC_WHITE OR PGC_MAN;
        nBoard[5, 6] := 0;
        nBoard[5, 7] := PGC_WHITE OR PGC_MAN;
        nBoard[6, 0] := PGC_BLACK OR PGC_MAN;
        nBoard[6, 1] := 0;
        nBoard[6, 2] := PGC_BLACK OR PGC_MAN;
        nBoard[6, 3] := 0;
        nBoard[6, 4] := 0;
        nBoard[6, 5] := 0;
        nBoard[6, 6] := PGC_WHITE OR PGC_MAN;
        nBoard[6, 7] := 0;
        nBoard[7, 0] := 0;
        nBoard[7, 1] := PGC_BLACK OR PGC_MAN;
        nBoard[7, 2] := 0;
        nBoard[7, 3] := 0;
        nBoard[7, 4] := 0;
        nBoard[7, 5] := PGC_WHITE OR PGC_MAN;
        nBoard[7, 6] := 0;
        nBoard[7, 7] := PGC_WHITE OR PGC_MAN;
        GetMove(nBoard, PGC_BLACK, 5, str, playnow, 0, 0, @Move);
        Sleep(6000);
      end;
      FreeLibrary(hDll);
    end;
  except
    on E: Exception do begin
      Writeln(E.ClassName, ': ', E.Message);
      Sleep(5000);
    end;
  end;
end.

(Man entschuldige hierbei den großen Code wegen der aufwendigen Deklaration von nBoard, aber ich wollte einfach mal den kompletten Code reinhauen, damit man auch wirklich jede potentielle Fehlerquelle erkennen kann). Krieg ich als Fehler "Ungültige Gleitkommaoperation". Also anscheinend ein Problem in der Funktion selber. Trotzdem ist das sehr merkwürdig, weil dass als Open-Source vorhandene C++-Äquivalent fehlerfrei funktioniert:

Code:

#define WHITE 1
#define BLACK 2
#define MAN 4
#define KING 8
#include <iostream>
#include <windows.h>
using namespace std;

struct coor             
   {
   int x;
   int y;
   };

struct CBmove               
   {
   int jumps;            
   int newpiece;        
   int oldpiece;        
   struct coor from,to;
   struct coor path[12];
   struct coor del[12]; 
   int delpiece[12];    
   } GCBmove;

typedef INT (WINAPI* PROC1)(int *board, int color, double maxtime, char str[1024], int *playnow, int info, int unused, struct CBmove *move);


int main()
{
   PROC1 getmove1=0;
   HINSTANCE hinstLib1=0;
   char s[1024];
   int playnow = 1;
   int nBoard[8][8];
   struct CBmove LCBmove;
   int x, y;

   hinstLib1 = LoadLibraryA("C:\\..\\cakeM32.dll");
   getmove1 =  (PROC1)GetProcAddress(hinstLib1, "getmove");
    nBoard[0][0] = BLACK | MAN;
   nBoard[0][1] = 0;
    nBoard[0][2] = BLACK | MAN;
    nBoard[0][3] = 0;
    nBoard[0][4] = 0;
    nBoard[0][5] = 0;
    nBoard[0][6] = WHITE | MAN;
    nBoard[0][7] = 0;
    nBoard[1][0] = 0;
    nBoard[1][1] = BLACK | MAN;
    nBoard[1][2] = 0;
    nBoard[1][3] = 0;
    nBoard[1][4] = 0;
    nBoard[1][5] = WHITE | MAN;
    nBoard[1][6] = 0;
    nBoard[1][7] = WHITE | MAN;
    nBoard[2][0] = BLACK | MAN;
    nBoard[2][1] = 0;
    nBoard[2][2] = BLACK | MAN;
    nBoard[2][3] = 0;
    nBoard[2][4] = 0;
    nBoard[2][5] = 0;
    nBoard[2][6] = WHITE | MAN;
    nBoard[2][7] = 0;
    nBoard[3][0] = 0;
    nBoard[3][1] = BLACK | MAN;
    nBoard[3][2] = 0;
    nBoard[3][3] = 0;
    nBoard[3][4] = 0;
    nBoard[3][5] = WHITE | MAN;
    nBoard[3][6] = 0;
    nBoard[3][7] = WHITE | MAN;
    nBoard[4][0] = BLACK | MAN;
    nBoard[4][1] = 0;
    nBoard[4][2] = BLACK | MAN;
    nBoard[4][3] = 0;
    nBoard[4][4] = 0;
    nBoard[4][5] = 0;
    nBoard[4][6] = WHITE | MAN;
    nBoard[4][7] = 0;
    nBoard[5][0] = 0;
    nBoard[5][1] = BLACK | MAN;
    nBoard[5][2] = 0;
    nBoard[5][3] = 0;
    nBoard[5][4] = 0;
    nBoard[5][5] = WHITE | MAN;
    nBoard[5][6] = 0;
    nBoard[5][7] = WHITE | MAN;
    nBoard[6][0] = BLACK | MAN;
    nBoard[6][1] = 0;
    nBoard[6][2] = BLACK | MAN;
    nBoard[6][3] = 0;
    nBoard[6][4] = 0;
    nBoard[6][5] = 0;
    nBoard[6][6] = WHITE | MAN;
    nBoard[6][7] = 0;
    nBoard[7][0] = 0;
    nBoard[7][1] = BLACK | MAN;
    nBoard[7][2] = 0;
    nBoard[7][3] = 0;
    nBoard[7][4] = 0;
    nBoard[7][5] = WHITE | MAN;
    nBoard[7][6] = 0;
    nBoard[7][7] = WHITE | MAN;
    (getmove1)((int*)nBoard,BLACK,5,s,&playnow,0,0,&LCBmove);
    for(y = 0; y <= 7; y++)
      for(x = 0; x <= 7; x++)
         cout << "nBoard[" << x << "][" << y << "] = " << nBoard[x][y] << endl;
   system("PAUSE");

   return 0;
}