Discussion :

[coax81]

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]

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]

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]

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]

mais ca compile pas !

Et ça dit quoi ?

[coax81]

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;

[droggo]

Mui,

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.

[Lung]

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

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

[droggo]

Mui,

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.