Conversion de headers C vers Delphi / FreePascal

Version imprimable

Bjr à tous,

J'utilise une librairie DLL (phidgets21.dll), fournie avec un fichier d'entête C/C++.

Certaines fonctions de cette DLL ont un prototype de la forme:

Code:

1
2
 
__declspec (dllimport)   int __stdcall CPhidget_set_OnAttach_Handler (CPhidgetHandle phid, int (__stdcall * fptr) (CPhidgetHandle phid, void *userPtr), void *userPtr);

prototype dans lequel se trouve une fonction imbriquée dans la liste des paramètres.

Code:

1
2
3
4
5
6
 
type CInteger = type Integer;
type TFunctionStdCallFPtr      = function(phid: CPhidgetHandle; userPtr: Pointer): CInteger; stdcall;
type PTFunctionStdCallFPtr     = Pointer; //^TFunctionStdCallFPtr;
//...
 function CPhidget_set_OnAttach_Handler(phid: CPhidgetHandle; fptr: PTFunctionStdCallFPtr; userPtr: Pointer): CInteger; stdcall; external PHIDGETS_LIBRARY;

Jusqu'ici, aucun problème.

Maintenant, j'ai un autre callback contenant une fonction imbriquée, avec réutilisation du paramètre data:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
/**
 * Timestamp structure - usually initialized to 0.
 */
typedef struct _CPhidget_Timestamp
{
 int seconds;			/**< Number of seconds since timing began */
 int microseconds;		/**< Number of microseconds since last second passed - range is 0 - 999999 */
} CPhidget_Timestamp, *CPhidget_TimestampHandle;
//------------------
/**
 * Timestamped position data returned by the \ref CPhidgetSpatial_set_OnSpatialData_Handler event.
 */
     typedef struct _CPhidgetSpatial_SpatialEventData
     {
      double acceleration[3];	/**< Acceleration data for up to 3 axes. */
      double angularRate[3];   /**< Angular rate data (Gyroscope) for up to 3 axes */
      double magneticField[3];	 /**< Magnetic field data (Compass) for up to 3 axes */
      CPhidget_Timestamp timestamp;   /**< Hardware timestamp */
     } CPhidgetSpatial_SpatialEventData, *CPhidgetSpatial_SpatialEventDataHandle;
 
//...............
// 
__declspec (dllimport)
     int __stdcall CPhidgetSpatial_set_OnSpatialData_Handler (CPhidgetSpatialHandle phid,
							      int (__stdcall * fptr) (CPhidgetSpatialHandle phid, void *userPtr, CPhidgetSpatial_SpatialEventDataHandle * data, int dataCount),
							      void *userPtr);

Je sèche complètement sur deux points:

Alignement des structures
Comment traduire ce prototype en prototype Pascal

cdlt

salut

qu'est ce qui te gene ?

si tu traduit

Code:

__declspec (dllimport)   int __stdcall CPhidget_set_OnAttach_Handler (CPhidgetHandle phid, int (__stdcall * fptr) (CPhidgetHandle phid, void *userPtr), void *userPtr);

par

Code:

1
2
3
4
5
6
 
type CInteger = type Integer;
type TFunctionStdCallFPtr      = function(phid: CPhidgetHandle; userPtr: Pointer): CInteger; stdcall;
type PTFunctionStdCallFPtr     = Pointer; //^TFunctionStdCallFPtr;
//...
 function CPhidget_set_OnAttach_Handler(phid: CPhidgetHandle; fptr: PTFunctionStdCallFPtr; userPtr: Pointer): CInteger; stdcall; external PHIDGETS_LIBRARY;

pourquoi ne fait tu pas la même chose pour ça

Code:

1
2
3
4
5
 
__declspec (dllimport)
     int __stdcall CPhidgetSpatial_set_OnSpatialData_Handler (CPhidgetSpatialHandle phid,
			      int (__stdcall * fptr) (CPhidgetSpatialHandle phid, void *userPtr, CPhidgetSpatial_SpatialEventDataHandle * data, int dataCount),
							      void *userPtr);

Code:

1
2
3
4
5
6
7
 
type 
   CInteger = type Integer;
   TFunctionStdCallFPtr2    = function(phid : CPhidgetSpatialHandle,userPtr: Pointer, data : Pointer;dataCount: Integer): CInteger; stdcall;
   PTFunctionStdCallFPtr2     = Pointer; //^TFunctionStdCallFPtr2;
//...
   Function CPhidgetSpatial_set_OnSpatialData_Handler (phid : CPhidgetSpatialHandle; fptr : PTFunctionStdCallFPtr2,userPtr : Pointer): CInteger; stdcall;external PHIDGETS_LIBRARY;

ou j'ai pas compris la question

Bon, je progresse un peu:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
{$PACKRECORDS 4}
// typedef struct _CPhidgetSpatial *CPhidgetSpatialHandle;
type CPhidget_Timestamp = record
  seconds       : CInteger;
  microseconds  : CInteger
