Unicode-Probleme mit Delphi 2009 / 2010 und windows-API-Aufrufe

Hallo ich habe diese Funktion in Delphi 2006, aber jetzt mit D2010 wirft es einen Fehler.
Ich denke, es ist im Zusammenhang mit der Umstellung auf 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;

Was soll ich tun damit es funktioniert?

BEARBEITEN

Bekomme ich eine "access violation", wenn das ChangeFileExt heißt

  • sollten Sie Bearbeiten Ihre Frage zum zählen der Fehlermeldung (eine gute Gewohnheit - macht Sinn, oder?)
  • Bitte Folgen Sie dem link für eine Diskussion des Problems (fast der gleiche code) und eine bessere version berücksichtigt, dass einige mehr von dem, was die API-Dokumentation sagt bezüglich der maximalen Puffergröße. 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;

    Versuchen, diese

      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;

    oder diese

      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;

    Für Delphi, Char-und PChar-Typen WideChar-und PWideChar-Typen, beziehungsweise.

    Wenn Sie eine Windows API, die Daten zurück in die char-Puffer diese Puffer werden müssen, erneut deklariert als array of Byte oder array of AnsiChar.

    Rufen Sie diese Windows-API und senden in den Puffer, wenn Sie wurden mit Hilfe der Funktion sizeof, wenn Sie sagen, die API wie lange dein Puffer ist. Diese Aufrufe müssen geändert werden, um die Länge-Funktion, wie die Windows widechar-API benötigen, die Anzahl der Zeichen, nicht die Anzahl der bytes.

    Bye.

    • Und der Grund, warum der alte code war ein problem, ist die SizeOf(Buffer) - 1, in GetTempPath(). SizeOf ein array von Chars war die gleiche wie die Länge für Delphi, die vor 2009, weil SizeOf(AnsiChar) = 1. Mit Delphi 2009 und höher, SizeOf(Char) = SizeOf(WideChar) = 2, so ist der code wurde gefragt, GetTempPath() zum füllen des Puffers mit mehr Zeichen, als es halten konnte.
    • die zweite option funktioniert danke 🙂
    • Ich habe versucht beide Optionen in "delphi 2010", und Sie funktionierte ok. 😉
    • Char ist nicht Widechar! Es ist UnicodeChar. Es gibt einen leichten Unterschied.
    • Gamecat in der delphi 2010 Hilfe ms-help://embarcadero.rs2010/rad/Simple_Types.html "Der Allgemeine Charakter-Typ ist Char, das ist gleichbedeutend mit WideChar jetzt, dass die Standard-string-Typ UnicodeString".
    • in D2009+ ist in der Tat ein alias für WideChar. Es gibt keine UnicodeChar Typ, und hat nie gewesen.

    InformationsquelleAutor RRUZ
  2. 0

    Mit Delphi 2009, Char ein unicode-char. Die Funktion wahrscheinlich erfordert ein array of AnsiChar.

    Gerade überprüft es. Beide GetTempFilename und GetTempPath erfordern eine PWideString.

    Was ist die Fehlermeldung?

    • Sind Sie sollte man nicht meinen PWideChar? PWideString ist etwas ganz anderes.
    InformationsquelleAutor Toon Krijthe
  3. 0

    Empfehle ich immer, und damit meine ich wirklich immer, einen Blick in die docs über die genauen Erwartungen der einzelnen API-Funktion in Bezug auf die dwSize parameter und/oder Rückgabewert.

    Leider gibt es eine Menge von verschiedenen Fällen, also einfach nur sagen "alle string-Funktionen müssen/return Anzahl der Zeichen" ist nicht ganz korrekt und senden kann, die den Leser in einen Alptraum des sporadischen ungültigen Zeiger AVs.

    • Die meisten API-Funktionen erwarten, dass Sie/return Anzahl der chars, aber einige
      nicht.
    • Einige Anzahl der terminierenden null-Zeichen, und einige nicht.
    • Einige Funktionen Verhalten sich anders, wenn ein null-Zeiger übergeben wird gegen wenn einen
      nicht-null-Zeiger übergeben wird.
    • Und es gibt auch einige Funktionen, die nicht bieten jede Art at all " angeben, um die erforderlichen Puffer.

    All diese Dinge gefunden in den docs leicht, aber man sollte es Lesen. Wirklich. Es kann sparen Sie Stunden.

    InformationsquelleAutor JensG
  4. 0

    Verwenden GetTempPathA und GetTempFileNameA, die Ansi-Versionen der GetTempPath und GetTempFileName. Sie stehen immer noch in Delphi 2009, und in der erwähnten Delphi 2009-Hilfe-Datei, aber nicht beworben.

    • Auf Windows-NT-OS-Versionen, die meisten, wenn nicht alle *Versionen der API-Funktionen sind nur stubs, die konvertieren, die Parameter und rufen Sie die *W Varianten der gleichen Funktion. Also in Delphi 2009+ Sie würde konvertieren internen wide-char-Daten Ansi, rufen Sie *Eine Funktion, die wandelt intern für wide chars und zurück, und das Programm würde das Ergebnis, und konvertieren es zurück zu wide chars. Würden Sie sagen, die diesen Weg gehen, macht das überhaupt Sinn?
    InformationsquelleAutor Reversed Engineer
Schreibe einen Kommentar