FileExists aber Casesensitive

[Luciano]

Hallo...

ich habe mal eine bescheidene Frage. Ich stehe ein wenig auf dem Schlauch.

Ich muß nachschauen ob ein File Existiert: das mache ich mit FileExists(DasIstMeineDatei)
Lieder ist das aber nicht CaseSensitive. Gibt es eine möglichkeit das ganze umzustricken?
Das Problem ist eben das die Datei auch unter Linux genutzt wird und somit muß ich das CaseSensitive testen ob die Datei auch mit dieser Schreibweise vorhanden ist.

Danke für Tipps und Anregungen.

P.S. Ich hoffe ich bin hier im richtigen Bereich.

[Phoenix]

Unter Windows geht das nicht. Nein.
Unter Windows ist 'DieseDatei' gleich 'diesedatei', deswegen kannst Du unter Windows auch keine zwei Dateien mit unterschiedlicher Groß/Klein-Schreibweise in einem Verzeichnis haben.

[DeddyH]

Ich weiß nicht, ob das so funktioniert, aber mein erster Gedanke wäre: mit FindFirst suchen und bei Treffer SearchRec.Name mit dem gesuchten Namen vergleichen.

[Mithrandir]

Zitat:

Zitat von Phoenix

Unter Windows geht das nicht. Nein.
Unter Windows ist 'DieseDatei' gleich 'diesedatei', deswegen kannst Du unter Windows auch keine zwei Dateien mit unterschiedlicher Groß/Klein-Schreibweise in einem Verzeichnis haben.

Was dann aber den tollen Effekt hat, dass man FileExists nutzen kann, um zu prüfen, ob die Datei überhaupt existiert, um dann anschließend nochmal den Dateinamen mit dem vorgegebenen Namen zu vergleichen. ;)

[himitsu]

@DeddyH: ja, das geht

was auch ginge:
eine Linux-Partition mounten, denn der Dateisystemtreiber dafür würde/müßte CaseSensitive arbeiten.

[Luciano]

Danke für die Tipps,

ich habe es jetzt so gelöst

Delphi-Quellcode:

//ListBox2.Items[i2] ist mein Dateiname
if FileExists(Laufwerk+ListBox2.Items[i2]) = True then
  begin
    if FindFirst(Laufwerk+ListBox2.Items[i2],faAnyFile,SR) =0 then
      begin
        if StrComp(PChar(SR.Name), PChar(ListBox2.Items[i2])) = 0 then
          begin
            ListBox3.Items.Add(ListBox2.Items[i2]);
            //Die richtigen Namen werden übernommen. 
           end;
       end;
     FindClose(SR);
   end;

[Mithrandir]

Geil, doppelt gemoppelt. :mrgreen:

Du nimmst entweder FileExists oder die Lösung mit FindFirst. Beides ist imho nicht nötig. ;)

//Edit: Ich würde natürlich FileExists nehmen... :mrgreen:

[DeddyH]

Das erscheint mir doppelt gemoppelt. Wie wäre es denn so (ungetestet)?

Delphi-Quellcode:

function FileExistsCaseSensitive(const Filename: TFilename): Boolean;
var SearchRec: TSearchRec;
begin
  Result := FindFirst(Filename, faAnyFile, SearchRec) = 0;
  if Result then
    try
      Result := AnsiCompareStr(Filename, SearchRec.Name) = 0;
    finally
      SysUtils.FindClose(SearchRec);
    end;
end;

[edit] Trotz fehlendem roten Kasten dieselbe Redewendung :lol: [/edit]

[himitsu]

zum Vergleichen kann man auch mal die CompilerMagic ausnutzen und eventuell könnte man auch gleich noch mit prüfen, ob es auch wirklich 'ne Datei ist

Delphi-Quellcode:

function FileExistsCaseSensitive(const Filename: TFileName): Boolean;
var SR: TSearchRec;
begin
  Result := FindFirst(Filename, faAnyFile, SR) = 0;
  if Result then FindClose(SR);
  Result := Result and (SR.Attr and faDirectory = 0) and (SR.Name = Filename);
end;

Delphi-Quellcode:

function FileExistsCaseSensitive(const Filename: TFileName): Boolean;
var SR: TSearchRec;
begin
  Result := FindFirst(Filename, faAnyFile and not faDirectory, SR) = 0;
  if Result then FindClose(SR);
  Result := Result and (SR.Name = Filename);
end;

[edit]
und noch was Windowstypisches ... was passiert, wenn man als FileName den kurzen 8.3-Namen angibt?

Delphi-Quellcode:

function FileExistsCaseSensitive(const Filename: TFileName): Boolean;
var SR: TSearchRec;
begin
  Result := FindFirst(Filename, faAnyFile, SR) = 0;
  if Result then FindClose(SR);
  Result := Result and (SR.Attr and faDirectory = 0) and ((SR.Name = Filename)
    or AnsiSameText(SR.FindData.cAlternateFileName, Filename));
end;

[DeddyH]

Zitat:

Zitat von Luciano

Das Problem ist eben das die Datei auch unter Linux genutzt wird und somit muß ich das CaseSensitive testen ob die Datei auch mit dieser Schreibweise vorhanden ist.

Zitat:

Zitat von himitsu

und noch was Windowstypisches ...

:roll:

[Luciano]

Hallo,

Vielen dank für die Vorschläge, da habe ich ja etwas zum ausprobieren...


Gruß

[Apollonius]

Zitat:

Zitat von Phoenix

Unter Windows geht das nicht. Nein.
Unter Windows ist 'DieseDatei' gleich 'diesedatei', deswegen kannst Du unter Windows auch keine zwei Dateien mit unterschiedlicher Groß/Klein-Schreibweise in einem Verzeichnis haben.

Das würde ich nicht ganz so streng sehen. CreateFile unterstützt wohl das Flag FILE_FLAG_POSIX_SEMANTICS:

Zitat:

Access will occur according to POSIX rules. This includes allowing multiple files with names, differing only in case, for file systems that support that naming. Use care when using this option, because files created with this flag may not be accessible by applications that are written for MS-DOS or 16-bit Windows.

Es müsste also möglich sein, CreateFile mit diesem Flag sowie OPEN_EXISTING aufzurufen und damit zu testen, ob eine Datei mit genau der angegebenen Schreibweise existiert. Die Suche mit FindFirst und FindNext wäre dann überflüssig. Ich habe das allerdings nicht ausprobiert.

[wicht]

Ich bin mir ganz sicher mal gelesen zu haben, dass NTFS auf den unteren Ebenen diese Unterscheidung unterstützt, nur dass es immer abgeschaltet ist. Könnte z.B. irgendein NTFS-Flag oder sowas sein (was im Header der Partition oder so gesetzt ist)?
Naja, aber da müsste man so tief reinsteigen, da sind die vorgeschlagenen Lösungen vermutlich besser.. :P