Discussion :

[Wilco]

Bonjour à tous,

J'utilise Delphi7 et je dois interfacer mon application avec une application externe dont on me fournit les DLL et les fichiers include en c++.

Comment puis je faire pour utiliser ces dll ?

Voici par exemple le fichier .h qui m'est fourni

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
#ifndef INC_PRNNT_DM_API
#define INC_PRNNT_DM_API 
 
#ifdef __cplusplus
   extern "C" {
#endif
 
/* PF4 Device manager errors */
 
#define PRN_OK            0
#define PRN_ERR_NOTEXIST  1
#define PRN_ERR_TIMEOUT   2
#define PRN_ERR_DUPE      3
#define PRN_ERR_INIT      4
#define PRN_ERR_LOCKED    5 //@31
 
/* PF4 Device Manager Status */
 
#define PRN_STS_ONLINE    0
#define PRN_STS_OFFLINE   1
#define PRN_STS_INIT      2
#define PRN_STS_POWEROFF  3
 
#define PRN_RESAEMULSTS_ONLINE    3
#define PRN_RESAEMULSTS_OFFLINE   4
#define PRN_RESAEMULSTS_INIT      14
#define PRN_RESAEMULSTS_POWEROFF  11
 
	   /* PF4 Write Device Manager Type */
#define PRT_MODE_AEA      1	/* Automatic Add of AR; */
#define PRT_MODE_GEN      2
#define PRT_MODE_LOGO     3
#define PRT_MODE_CTX      4
#define PRT_MODE_ADMIN    5
 
/* PF4 Type of devices */
#define PRN_PRT_BPP_    "BPP"
#define PRN_PRT_BTP_    "BTP"
 
//---longueur max d'une selection--- 
#define MAX_SELECTIONNAME_    30
 
//--- PF4 return codes for Batch---
#define PRN_BAT_NO_ERROR          0x00  /* OK                                 */
#define PRN_BAT_ERROR_NET         0x01  /* LAN error                          */
#define PRN_BAT_ERROR_ALREADYOPEN 0x02  /* Already opened					  */
#define PRN_BAT_ERROR_MAXLENGTH   0x03  /* Data length overflow               */ 
#define PRN_BAT_ERROR_SHELL       0x04  /* Shell Type unknown                 */
#define PRN_BAT_ERROR_PARAMETER   0x05  /* Wrong parameter                    */
#define PRN_BAT_ERROR_MEMORY      0x06  /* Memory allocation error            */
#define PRN_BAT_ERROR_NOTFOUND    0x07  /* non trouve						  */
#define PRN_BAT_ERROR_ENDSESSION  0x08  /* End of session 					  */
#define PRN_BAT_ERROR_NOTOPENED   0x09  /* Not opened	 					  */
 
#define PRN_PM_NO_ERROR           0     // OK
#define PRN_PM_ERROR_LOCKED       203   // PM Device locked
#define PRN_PM_ERROR_NOTFOUND     213	  // PM Device not found
#define PRN_PM_ERROR_NOTREADY     211	  // PM Device not ready
 
/* ************************************************ */
/* PRN_DM_OPEN Opens a peripheral on Device manager */
/*                                                  */
/* szType = type of device                          */
/*          "MSG" Message                           */
/*          "RTE" Reader                            */
/*                                                  */
/* Order = Order of peripheral                      */
/*          if 2 periph. with same type =>          */
/*          0 : first one       1 : second one      */
/*                                                  */
/* fTrace = Activate trace to the trace server      */
/*          0 : No Trace                            */
/*          else : Trace                            */
/*                                                  */
/* RETURN ERC :                                     */
/*          PRN_OK : Correct Open                   */
/*          PRN_ERR_NOTEXIST : Peripharal doesn't exist */
/*          PRN_ERR_DUPE : Already open             */
/*                                                  */
/* ************************************************ */
 
unsigned short PRN_DM_OPEN( char * szType, unsigned short Order, unsigned short fTrace);
unsigned short WINAPI PRNVB_DM_OPEN( char * szType, unsigned short Order, unsigned short fTrace);
 
 
/* ************************************************ */
/* PRN_DM_UNLOCK - lock device                  		*/
/*                                                  */
/* szCtx  = Name of context (3 alphanumeric chars)  */
/*                                                  */
/* szType = type of device                          */
/*          "MSG" Message                           */
/*          "RTE" Reader                            */
/*                                                  */
/* Order = Order of peripheral                      */
/*          if 2 periph. with same type =>          */
/*          0 : first one       1 : second one      */
/*                                                  */
/* RETURN ERC :                                     */
/*          PRN_OK : Switch OK                      */
/*          PRN_ERR_NOTEXIST : Peripheral doesn't exist */
/*          PRN_ERR_INIT : Peripheral in initialization */
/*          PRN_ERR_TIMEOUT : Peripheral not ready  */
/*	    PRN_ERR_LOCKED : Peripharal locked      */ 
/*                                                  */
/* ************************************************ */
 
unsigned short PRN_DM_UNLOCK( char * szType, unsigned short Order);
unsigned short PRN_DM_UNLOCK_CTX( char * szCtxIn, char * szType, unsigned short Order);
unsigned short WINAPI PRNVB_DM_UNLOCK( char * szType, unsigned short Order);
unsigned short WINAPI PRNVB_DM_UNLOCK_CTX( char * szCtxIn, char * szType, unsigned short Order);
 
 
#ifdef __cplusplus
   }
