Discussion :

[yvesroulet]

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 c :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Aka Guymelef]

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

[Paul TOTH]

voila :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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 !

[edam]

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 ) 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