Problèmes Unicode avec Delphi 2009/2010 et les appels de l'API Windows

Question

Bonjour, J'ai utilisé cette fonction dans Delphi 2006, mais maintenant avec D2010, il y a une erreur. Je pense que c'est lié au passage à Unicode.

Que dois-je faire pour que cela fonctionne?

EDIT

je reçois une 'violation d'accès' lorsque le ChangeFileExt est appelé

Answer 1

Windows.pas

function GetTempFileName(lpPathName, lpPrefixString: PWideChar; 
    uUnique: UINT; lpTempFileName: PWideChar): UINT; stdcall; 

function GetTempPath(nBufferLength: DWORD; lpBuffer: PWideChar): DWORD; stdcall; 

SysUtils.pas

function ChangeFileExt(const FileName, Extension: string): string; 

Essayez cette

Function TWinUtils.GetTempFile(Const Extension: STRING): STRING; 
    Var 
    Buffer: ARRAY [0 .. MAX_PATH] OF WideChar; 
    Begin 
    Repeat 
     GetTempPath(Length(Buffer), Buffer); 
     GetTempFileName(Buffer, '~~', 0, Buffer); 
     Result := ChangeFileExt(Buffer, Extension); 
    Until not FileExists(Result); 
    End; 

ou cette

Function GetTempFile(Const Extension: String): String; 
    Var 
    Buffer: String; 
    Begin 
     SetLength(Buffer,MAX_PATH); 
    Repeat 
     GetTempPath(MAX_PATH, PChar(Buffer)); 
     GetTempFileName(PChar(Buffer), '~~', 0, PChar(Buffer)); 
     Result := ChangeFileExt(Buffer, Extension); 
    Until not FileExists(Result); 
    End; 

Pour les types Delphi, Char et PChar sont les types WideChar et PWideChar, respectivement.

Si vous utilisez des API Windows qui renvoient des données dans des buffers char, ces buffers doivent être redéclarés comme des tableaux d'octets ou un tableau d'AnsiChar.

Si vous appelez ces API Windows et que vous envoyez des tampons, utilisez la fonction sizeof lorsque vous indiquez à l'API la durée de votre tampon. Ces appels doivent être remplacés par la fonction Longueur, car les API widechar de Windows requièrent le nombre de caractères, pas le nombre d'octets.

Salut.

Answer 2

Avec Delphi 2009, Char est unicode omble chevalier. La fonction nécessite probablement un tableau d'AnsiChar.

Je viens de le vérifier. Les deux GetTempFilename et GetTempPath nécessitent un PWideString.

Quel est le message d'erreur?

Answer 3

Utiliser GetTempPathA et GetTempFileNameA, les versions Ansi de GetTempPath et GetTempFileName. Ils sont toujours disponibles dans Delphi 2009 et mentionnés dans le fichier d'aide Delphi 2009, mais pas annoncés.

Answer 4

Je recommande de toujours, et je veux dire toujours, d'aller voir dans les documents les attentes exactes de chaque fonction de l'API concernant le paramètre dwSize et/ou la valeur de retour. Malheureusement, il y a beaucoup de cas différents, donc juste dire que "toutes les fonctions de chaîne doivent/retourner nombre de caractères" n'est pas tout à fait correct et peut envoyer le lecteur dans un cauchemar de AV ponctuels sporadiques invalides.

• La plupart des fonctions d'API s'attendent/retournent le nombre de caractères, mais pas .
• Certains comptent le caractère nul final et d'autres non.
• Certaines fonctions se comportent différemment lorsqu'un pointeur nul est transmis ou lorsqu'un pointeur non nul est transmis.
• Et il y a aussi quelques fonctions qui n'offrent aucun moyen d'indiquer la taille de tampon requise.

Toutes ces choses peuvent être trouvées dans les docs facilement, mais il faut le lire. Vraiment. Cela peut vous faire économiser des heures.