#endif
 
#endif INC_PRNNT_DM_API

Si quelqu'un peut m'aider à transcrire cela afin que je puisse utiliser la DLL avec mon application en Delphi7 il est le bienvenu.

Merci d'avance pour vos réponses,

Wilco

[ShaiLeTroll]

Tu dois traduire le .H en code Delphi !
Bon Courage, si tu as besoin d'aide pour certains fragments, reviens nous voir !

pour débuter

Code :

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

function PRN_DM_OPEN(szType: PChar; Order: Byte; fTrace: Byte): Byte; stdcall;

ensuite cherche autour de external et LoadLibrary\GetProcAddr

[Wilco]

Merci ShaiLeTroll pour ce début de réponse.

J'ai commencé la transcription, cependant, je bute sur ces lignes de code :

Code c++ :

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

1
2
3
4
5
6
 
 
#define PRN_BAT_NO_ERROR          0x00  /* OK                                 */
#define PRN_BAT_ERROR_NET         0x01  /* LAN error                          */
 
unsigned short WINAPI PRNVB_DM_OPEN( char * szType, unsigned short Order, unsigned short fTrace);

Comment déclarer les CONST avec des valeurs en hex : 0x01 ou 0xFF par exemple ?

Comment déclarer la fonction WINAPI ?


Merci d'avance pour vos réponses

Wilco

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
const
 PRN_BAT_NO_ERROR          =$00;  //* OK                                 */
 PRN_BAT_ERROR_NET         =$01:  //* LAN error                          */
 
// unsigned short -> Word
// WINAPI  -> stdcall
// PRNVB_DM_OPEN( 
// char * szType, -> PChar
// unsigned short Order, 
// unsigned short fTrace
//);
function PRNVB_DM_OPEN( szType: PChar; Order, fTrace : Word): Word; stdcall;

[Wilco]

Merci Paul, j'avance pas à pas ...


Sur la fonction suivante, il y a char * szSelection que je transcrits en szSelection: PChar

Code :

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

unsigned short WINAPI CRWVB_DM_SELECTIONINFOS(char * szSelection, CHAR  SeachCode, char  *Infos, WORD timeout);

Mais comment je transcrits CHAR SeachCode ?


Et sur cette fonction, comment je transcrits les unsigned char *pMsg ?

Code :

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

unsigned short CRW_DM_WRITE_ASYNC( char * szType, unsigned short Order, unsigned char *pMsg , unsigned short sMsg , unsigned short type , unsigned short timeout);

Merci d'avance,
Wilco

[Paul TOTH]

en C "char *" veux dire pointeur sur un char, c'est le "^char" de Delphi (ou PChar)

donc un Char ben c'est tout simplement un Char ... encore que le C ne fait pas de distinction entre Char et Byte

"unsigned Char" et "Char" c'est ici la même chose, car en Pascal Char n'est pas signé...donc "unsigned Char *" c'est toujours un PChar.

Note également que tout ce que tu n'utilises pas n'a pas besoin d'avoir un type exact, donc tout ce qui est "*" de quelque chose et dont tu n'as pas besoin peut devenir un Pointer sans autre précision

[Mac LAK]

"unsigned Char" et "Char" c'est ici la même chose, car en Pascal Char n'est pas signé...donc "unsigned Char *" c'est toujours un PChar.

Cela peut aussi être un PByteArray, ou un ^Byte, en fonction du contexte... Usuellement, les buffers "unsigned char*" en C sont utilisés pour les données binaires brutes, il vaut donc mieux éviter de faire croire à Delphi qu'il pourrait s'agir de chaînes de caractères "normales".

[Wilco]

Bonjour et merci à vous pour votre aide ...

La fonction ci-dessous renvoie 2 pointeurs : pRetMsg et pStatus.
Je dois récuperer dans mon application Delphi7 ces 2 valeurs.

Code :

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

1
2
3
4
5
6
 
Fonction C
unsigned short PRN_DM_READ( char * szType, unsigned short Order, unsigned char *pRetMsg , unsigned short * pStatus, unsigned short * sRetMsg , unsigned short timeout);
 
