Convertir une chaîne en PAnsiChar en Delphi 2009

Question

Je suis en train de convertir mes applications en Delphi 2009 et j'ai été confronté à un problème intrigant avec certains appels qui ont besoin de convertir une chaîne (wide) en AnsiString.

Voici un exemple pour illustrer la question que je vais avoir:

var 
    s: PAnsiChar; 

... 

s := PAnsiChar(Application.ExeName); 

Avec Delphi 2007 et les versions précédentes, s: = PChar (Application.ExeName) retournera le chemin exe application. Avec Delphi 2009, s: = PAnsiChar (Application.ExeName) renvoie uniquement 'E'. Je suppose que c'est parce que je convertis une chaîne unicode en une chaîne ansi, mais comment puis-je la convertir pour que PAnsiChar obtienne la chaîne complète?

Answer 1

Je n'ai pas Delphi 2009 ici, donc je ne peux pas le vérifier. Mais peut-être que vous devez essayer:

s := PAnsiChar(AnsiString(Application.ExeName)); 

Comme Gabr déjà souligné, ce n'est pas une très bonne pratique, et vous ne l'utilisez si vous êtes sûr à 100%. La chaîne contient uniquement les caractères qui ont un mappage direct vers la plage ANSI.

C'est pourquoi vous devriez recevoir un avertissement parce que vous convertissez Unicode en ANSI.

Answer 2

WideCharToMultiByte pourrait vous aider.

Answer 3

La conversion explicite de Gamecat fonctionne. J'explique le problème plus en détail ci-dessous afin que peut-être quelqu'un peut pointer vers une meilleure solution.

J'utilise la fonction suivante pour récupérer la date de compilation de l'application:

function LinkerTimeStamp(const FileName: string): TDateTime; 
var 
    LI: TLoadedImage; 
begin 
    {$IFDEF UNICODE} 
    Win32Check(MapAndLoad(PAnsiChar(AnsiString(FileName)), nil, @LI, False, True)); 
    {$ELSE} 
    Win32Check(MapAndLoad(PChar(FileName), nil, @LI, False, True)); 
    {$ENDIF} 
    Result := LI.FileHeader.FileHeader.TimeDateStamp/SecsPerDay + UnixDateDelta; 
    UnMapAndLoad(@LI); 
end; 

MapAndLoad nécessite un PAnsiChar pour le paramètre ImageName donc je dois convertir la chaîne unicode. Existe-t-il une autre alternative pour convertir explicitement en AnsiString en premier?

Answer 4

J'ai eu exactement le même problème. Le PAnsiChar pointe uniquement vers le premier caractère. J'ai écrit la fonction suivante pour gérer l'ancienne fonctionnalité.

// This function converts a string to a PAnsiChar 
// If the output is not the same, an exception is raised 
// Author: nogabel@hotmail.com 

function StringToPAnsiChar(stringVar : string) : PAnsiChar; 
Var 
    AnsString : AnsiString; 
    InternalError : Boolean; 
begin 
    InternalError := false; 
    Result := ''; 
    try 
    if stringVar <> '' Then 
    begin 
     AnsString := AnsiString(StringVar); 
     Result := PAnsiChar(PAnsiString(AnsString)); 
    end; 
    Except 
    InternalError := true; 
    end; 
    if InternalError or (String(Result) <> stringVar) then 
    begin 
    Raise Exception.Create('Conversion from string to PAnsiChar failed!'); 
    end; 
end; 

Answer 5

Je pense que vous êtes un peu éteint. Chaque fonction de l'API Win32 a une contrepartie unicode, si elle attend une chaîne. Essayez MapAndLoadW au lieu de MapAndLoad ...

Answer 6

Au lieu d'utiliser le type String, utilisez RawByteString:

s: RawByteString; 

s := LoadSomeRegularString(usually a string type); 

PAnsiChar(s) <<< all fine.