Discussion :

[rsc]

Bonjour,
Je suis en train de migrer une appli de Delphi 5 vers Delphi 2010. Dans cette appli, nous faisons pas mal d'appels à des fonctions d'une dll (Géoconcept pour ceux qui connaissent).
J'ai dû modifier les types PChar en PAnsiChar, et ça a réglé la plupart des problèmes. Mais je coince sur cette fonction, qui devrait me renvoyer un handle vers une "peudo-requête" :

Code :

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

1
2
function XgoQuery_CreateFromText(xgoMap: XGOMAP; szQueryText: PAnsiChar; 
var lprqstParserError: XGOQUERYPARSER_ERROR; var lprqstErrorPos: LongInt): XGOQUERY; stdcall; external 'XGO.DLL';

Elle me renvoie un 0, ce qui veut dire que la création a échoué .
NB : XGOMAP, XGOQUERYPARSER_ERROR et XGOQUERY sont tous définis comme LongInt.

La seule particularité que je voie à cette fonction est la présence de paramètres var. Est-ce qu'ils peuvent poser problème lors d'une migration ? Ou bien quelqu'un a-t-il une autre idée ?

D'avance merci pour vos lumières !

[ShaiLeTroll]

tu as tout changé en Char vers AnsiChar ?
Appels-tu d'autres fonctions AVANT ? peut-être qu'une initialisation de la DLL a échoué avant et tu ne te rends compte du problème que sur cette DLL

Tu as lprqstParserError et lprqstErrorPos
Il devrait te fournir une aide débogage !
tu devrais les gérer !
Si lprqstErrorPos est à 1 ou 0, on pourrait penser qu'il a reçu une chaine Unicode donc xx 00 xx 00 xx 00 ZT ZT qu'il comprend juste comme xx ZT

Comment as-tu rempli le AnsiChar ?
Je suis en C++Builder, je n'ai pas connu les Delphi UNICODE, ton code devait être

Code :

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

1
2
3
4
5
6
7
procedure Truc(const S: string);
var
  lprqstParserError: XGOQUERYPARSER_ERROR;
  lprqstErrorPos: LongInt;
begin
  if (XgoQuery_CreateFromText(xgoMap, PChar(S), lprqstParserError, lprqstErrorPos) > 0) then
    ...

est-il devenu ?

Code :

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

1
2
3
4
5
6
7
procedure Truc(const S: string);
var
  lprqstParserError: XGOQUERYPARSER_ERROR;
  lprqstErrorPos: LongInt;
begin
  if (XgoQuery_CreateFromText(xgoMap, PAnsiChar(S), lprqstParserError, lprqstErrorPos) > 0) then
    ...

Peut-on "caster" un type string UnicodeString en PAnsiChar ???
Cela compile ? Warning ? Error ?

Par habitude C++, c'est la fonction Wrapper qui utilise un paramètre qui va me simplifier la vie pour que je n'ai pas de question à me poser sur le type char ou wchar_t

Code c++ :

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

1
2
3
4
5
6
7
void Truc(const AnsiString S); // Ici !!!
{
  XGOQUERYPARSER_ERROR lprqstParserError;
  LongInt lprqstErrorPos;
 
  if (XgoQuery_CreateFromText(xgoMap, S.c_str(), &lprqstParserError, &lprqstErrorPos) > 0) 
    ...

donc en Delphi

Code :

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

1
2
3
4
5
6
7
procedure Truc(const S: AnsiString); // Ici !!!
var
  lprqstParserError: XGOQUERYPARSER_ERROR;
  lprqstErrorPos: LongInt;
begin
  if (XgoQuery_CreateFromText(xgoMap, PAnsiChar(S), lprqstParserError, lprqstErrorPos) > 0) then
    ...