Convertir cadena a PAnsiChar en Delphi 2009

Question

Estoy convirtiendo mis aplicaciones a Delphi 2009 y enfrenté un problema intrigante con algunas llamadas que necesitan convertir una cadena (ancha) a AnsiString.

He aquí un ejemplo para demostrar el problema que estoy teniendo:

var 
    s: PAnsiChar; 

... 

s := PAnsiChar(Application.ExeName); 

Con Delphi 2007 y versiones anteriores, s: = PChar (Application.ExeName) devolvería la ruta de aplicación exe.

con Delphi 2009, s: = PAnsiChar (Application.ExeName) devuelve solo 'E'.

Supongo que es porque estoy convirtiendo una cadena Unicode en una cadena ansi, pero ¿cómo puedo convertirla para que un PAnsiChar obtenga la cadena completa?

Answer 1

No tengo Delphi 2009 aquí, así que no puedo verificarlo. Pero tal vez usted tiene que tratar:

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

Como ya se señaló Gabr, esto no es una práctica muy buena, y sólo se va a usar si está 100% seguro. La cadena solo contiene caracteres que tienen una asignación directa al rango ANSI.

Es por eso que debería recibir una advertencia porque está convirtiendo Unicode en ANSI.

Answer 2

WideCharToMultiByte podría ayudarlo. las obras de conversión explícita

Answer 3

Gamecat. Estoy explicando el problema con más detalle a continuación para que tal vez alguien pueda señalar una mejor solución.

estoy usando la siguiente función para recuperar la fecha de compilación de aplicaciones:

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 requiere un PAnsiChar para el parámetro ImageName así que necesito para convertir la cadena Unicode. ¿Hay alguna otra alternativa para convertir explícitamente a AnsiString primero?

Answer 4

que tenían el mismo problema. El PAnsiChar solo apunta al primer caracter. Escribí la siguiente función para manejar la funcionalidad anterior.

// 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

Creo que estás un poco apagado. función de la API de Win32 Cada tiene una contraparte Unicode, si se está a la espera de una cadena. Trate MapAndLoadW en lugar de MapAndLoad ...

Answer 6

En lugar de utilizar el tipo String, utilice RawByteString:

s: RawByteString; 

s := LoadSomeRegularString(usually a string type); 

PAnsiChar(s) <<< all fine.