Discussion :

[Bouillon]

Bonjour,

Afin de transférer un fichier texte dans une base de données en conservant les accents, j'ai récupéré ce code dans la FAQ.
Lorsque j'utilise cette fonction j'ai un message disant que 'Char' et 'WideChar' sont incompatibles.

Si quelqu'un pouvait m'aider à résoudre ce problème.

Merci

BB

Code :

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

1
2
3
4
5
function DosStrToWinStrW(Const StrDos: String): WideString;
begin
  SetLength(Result,Length(StrDos));
  OemToCharBuffW(pChar(StrDos),@Result[1],Length(StrDos));
end;

[ShaiLeTroll]

as tu tenté de remplacer pChar par PWideChar dans ton code ?

[Bouillon]

Oui j'ai essayé mais PWideChar n'est pas reconnu à moins d'avoir fait une boulette à côté en même temps.

[ShaiLeTroll]

Comment dire ! sur mes Delphi 6 et 7, ça passe très bien (la compilation, je n'ai pas testé l'exécution), j'utilise CharToOem pour mes fichiers Bat, donc nonrmalement ...

PChar et PWideChar déclaré dans System (unité implicite, tu ne peux pas ne pas l'avoir !)
String et WideString déclaré dans System aussi
Idem pour SetLength() et Length()
OemToCharBuffW et OemToCharBuff déclaré dans Windows (il faut le mettre dans les uses, en général avec une Form c'est par défaut)

A vérifier si le paramètre cchDstLength est bien la longueur de la chaine ou le nombre d'octet ...

Code :

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

1
2
3
4
5
function DosStrToWinStrW(Const StrDos: string): WideString;
begin
  SetLength(Result, Length(StrDos));
  OemToCharBuffW(PWideChar(StrDos), @Result[1], Length(StrDos));
end;

[archonte]

J'avais résolu une fois ce problème en remplaçant les String par des ANSIString, "tout simplement" .... mais je ne retrouve plus le code : donc sous reserve .

[ShaiLeTroll]

archonte, le remplacement string\AnsiString, ça doit aussi aider pour Delphi 2009 ? Sinon cela fait plein de transtypage bizarre ...

[Bouillon]

Merci à vous,

ShaiLeTroll en effet ces fonctions "fonctionnent" mais pas avec ce fichu fichier.
N'étant toujours pas parvenu à traduire ce fichier correctement (Unicode, etc...) j'ai copié le contenu du fichier dans un autre fichier texte qui lui ne présentait pas de problèmes et là j'ai pu récupérer tous les caractères.

Si je trouve une solution directe je l'indiquerai ici.

Encore merci à vous

BB