traduction d'une struture C en Object pascal

Version imprimable

Bonjour, je doit utiliser une Dll en C et j'ai le respectif header, mais je ne connais pas le C et je ne sais pas comment traduire une structure assez spécial qui se trouve dans le header. Quelqu'un pourrait me donner un coup de main?

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
32
33
34
35
36
/ structure for transfering anything for an asynchronous task
typedef struct _FEISC_TASK_INIT
{
void* pAny;			// pointer to anything, which is eflected as the first parameter 
									// in the callback function (e.g. can be used to pass the object pointer)
	unsigned char	ucBusAdr;		// busaddress for serial communication
	unsigned int	uiChannelType;	// defines the channel type to be used
	int				iConnectByHost;	// if 0: TCP/IP connection is initiated by reader. otherwise by host
	char			cIPAdr[16];		// server ip address
									// note: only for channel type FEISC_TASK_CHANNEL_TYPE_NEW_TCP
	int				iPortNr;		// server or host port address
									// note: only for channel type FEISC_TASK_CHANNEL_TYPE_NEW_TCP
	unsigned int	uiTimeout;		// timeout for asynchronous task
	unsigned int	uiFlag;			// specifies the use of the union (e.g. FEISC_TASKCB_1)
 
	union
	{
		// for notification and inventory task
		void	(*cbFct1)(	void* pAny,					// [in] pointer to anything (from struct _FEISC_TASK_INIT)
							int iReaderHnd,				// [in] reader handle of FEISC
							int iTaskID,				// [in] task identifier from FEISC_StartAsyncTask(..)
							int iError,					// [in] OK (=0), error code (<0) or status byte from reader (>0)
							unsigned char ucCmd,		// [in]	reader command
							unsigned char* ucRspData,	// [in] response data
							int iRspLen );				// [in] local port number which received the notification
 
		// only for notification task
		void	(*cbFct2)(	void* pAny,					// [in] pointer to anything (from struct _FEISC_TASK_INIT)
							int iReaderHnd,				// [in] reader handle of FEISC
							int iTaskID,				// [in] task identifier from FEISC_StartAsyncTask(..)
							int iError,					// [in] OK (=0), error code (<0) or status byte from reader (>0)
							unsigned char ucCmd,		// [in]	reader command
							unsigned char* ucRspData,	// [in] response data
							int iRspLen,				// [in] length of response data
							char* cRemoteIP,			// [in] ip address of the reader
							int iLocalPort );			// [in] local port number which received the notification

28/07/2009, 17h24
ShaiLeTroll

Ajoute les Balises [ CODE] et peux-tu fournir ce que tu as déjà commencé à traduire, on peut t'aider sur les parties difficiles ...

regarde la Strcuture _LARGE_INTEGER de Windows.pas, cela te montre comment faire une union ...

pour déclarer un pointeur de fonction regarde TFNHookProc de Windows.pas
28/07/2009, 18h53
Aka Guymelef

Les void* sont notamment à remplacer par le type Pointer.

voila :

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
32
33
34
35
36
37
38
39
 
// structure for transfering anything for an asynchronous task
type
  _FEISC_TASK_INIT = record
    pAny          : Pointer; 	// pointer to anything, which is eflected as the first parameter
									            // in the callback function (e.g. can be used to pass the object pointer)
    ucBusAdr      : Char;      // busaddress for serial communication
    uiChannelType : Cardinal;	// defines the channel type to be used
    iConnectByHost: Integer;	// if 0: TCP/IP connection is initiated by reader. otherwise by host
    cIPAdr        : array[0..15] of Char;	// server ip address
									            // note: only for channel type FEISC_TASK_CHANNEL_TYPE_NEW_TCP
    iPortNr       : Integer;	// server or host port address
									            // note: only for channel type FEISC_TASK_CHANNEL_TYPE_NEW_TCP
    uiTimeout     : Cardinal;  // timeout for asynchronous task
    uiFlag        : Cardinal;	// specifies the use of the union (e.g. FEISC_TASKCB_1)
    case Byte of
      0 : (cbFct1 : procedure(
                      pAny: Pointer;     // [in] pointer to anything (from struct _FEISC_TASK_INIT)
                      iReadHnd,          // [in] reader handle of FEISC
                      iTaskID,           // [in] task identifier from FEISC_StartAsyncTask(..)
                      iError: Integer;   // [in] OK (=0), error code (<0) or status byte from reader (>0)
                      ucCmd: Char;       // [in]	reader command
                      ucRspData: PChar;  // [in] response data
                      iRspLen: Integer   // [in] local port number which received the notification
                    )
           );
      1 : (cbFct2 : procedure(
                      pAny: Pointer;     // [in] pointer to anything (from struct _FEISC_TASK_INIT)
                      iReadHnd,          // [in] reader handle of FEISC
                      iTaskID,           // [in] task identifier from FEISC_StartAsyncTask(..)
                      iError: Integer;   // [in] OK (=0), error code (<0) or status byte from reader (>0)
                      ucCmd: Char;       // [in]	reader command
                      ucRspData: PChar;  // [in] response data
                      iRspLen: Integer;  // [in] length of response data
                      cRemoteIP: PChar;  // [in] ip address of the reader
                      iLocalPort: Integer
                    )
           );
    end;

29/07/2009, 12h48
ShaiLeTroll

Merci Paul Toth, tu n'avais pas remarqué que l'on avait pris soin de l'aiguiller pour qu'il avance et comprenne ce qu'il faisait ... maintenant, il n'a plus qu'a copier coller ... tu ne connais pas pas le proverbe de Confucius : "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson."

pour les procédures, il manque la convention d'appel à mon avis !
03/08/2009, 23h31
edam

Citation:

Envoyé par ShaiLeTroll

Merci Paul Toth, tu n'avais pas remarqué que l'on avait pris soin de l'aiguiller pour qu'il avance et comprenne ce qu'il faisait ... maintenant, il n'a plus qu'a copier coller ... tu ne connais pas pas le proverbe de Confucius : "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson."

pour les procédures, il manque la convention d'appel à mon avis !

là, je suis pas d'accord avec toi, il est difficile pour un non Cfist( comme delphiste :mouarf:) de convertire un code c vers un autre language,
à propos, c'est la premiére fois que je vois une déclaration d'une procedure dans un record :calim2::oops:

tient pour la procédure dans un record, on le fait plutôt en deux temps comme ICI, on déclare un type de procédure, puis on l'utilise comme n'importe quel type ...

tu peux déclarer pas mal de truc bizarre, avec des structures et sous-structures directement sans donner un nom à chaque typr

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
32
33
34
35
36
37
THPrimStructOBX = record
    SegmentType: string;                                 // 10.1
    SegmentNum: Int64;                                   // 10.2
    TypeResultat: string;                                // 10.3
    Test: THPrimStructCE;                                // 10.4
    SousIdentifiantTest: string;                         // 10.5
    Resultat: array of record
      case ResultatType: THPrimStructOBXResultatType of
        rtMisc :
          (
            Misc: string[80];                            // 10.6.1 à 10.6.3
          );
        rtCodification :
          (
            Code: string[5];                             // 10.6.1
            Libelle: string[70];                         // 10.6.2
            CodeType: string[5];                         // 10.6.3
          );
        rtFichier :
          (
            Source: string[10];                          // 10.6.1
            NomFichier: string[55];                      // 10.6.2
            Viewer: string[15];                          // 10.6.3
          );
    end;
    Unite: THPrimStructCE;                               // 10.7
    Normales: string;                                    // 10.8
    IndicateursAnormalite: string;                       // 10.9
    Probabilite: string;                                 // 10.10
    NatureNormales: string;                              // 10.11
    StatutResultats: string;                             // 10.12
    DateDernieChangementNormales: TDateTime;             // 10.13
    DroitAcces: string;                                  // 10.14
    DateObtentionResultat: TDateTime;                    // 10.15
    SecteurTechniqueOrdreEdition: THPrimStructCE;        // 10.16
    Valideur: string;                                    // 10.17
  end;

Si son boulot est d'intégrer régulièrement des DLL avec un Header en C, mieux vaut qu'il sache le faire, ... je l'ai fait récemment pour une DLL motorola, et il y a tout plein de types chaines C++ qui finalement sont traduit par un PChar en delphi, ...

16/10/2009, 20h23
nicolassalocin

Je vous recommande l'outil de Dr BOB que j'ai utilisé plusieurs fois avec succès : HeadConv v4.20

http://www.drbob42.com/tools/index.htm