Delphi 7
function PRN_DM_READ( szType: PChar; Order: Byte; pRetMsg:PChar; pStatus: PChar; sRetMsg, timeout: Byte): Byte; stdcall; External 'PRN_xp.dll';

La dll écrite en C++ renvoie 2 pointeurs (pRetMsg et pStatus).

Comment dois je faire pour récupérer le contenu de pRetMsg et pStatus ?


Merci d'avance,
Wilco

[Wilco]

Bonjour à tous,

J'ai transcris la fonction suivante :

Code :

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

1
2
3
4
5
6
 
{en C++}
unsigned short PRN_DM_OPEN( char * szType, unsigned short Order, unsigned short fTrace);
 
{en code Delphi7}
function PRN_DM_OPEN(szType: PChar; Order: Byte; fTrace: Byte): Byte; stdcall; External 'PRN_dm.dll';

Ensuite, sur l'évênement onclick d'un bouton j'exécute le code suivant :

Code :

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

1
2
3
4
5
6
 
procedure TMAIN.pb_PRNClick(Sender: TObject);
begin
   DLL_Result := PRN_DM_OPEN(0, 0, 1);
   ShowMessage('PRN_DM_OPEN Return value = ' + IntToStr(DLL_Result));
end;

Le code s'exécute bien jusqu'au <ShowMessage> puisque le programme m'affiche le message avec la valeur retournée par la DLL. Ensuite, lorsque je clique sur le bouton OK du ShowMEssage, l'application se ferme toute seule et viens à Windows. Aucun message d'erreur ni exception ne s'affiche. J'obtiens une sortie brutale du programme.



Quelqu'un peut il m'aider ?

Merci d'avance,
Wilco

[ShaiLeTroll]

Comment fais-tu pour passer 0 à un PChar ?
la déclaration n'est pas la bonne !

[Wilco]

J'ai essayé avec différentes valeur dont :

Code :

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

1
2
3
4
5
procedure TMAIN.pb_PRNClick(Sender: TObject);
begin
   DLL_Result := PRN_DM_OPEN('0', 0, 1);
   ShowMessage('PRN_DM_OPEN Return value = ' + IntToStr(DLL_Result));
end;

la DLL me retourne une valeur qui s'affiche bien dans le ShowMessage mais quand après l'exécution de ce showmessage le programme quitte sans exception ni message d'erreur.

[evarisnea]

Code :

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

1
2
3
4
5
{en C++}
unsigned short PRN_DM_OPEN( char * szType, unsigned short Order, unsigned short fTrace);
 
{en code Delphi7}
function PRN_DM_OPEN(szType: PChar; Order: Byte; fTrace: Byte): Byte; stdcall; External 'PRN_dm.dll';

unsigned short (2 octets) <> Byte (1 octet)

essaie plutôt cette déclaration :

Code :

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

1
2
{en code Delphi7}
function PRN_DM_OPEN(szType: PChar; Order: SmallInt; fTrace: SmallInt): SmallInt; stdcall; External 'PRN_dm.dll';

[Wilco]

Merci à tous pour votre aide, j'avance pas à pas.

La fonction ci-dessous retourne 2 pointeurs :
unsigned char *pRetMsg
unsigned short * pStatus

Le premier pointe sur une chaine de caractères, le second sur un entier sur 2 octets

Code :

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

1
2
Fonction C
unsigned short PRN_DM_READ( char * szType, unsigned short Order, unsigned char *pRetMsg , unsigned short * pStatus, unsigned short * sRetMsg , unsigned short timeout);

J'ai 2 questions :

1) Comment puis je transcrire cette fonction en Delphi7 ?

2) Et comment je peux l'appeler et récupérer la valeur de ces 2 pointeurs ?


Merci d'avance pour vos réponses,
Wilco

[Dr.Who]

unsigned short PRN_DM_READ( char * szType, unsigned short Order, unsigned char *pRetMsg , unsigned short * pStatus, unsigned short * sRetMsg , unsigned short timeout);

Code :

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

1
2
3
4
5
function PRN_DM_READ(const szType: pShortInt; const Order: word; var pRetMsg: pChar; var pStatus: pWord; var sRetMsg: pWord; const TimeOut: word): word;
 
ou
 
function PRN_DM_READ(const szType: ShortInt; const Order: Word; var pRetMsg: string; var pStatus: Word; var sRetMsg: Word; const TimeOut: word): word;

[Wilco]

Merci, hélas j'ai toujours une violation d'accès.

J'essaie avec une autr fonction qui me renvoi un status sur 2 octets.

Code :

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

1
2
3
4
 
// pStatus = pointer to a buffer to read status  2 octets
 
PRN_DM_STATUS( szType: PChar; Order: Word; pStatus: PWord): Word; stdcall; External 'PRN_dm.dll';

