Traduction c++ delphi [FAQ]

**coax81** · 21/08/2007, 15h00

comment je peux traduire en delphi :

Code :

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

1
2
3
4
5
6
7
 
 
#ifndef _VER
#define LRLIB_C_API extern "C"
#else
#define LRLIB_C_API
#endif

**anapurna** · 21/08/2007, 15h51

salut

un truc dans ce genre le seul probleme
c'est que le extern "C" indique si la methode
vient de l'exterieur ou pas dans ton cas je pense que tu peut l'oublier

Code :

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

1
2
3
4
5
6
7
8
 
{$ifndef _VER}
 const 
    LRLIB_C_API := 'extern "C"' ;<== ???
{$else}
 const 
    LRLIB_C_API := ''; <== ???
{$endif}

@+ Phil

**coax81** · 21/08/2007, 16h07

en faite je traduit des .h pour charger une DLL ecrite en C++ dans delphi ,
donc je pense que j'en aurai besoin non ?

**coax81** · 21/08/2007, 16h28

et pour traduire cela :

Code :

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

1
2
3
4
5
6
7
8
9
 
const char *OmPlrGetErrorStringA(OmPlrError error);
const wchar_t *OmPlrGetErrorStringW(OmPlrError error);
 
#ifdef UNICODE
#define OmPlrGetErrorString OmPlrGetErrorStringW
#else
#define OmPlrGetErrorString OmPlrGetErrorStringA
#endif

j'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  OmPlrGetErrorStringA: function(error: OMPLRERROR): PCHAR ;cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
var
  OmPlrGetErrorStringW: function(error: OMPLRERROR): WCHAR_T ;cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
 
{$IFDEF UNICODE}
const
  OmPlrGetErrorString = OmPlrGetErrorStringW;
{$ELSE}
const
  OmPlrGetErrorString = OmPlrGetErrorStringA;
{$ENDIF}

mais ca compile pas !

**Lung** · 21/08/2007, 16h32

Envoyé par coax81

mais ca compile pas !

Et ça dit quoi ?

**coax81** · 21/08/2007, 16h39

il dit:

Code :

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

1
2
 
 Pas assez de paramètres originaux

pour la ligne

Code :

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

1
2
3
 
const
  OmPlrGetErrorString = OmPlrGetErrorStringA;

**AL1986** · 22/08/2007, 09h13

Juste une chose, quand tu as fait les modifs est-ce que tu as ajouté les options de compilation dans les options de ton projet ?

**coax81** · 22/08/2007, 09h31

vous voulez dire quoi par options de compilation ? j'ai rien changé normalement.

**AL1986** · 22/08/2007, 10h20

Envoyé par coax81

vous voulez dire quoi par options de compilation ? j'ai rien changé normalement.

Généralement, si tu veux que la compilation traite des lignes et pas d'autres. Genre compiler

Code Delphi :

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

1
2
const
  OmPlrGetErrorString = OmPlrGetErrorStringW;

et pas

Code Delphi :

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

1
2
const
OmPlrGetErrorString = OmPlrGetErrorStringA;

Tu vas dans project->options->directories/conditionals->conditional defines et tu définis UNICODE. Si t'en a plusieurs, tu les sépares par des ; et après tu ne compile pas directement, tu fais build all (tout construire). Mais je ne sais pas trop si cela va résoudre ton problème.

**CapJack** · 22/08/2007, 18h08

UNICODE est une directive de Visual C++, indiquant qu'on est dans un projet Unicode. Vu que Delphi n'est pas Unicode, on oublie, et on fait comme si UNICODE n'était pas définie.

**droggo** · 22/08/2007, 19h55

Mui,

Envoyé par coax81

et pour traduire cela :

Code :

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

1
2
3
4
5
6
7
8
9
 
const char *OmPlrGetErrorStringA(OmPlrError error);
const wchar_t *OmPlrGetErrorStringW(OmPlrError error);
 