end;
type CPhidgetSpatial_SpatialEventData = record
  acceleration     : array[0..2] of CDouble;	//**< Acceleration data for up to 3 axes. */
  angularRate      : array[0..2] of CDouble; //**< Angular rate data (Gyroscope) for up to 3 axes */
  magneticField    : array[0..2] of CDouble; //**< Magnetic field data (Compass) for up to 3 axes */
  timestamp        : CPhidget_Timestamp;    //**< Hardware timestamp */
end;
type CPhidgetSpatial_SpatialEventDataHandle = ^CPhidgetSpatial_SpatialEventData;
type pCPhidgetSpatial_SpatialEventDataHandle = ^CPhidgetSpatial_SpatialEventDataHandle;
type TFunctionSpatialEventHandle = function(phid: CPhidgetHandle; userPtr: Pointer; data: pCPhidgetSpatial_SpatialEventDataHandle ; dataCount: CInteger): CInteger; stdcall;
type PTFunctionSpatialEventHandle = Pointer; //^TFunctionSpatialEventHandle;
 
 
type TFunctionStdCallFPtr      = function(phid: CPhidgetHandle; userPtr: Pointer): CInteger; stdcall;
type PTFunctionStdCallFPtr     = Pointer; //^TFunctionStdCallFPtr;
type TFunctionStdCallErrorFPtr = function(phid: CPhidgetHandle; userPtr: Pointer; ErrorCode: CInteger): CInteger; stdcall;
type PTFunctionStdCallErrorFPtr = Pointer; //^TFunctionStdCallErrorFPtr;

La fonction de callback:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
//callback that will run at datarate
//data - array of spatial event data structures that holds the spatial data packets that were sent in this event
//count - the number of spatial data event packets included in this event
 
function  SpatialDataHandler(spatial: CPhidgetSpatialHandle; userptr: Pointer;
                             data   : pCPhidgetSpatial_SpatialEventDataHandle ;
                             count: CInteger): CInteger; stdcall;
var
  i: Integer;
  DT: CPhidgetSpatial_SpatialEventData;
begin
  if (count = 0) then Exit(0);
  try
    for i := 0 to count - 1 do
    begin
      DT := CPhidgetSpatial_SpatialEventData(data^^); // double déréférencement
      if (SameValue(DT.magneticField[0], PUNK_DBL)) then exit(0);
      Form1.Memo2.Lines.Add(Format('=== Data Set: %d  of %d ===', [i, Count - 1]));
		  Form1.Memo2.Lines.Add(Format('Acceleration> x: %.6f  y: %.6f  z: %.6f', [DT.acceleration[0], DT.acceleration[1], DT.acceleration[2]]));
		  Form1.Memo2.Lines.Add(Format('Angular Rate> x: %.6f  y: %.6f  z: %.6f', [DT.angularRate[0], DT.angularRate[1], DT.angularRate[2]]));
		  Form1.Memo2.Lines.Add(Format('Magnetic Field> x: %.6f  y: %.6f  z: %.6f', [DT.magneticField[0], DT.magneticField[1], DT.magneticField[2]]));
		  Form1.Memo2.Lines.Add(Format('Timestamp> seconds: %d -- microseconds: %d', [DT.timestamp.seconds, DT.timestamp.microseconds]));
      //*)
    end;
 
  except
    ;
  end;
  Result := 0;
end;

Et son utilisation:

Code:

1
2
3
4
 
  // ...
  R := CPhidgetSpatial_set_OnSpatialData_Handler(FSpatial, @SpatialDataHandler, nil);
  // ...

Jusqu'ici, tout va bien.

Maintenant, à la libération par

Code:

1
2
 
    CPhidget_close(FSpatial);  // freeze

,

j'ai un joli freeze de l'appli

La traduction d'entêtes .h en Delphi/Pascal est un cauchemar avec toutes ces déclarations imbriquées.

09/06/2017, 12h12
anapurna
salut

peut être faut il désactiver le OnSpatialData_Handler
un truc du genre
Code:

1 2 3 // ... R := CPhidgetSpatial_set_OnSpatialData_Handler(FSpatial,nil, nil); // ...
avant de fermer le handle general
09/06/2017, 12h41
JP CASSOU
Citation:
Envoyé par anapurna

salut

peut être faut il désactiver le OnSpatialData_Handler
un truc du genre

Code:

1 2 3 // ... R := CPhidgetSpatial_set_OnSpatialData_Handler(FSpatial,nil, nil); // ...

avant de fermer le handle general
C'est ce que j'ai fait avant de poster, mais le pb persiste
09/06/2017, 13h15
anapurna

salut

a priori le

Code:

function CPhidget_close(phid:CPhidgetHandle):longint;

et le pendant de

Code:

function CPhidget_open(phid:CPhidgetHandle; serialNumber:longint):longint;

donc il s'applique à ton handle global et pas uniquement au spatial ...
le fait que le handle ne soit pas correctement defini peut produire des probleme
si il ne retrouve pas ses petits il y a des chance que ton programme parte dans les chou

je suppose que pour que cela fonction il faut attacher et detacher ton handle au 'Phidget' globale