TSearchRec bei Dateien/Ordner mit Unicode-Namen

[Ares]

Hallo!

Ich brauche für ein Programm Funktionen die mir eine Liste aller Unterordner oder aller Dateien in einem Verzeichnis liefern. Das ist mit TSearchRec und FindNext() ja kein Problem. Nun wir das Programm aber auf Rechnern eingesetzt bei den viele Ordner und Dateinamen Unicode Zeichen enthalten und hier stößt TSearchRec anscheinend an seine Grenzen.

Hab ich z.B. einen Ordner "Προγράμματα Διαφήμισης" liefert mir TSearchRec den Namen "'??????µµata ??af?µ?s??'". Versuche ich dann diesen Ordner zu öffnen erhalte ich natürlich die Meldung, dass kein Ordner mit diesem Namen existiert...

Ich verwende Delphi 2007, gibt es hier irgendeine Möglichkeit Datei- und Ordnernamen in Unicode zu ermitteln?

Besten Dank!
Ares

[NineBerry]

Hallo

Eine praktische Lösung besteht darin, statt MySearchRec.Name auf MySearchRec.FindData.cAlternateFileName zuzugreifen. Dies liefert dir den 8.3 (Dos-kompatiblen) Dateinamen. Dieser enthält garantiert nur ANSI-Zeichen.

Wenn du den Dateinamen nicht nur intern verwenden, sondern auch anzeigen möchtest, musst du größere Geschütze auffahren. Das Problem ist, dass ein Delphi string (vor Delphi 2009) nun mal eben nur Ansi-Zeichen und keine Unicode-Zeichen speichern kann.

Du musst also von Hand die WinAPI-Funktion FindNextFileW() aufrufen und von dort aus den Dateinamen durchgängig in Variablen vom Typ WideString verarbeiten (statt string).

(Oder auf Delphi 2009 umsteigen )

Neun

[Fridolin Walther]

Delphi 2009 kann Unicode "out of the box", Versionen vor 2009 leider nicht. In Deinem Fall musst Du für Unicode Support entweder Drittkomponenten (TntSysUtils mit WideFindFirst/WideFindNext) verwenden oder aber alternativ die Windows API nutzen (FindFirstFileW und FindNextFileW).