#ifdef UNICODE
#define OmPlrGetErrorString OmPlrGetErrorStringW
#else
#define OmPlrGetErrorString OmPlrGetErrorStringA
#endif

j'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  OmPlrGetErrorStringA: function(error: OMPLRERROR): PCHAR ;cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
var
  OmPlrGetErrorStringW: function(error: OMPLRERROR): WCHAR_T ;cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
 
{$IFDEF UNICODE}
const
  OmPlrGetErrorString = OmPlrGetErrorStringW;
{$ELSE}
const
  OmPlrGetErrorString = OmPlrGetErrorStringA;
{$ENDIF}

mais ca compile pas !

Aïe.

Attention à ne pas confondre les constantes de Delphi et le travail du pré-processeur C ou C++

Pour Delphi,

Code :

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

1
2
const
  OmPlrGetErrorString = OmPlrGetErrorStringW;

signifie que tu crées un constante OmPlrGetErrorString qui prend la valeur OmPlrGetErrorStringW.
Et bien entendu, comme OmPlrGetErrorStringW est en fait une fonction, Delphi ne veut pas de cette définition.

Il n'y a rein qui remplacer aussi simplement un #define du C ou C++, comme ceci

Code :

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

#define OmPlrGetErrorString OmPlrGetErrorStringW

qui est une directive pour le pré-compilateur, l'informant de remplacer toutes les occurrences de OmPlrGetErrorString par OmPlrGetErrorStringW, cela au niveau élémentaire du texte du code source, avant que la compilation proprement dite sit effectuée.

**droggo** · 22/08/2007, 19h56

Mui,

Envoyé par coax81

et pour traduire cela :

Code :

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

1
2
3
4
5
6
7
8
9
 
const char *OmPlrGetErrorStringA(OmPlrError error);
const wchar_t *OmPlrGetErrorStringW(OmPlrError error);
 
#ifdef UNICODE
#define OmPlrGetErrorString OmPlrGetErrorStringW
#else
#define OmPlrGetErrorString OmPlrGetErrorStringA
#endif

j'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  OmPlrGetErrorStringA: function(error: OMPLRERROR): PCHAR ;cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
var
  OmPlrGetErrorStringW: function(error: OMPLRERROR): WCHAR_T ;cdecl  {$IFDEF WIN32} stdcall {$ENDIF};
 
{$IFDEF UNICODE}
const
  OmPlrGetErrorString = OmPlrGetErrorStringW;
{$ELSE}
const
  OmPlrGetErrorString = OmPlrGetErrorStringA;
{$ENDIF}

mais ca compile pas !

Aïe.

Attention à ne pas confondre les constantes de Delphi et le travail du pré-processeur C ou C++

Pour Delphi,

Code :

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

1
2
const
  OmPlrGetErrorString = OmPlrGetErrorStringW;

signifie que tu crées un constante OmPlrGetErrorString qui prend la valeur OmPlrGetErrorStringW.
Et bien entendu, comme OmPlrGetErrorStringW est en fait une fonction, Delphi ne veut pas de cette définition.

Il n'y a rein qui remplacer aussi simplement un #define du C ou C++, comme ceci

Code :

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

#define OmPlrGetErrorString OmPlrGetErrorStringW

qui est une directive pour le pré-compilateur, l'informant de remplacer toutes les occurrences de OmPlrGetErrorString par OmPlrGetErrorStringW, cela au niveau élémentaire du texte du code source, avant que la compilation proprement dite soit effectuée.

**Lung** · 23/08/2007, 07h58

Envoyé par droggo

Il n'y a rein qui remplacer aussi simplement un #define du C ou C

Bin, l'équivalent Delphi, c'est pas {$DEFINE} ?

**sjrd** · 23/08/2007, 14h53

Non : les define de Delphi ne servent qu'à faire de la compilation conditionnelle.

**Laurent Dardenne** · 23/08/2007, 16h19

Pour info :
http://rvelthuis.de/articles/articles-convert.html

