Konwertuj ciąg znaków na PAnsiChar w Delphi 2009

Question

Konwertuję moje aplikacje na Delphi 2009 i napotkałem intrygujący problem z niektórymi wywołaniami, które muszą przekonwertować ciąg (szeroki) na AnsiString.

Oto przykład wykazać problem mam:

var 
    s: PAnsiChar; 

... 

s := PAnsiChar(Application.ExeName); 

z Delphi 2007 i wcześniejszych wersjach, S: = PChar (Application.ExeName) zwróci ścieżkę exe aplikacji.

z Delphi 2009, s: = PAnsiChar (Application.ExeName) zwraca tylko "E".

Zgaduję, że to dlatego, że konwertuję ciąg znaków Unicode na ciągi ansi, ale w jaki sposób mogę go przekonwertować tak, aby PAnsiChar otrzymał pełny ciąg znaków?

Answer 1

Nie mam tutaj Delphi 2009, więc nie mogę tego sprawdzić. Ale może trzeba spróbować:

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

Jak Gabr już wspomniano, nie jest to bardzo dobra praktyka, i będzie go używać tylko wtedy, gdy jesteś w 100% pewien. Łańcuch zawiera tylko znaki, które mają bezpośrednie odwzorowanie na zakres ANSI.

Dlatego powinieneś otrzymać ostrzeżenie, ponieważ konwertujesz Unicode na ANSI.

Answer 2

WideCharToMultiByte może ci pomóc.

Answer 3

Działa wyraźna zamiana Gamecat. Poniżej wyjaśniam problem, aby być może ktoś wskazał lepsze rozwiązanie.

używam następującą funkcję aby pobrać datę kompilacji aplikacji:

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 wymaga PAnsiChar dla imageName Parametr więc trzeba przekonwertować ciąg Unicode. Czy jest jakaś inna alternatywa, aby najpierw przekonwertować na AnsiString?

Answer 4

Miałem dokładnie ten sam problem. PAnsiChar wskazuje tylko na pierwszy znak. Napisałem następującą funkcję do obsługi starej funkcjonalności.

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

Myślę, że jesteś trochę wolny. Każda funkcja Win32 API ma odpowiednik w standardzie Unicode, jeśli oczekuje ciąg znaków. Spróbuj MapAndLoadW zamiast MapAndLoad ...

Answer 6

Zamiast typ String, użyj RawByteString:

s: RawByteString; 

s := LoadSomeRegularString(usually a string type); 

PAnsiChar(s) <<< all fine.