Unicode problèmes avec Delphi 2009 / 2010 et les appels d'API de windows

Salut j'ai été en utilisant cette fonction en Delphi 2006, mais maintenant, avec D2010 il renvoie une erreur.
Je pense que c'est lié à l'interrupteur de l'Unicode. 

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

Que dois-je faire pour le faire fonctionner?

MODIFIER

- Je obtenir une "violation d'accès" lorsque le ChangeFileExt est appelé

  • vous devez éditer votre question pour inclure le message d'erreur (une bonne habitude - logique, non?)
  • Veuillez consulter le lien suivant pour une discussion du problème (presque le même code) et une meilleure version qui prend en compte un peu plus de ce que la documentation de l'API dit concernant la taille maximale de mémoire tampon. forums.embarcadero.com/thread.jspa?threadID=18246
InformationsquelleAutor Charles Faiga | 2009-09-14
  1. 6

    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;

    Essayer 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 ce

      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 Delphi, Char et PChar types sont WideChar et PWideChar types, respectivement.

    Si vous utilisez l'un de l'API de Windows qui renvoient des données en char tampons les tampons doivent être redéclarée que des tableaux d'octets ou un tableau de AnsiChar.

    Si vous appelez ces de l'API de Windows et l'envoi dans les tampons, si l'ont été à l'aide de la fonction sizeof quand raconter l'API combien de temps votre tampon est. Ces appels doivent être modifiées pour la Durée de la fonction, comme Windows widechar API exiger que le nombre de caractères, et non pas le nombre d'octets.

    Bye.

    • Et la raison pour laquelle l'ancien code était un problème est la SizeOf(Buffer) - 1 dans GetTempPath(). SizeOf un tableau de Caractères était la même que la Longueur de Delphes avant 2009, parce que SizeOf(AnsiChar) = 1. Avec Delphi 2009 et plus tard, SizeOf(Char) = SizeOf(WideChar) = 2, de sorte que le code a été de demander GetTempPath() pour remplir la mémoire tampon avec plus de caractères qu'il pourrait contenir.
    • la deuxième option fonctionne merci 🙂
    • J'ai essayé les deux options "delphi 2010", et ils ont travaillé sur ok. 😉
    • Char n'est pas Widechar! Il est UnicodeChar. Il y a une légère différence.
    • Gamecat dans le delphi 2010 aider ms-help://embarcadero.rs2010/rad/Simple_Types.html "Le caractère général est de type Char, ce qui est équivalent à WideChar maintenant que le type de chaîne par défaut est UnicodeString".
    • dans D2009+ est en fait un alias pour WideChar. Il n'y a pas de UnicodeChar type, et ne l'a jamais été.

    InformationsquelleAutor RRUZ
  2. 0

    Avec Delphi 2009, Le Char est un char unicode. La fonction nécessite probablement un tableau de AnsiChar.

    Viens de vérifier il. Les deux GetTempFilename et GetTempPath besoin d'un PWideString.

    Quel est le message d'erreur?

    • Êtes-vous si vous ne veux pas dire PWideChar? PWideString est tout autre chose.
    InformationsquelleAutor Toon Krijthe
  3. 0

    Je vous recommande de toujours, et je veux vraiment dire toujours, jetez un oeil dans les docs sur l'exacte des attentes de chaque fonction de l'API concernant la dwSize paramètre et/ou la valeur de retour.

    Malheureusement il y a beaucoup de cas différents, donc il suffit de dire "toutes les fonctions de chaîne de besoin/retourne le nombre de caractères" n'est pas tout à fait correct et peut envoyer le lecteur dans un cauchemar sporadiques de pointeur invalide AVs.

    • La plupart des fonctions de l'API ne s'attendent/retourne le nombre de caractères, mais certains
      ne le faites pas.
    • Compte la valeur null char, et certains ne le font pas.
    • Certaines fonctions se comportent différemment lorsqu'un pointeur nul est passé vs lorsqu'un
      non-nul pointeur est passé.
    • Et il y a aussi certaines fonctions qui n'offrent pas de toute façon à tous pour indiquer la taille de mémoire tampon requise.

    Toutes ces choses peuvent être trouvés dans les docs facilement, mais il faut le lire. Vraiment. Il peut vous épargner des heures.

    InformationsquelleAutor JensG
  4. 0

    Utilisation GetTempPathA et GetTempFileNameA, la version Ansi de GetTempPath et GetTempFileName. Ils sont toujours disponibles dans Delphi 2009, et mentionné dans le Delphi 2009 fichier d'aide, mais ils ne sont pas annoncés.

    • Sur Windows NT versions de système d'exploitation la plupart, si pas tous *Une des versions les fonctions de l'API sont juste des stubs de convertir des paramètres et appel de l' *W versions de la même fonction. Donc en Delphi 2009+ vous convertir interne à l'échelle des données de type char Ansi, appel *Une fonction qui convertit en interne à l'échelle de la station et de retour, et le programme devrait prendre la suite et de la convertir à l'échelle de la station. Que diriez-vous d'aller dans cette voie a du sens?
    InformationsquelleAutor DaveBoltman