**coax81** · 23/08/2007, 18h51

si delphi ne reconnais pas les UNICODE alors j'enleve toutes les lignes à l'interieure de la définition de cette directive !!!

j'enleve les fonctions foncW et je ne laisse que les foncA

**gb_68** · 23/08/2007, 21h20

Bonjour,
il est vrai que définir ces fonctions en version ansi ou unicode selon une directive de compilation n'a pas beaucoup d'intérêt, car pour l'utiliser il faudrait que toutes les autres fonctions le soient ainsi que les chaines de caractères.

Pour l'utiliser en C++ il faut déjà toujours utiliser des macro de type _T("Ma chaine") (remplaçant par "Ma chaine" en ansi et L"Ma chaine" en unicode) ; ceci pour pouvoir compiler un programme en ANSI puis en UNICODE sans changer le code (juste en définissant ou non la macro UNICODE).

Néanmoins cela reste réalisable (pour le sport) en Delphi avec des const

:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  function OmPlrGetErrorStringA(error: OMPLRERROR): PCHAR   ; stdcall ; external NomLib name 'OmPlrGetErrorStringA';
  function OmPlrGetErrorStringW(error: OMPLRERROR): PWCHAR  ; stdcall ; external NomLib name 'OmPlrGetErrorStringW';
 
type
  TOmPlrGetErrorStringA = function(error: OMPLRERROR): PCHAR  ;  stdcall ;
  TOmPlrGetErrorStringW = function(error: OMPLRERROR): PWCHAR ;  stdcall ;
const
{$IFDEF UNICODE}
  OmPlrGetErrorString : TOmPlrGetErrorStringW = OmPlrGetErrorStringW;
{$ELSE}
  OmPlrGetErrorString : TOmPlrGetErrorStringA = OmPlrGetErrorStringA;
{$ENDIF}

Mais ceci est aussi possible

(et peut-être plus simple car réutilisable pour toutes les fonctions) :

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
const
  VERS_WIDE = 'W';
  VERS_ANSI = 'A';
  {$IFDEF UNICODE}
     VERS_TCHAR = VERS_WIDE;
  {$ELSE}
     VERS_TCHAR = VERS_ANSI;
  {$ENDIF}
type
  {$IFDEF UNICODE}
     PTChar = PWideChar;
  {$ELSE}
     PTChar = PAnsiChar;
  {$ENDIF}
 
  function OmPlrGetErrorStringA(error: OMPLRERROR): PAnsiChar; stdcall ; external NomLib name 'OmPlrGetErrorString'+VERS_ANSI;
  function OmPlrGetErrorStringW(error: OMPLRERROR): PWideChar; stdcall ; external NomLib name 'OmPlrGetErrorString'+VERS_WIDE;
  function OmPlrGetErrorString (error: OMPLRERROR): PTChar   ; stdcall ; external NomLib name 'OmPlrGetErrorString'+VERS_TCHAR;

**AL1986** · 23/08/2007, 21h22

Si tu laisses tes instructions sous des {$ifdef OPTION}. Sois tu définis OPTION pour que le programme "passe" dans les lignes de code écrites sous OPTION, Soit tu ne la définis pas pour compiler les autres lignes (càd ceux du {$else})
Par exemple en écrivant :

Code Delphi :

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

{$ifdef OPTION}SuiteInstructions1{$else}SuiteInstructions2{$endif}

Et que dans les options de ton projet tu définis OPTION. Il n'y a que SuiteInstructions1 qui sera compiler, sinon c'est SuiteInstructions2.

**CapJack** · 26/08/2007, 12h15

Envoyé par coax81

si delphi ne reconnais pas les UNICODE alors j'enleve toutes les lignes à l'interieure de la définition de cette directive !!!

j'enleve les fonctions foncW et je ne laisse que les foncA

Oui.

Traduction c++ delphi [FAQ]

Langage Delphi

Discussions similaires

Partager

Partager