[gelöst] Dateinamen und Umlaute

[kralle]

Moin,

dieser Code hat Probleme mit Umlauten im Pfadnamen.

Code: Alles auswählen

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ShellApi;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    SelectDirectoryDialog1: TSelectDirectoryDialog;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
function GetFileTypename(const Filename: string): string;
// Quelle: http://www.delphi-treff.de/tipps-tricks/dateienverzeichnisse/dateieigenschaften/dateityp-ermitteln/
 
var Info: TSHFileInfo;
begin
  if SHGetFileInfo(PChar(Filename), 0, Info, SizeOf(Info), SHGFI_TYPENAME) <> 0 then
    Result := Info.szTypeName
  else
    Result := '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if SelectDirectoryDialog1.Execute then
    begin
      Memo1.Append('"'+SelectDirectoryDialog1.FileName+'" ist vom FileType= '+GetFileTypename(SelectDirectoryDialog1.FileName));
           if DirectoryExists(SelectDirectoryDialog1.FileName) then
        Memo1.Append(SelectDirectoryDialog1.FileName+' existiert.')
      else
        Memo1.Append('"'+SelectDirectoryDialog1.FileName+'" existiert nicht!      FileType= '+GetFileTypename(SelectDirectoryDialog1.FileName));
     Memo1.Append('---');
    end;
end;
 
end.
 

Ab dem Umlaut, werden die Verzeichnisse nicht mehr gefunden und der FileType bleibt leer.
Was muß ich ändern, damit Umlaute keine Probleme mehr machen?
Wie gehe ich bei FindFirst/FindNext vor, damit auch die keine Probleme mit Umlauten haben?

Gruß Heiko

[theo]

Die entsprechenden UTF-8 Fkt. verwenden:
http://wiki.freepascal.org/LCL_Unicode_ ... Dateinamen
und evtl. SHGetFileInfoW statt SHGetFileInfoA (FN umwandeln mit UTF8Decode).

[Patito]

Die entsprechenden UTF-8 Fkt. verwenden:
http://wiki.freepascal.org/LCL_Unicode_ ... Dateinamen
und evtl. SHGetFileInfoW statt SHGetFileInfoA (FN umwandeln mit UTF8Decode).

Funktioniert das denn generell?
Nicht jedes Filesystem erzwingt ein Encoding, das man verlustfrei nach UTF-8 hin und her umwandeln kann.

http://unix.stackexchange.com/questions ... s-on-linux

Zitat: "filenames and paths do not have an encoding; the OS only deals with sequence of bytes.
Individual applications may choose to interpret them as being encoded in some way, but this varies"

[kralle]

Hallo Theo,

Die entsprechenden UTF-8 Fkt. verwenden:
http://wiki.freepascal.org/LCL_Unicode_ ... Dateinamen

Okay, das klappt.

und evtl. SHGetFileInfoW statt SHGetFileInfoA (FN umwandeln mit UTF8Decode).

Die scheinen aber nicht 1:1 austauschbar zu sein.

Fehlermeldung:

unit1.pas(40,45) Error: Call by var for arg no. 3 has to match exactly: Got "_SHFILEINFOA" expected "_SHFILEINFOW"
unit1.pas(41,15) Warning: Local variable "Info" does not seem to be initialized
unit1.pas(61) Fatal: There were 1 errors compiling module, stopping

Was will mir Lazarus mit der Zeile 1 sagen???

Gruß Heiko

[theo]

Was will mir Lazarus mit der Zeile 1 sagen???

Na dass dort ein Zeiger auf einen WideString erwartet wird.

Probier mal so (nicht getestet):

Code: Alles auswählen

var Ws:WideString;
  Info: TSHFileInfoW;
begin
  Ws:=UTF8Decode(FileName);
  if  SHGetFileInfoW(@Ws, 0, Info, SizeOf(Info), SHGFI_TYPENAME) ....
 

[theo]

Funktioniert das denn generell?
Nicht jedes Filesystem erzwingt ein Encoding, das man verlustfrei nach UTF-8 hin und her umwandeln kann.

Worauf willst du hinaus? Bzw. wie soll es denn sonst gehen?

[kralle]

Hallo Theo,

Na dass dort ein Zeiger auf einen WideString erwartet wird.

Hätte ichnihct daraus gelesen ...

Probier mal so (nicht getestet):

Code: Alles auswählen

var Ws:WideString;
  Info: TSHFileInfoW;
begin
  Ws:=UTF8Decode(FileName);
  if  SHGetFileInfoW(@Ws, 0, Info, SizeOf(Info), SHGFI_TYPENAME) ....
 

Der Rückgabewert der Funktion bleibt leer ...

Gruß Heiko

[theo]

Dann probier so:

Code: Alles auswählen

 
SHGetFileInfoW(@WS[1], 0, Info, SizeOf(Info), SHGFI_TYPENAME)  

oder so:

Code: Alles auswählen

SHGetFileInfoW(PWideChar(WS), 0, Info, SizeOf(Info), SHGFI_TYPENAME) 

[kralle]

Hallo Theo,

Dann probier so:

Code: Alles auswählen

 
SHGetFileInfoW(@WS[1], 0, Info, SizeOf(Info), SHGFI_TYPENAME)  

oder so:

Code: Alles auswählen

SHGetFileInfoW(PWideChar(WS), 0, Info, SizeOf(Info), SHGFI_TYPENAME) 

Da wäre ich nicht drauf gekommen.
das "@WS[1]" ist ein Array oder so?

Gruß Heiko

[theo]

Hallo Theo,

Na dass dort ein Zeiger auf einen WideString erwartet wird.

Hätte ichnihct daraus gelesen ...

Stimmt, die Fehlermeldung bezog sich auf TSHFileInfo, was aber nicht heisst, dass die Sache mit dem PChar sauber funktioniert hätte.

@WS[1]" ist ein Array oder so?

Naja, ein String ist ja eine Art Array of (Wide-) Char. Aber eigentlich geht es um den Zeiger auf den Speicherbereich.

[kralle]

Hallo Theo,

Aber eigentlich geht es um den Zeiger auf den Speicherbereich.

Mit Zeigern habe ich nicht so, deshalb nutzte ich auch eine Digitaluhr

Danke, für Deine Hilfe.

Gruß Heiko