J'appelle la fonction vec le code suivant :

Code :

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

1
2
3
4
5
6
7
 
procedure TMAIN.pb_STATUSClick(Sender: TObject);
var
   PRN_Status: PWord;
begin
PRN_Result := PRN_DM_STATUS('PCL5', 0, PRN_Status);
end;

A la compilation j'ai le message d'erreur : PStatus Types incompatibles Windows.word et System.word


Quelqu'un a t il une idée ?

Merci d'avance
Wilco

[Wilco]

oups, parfois des choses élémentaires nous échappent ...

Etant donné que cette fonction renvoie un pointeur il faut ajouter le mot clé Var devant la variable !!!

Code :

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

1
2
3
4
5
6
7
Déclaration erronée
PRN_DM_STATUS( szType: PChar; Order: Word; pStatus: PWord): Word; stdcall; External 'PRN_dm.dll';


Délcaration correcte
PRN_DM_STATUS( szType: PChar; Order: Word; Var pStatus: PWord): Word; stdcall; External 'PRN_dm.dll';

J'arrive maintenant à exécuter cette fonction et je récupère bien une valeur dans pStatus.

Merci pour votre aide, j'avance pas à pas

Wilco

[gb_68]

Bonjour,

Code :

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

1
2
3
4
Déclaration erronée
PRN_DM_STATUS( szType: PChar; Order: Word; pStatus: PWord): Word; stdcall; External 'PRN_dm.dll';
Délcaration correcte
PRN_DM_STATUS( szType: PChar; Order: Word; Var pStatus: PWord): Word; stdcall; External 'PRN_dm.dll';

non au contraire ! (Ou alors pStatus était déclarée unsigned short **, ce qui n'est pas le cas dans les autres fonctions)

Plusieurs choses :

Le passage par référence est un mécanisme n'existant pas en C (il n'y a que le passage par valeur).
Ce mode de passage d'arguments place sur la pile l'adresse de la variable pour pouvoir ensuite la modifier à l'intérieur de la fonction. En C, on émulera ce mode en passant un pointeur vers la variable souhaitée. Cela revient à peu près à la même chose sauf que l'écriture avec un passage par référence s'en trouve simplifiée (par de déférencement explicite à faire) et n'est pas censée permettre le passage d'une adresse invalide ("censée" car on peut toujours faire quelque chose du type PType(nil)^).
Donc utiliser var revient déjà à signifier que l'on passera par une adresse. Un var sur un pointeur revient à passer l'adresse sur un pointeur, ce qui serait traduit en C par un pointeur sur pointeur - ce qui n'est pas le cas dans cet exemple.

Traduire un passage par pointeur en passage par référence est donc possible si la fonction doit toujours prendre comme paramètre un pointeur valide.
Si il est possible de passer un pointeur nil (ou NULL en C), il vaut alors mieux garder le passage par pointeur pour justement pouvoir passer ce pointeur nil - cela est une technique parfois employée pour signifier qu'un argument est optionnel (cf. les Api Windows).

J'appelle la fonction vec le code suivant :

Code :

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

1
2
3
4
5
6
procedure TMAIN.pb_STATUSClick(Sender: TObject);
var
   PRN_Status: PWord;
begin
PRN_Result := PRN_DM_STATUS('PCL5', 0, PRN_Status);
end;

Ici tu passes un pointeur non assigné à la fonction. Même sans savoir ce qu'elle est censée réaliser, cela ne peut avoir de sens. Il faut que le pointeur que tu passes soit valide, c'est-à-dire qu'il pointe sur une variable allouée.

Code :

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

1
2
3
4
5
6
7
8
procedure TMAIN.pb_STATUSClick(Sender: TObject);
var
   PRN_Status: PWord;
begin
   New(PRN_Status);
   PRN_Result := PRN_DM_STATUS('PCL5', 0, PRN_Status);
   Dispose(PRN_Status);
end;

ou tout simplement (avec Word et @)

Code :

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

1
2
3
4
5
6
procedure TMAIN.pb_STATUSClick(Sender: TObject);
var
   PRN_Status: Word;
begin
   PRN_Result := PRN_DM_STATUS('PCL5', 0, @PRN_Status);
end;

Et si le paramètre Status est obligatoire, tu peux comme expliqué plus haut utiliser var mais en écrivant :

Code :

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

1
2
3
4
5
6
7
8
function PRN_DM_STATUS( szType: PChar; Order: Word; var Status: Word): Word; stdcall; External 'PRN_dm.dll';
 
procedure TMAIN.pb_STATUSClick(Sender: TObject);
var
   PRN_Status: Word;
begin
   PRN_Result := PRN_DM_STATUS('PCL5', 0, PRN_Status);
end;