OpenDialog: Problem mit vielen Dateien

[Fussball-Robby]

Hey,
ich habe einen OpenDialog in meinem Programm. Mit diesem sollen nun viele Dateien ausgewählt werden. Ich habe einen Ordner mit ~2.300 Dateien, die ich alle (mit Strg + A) im Dialog auswähle. Dann lasse ich mir (als Überprüfung) die Anzahl der Dateien ausgeben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    if Execute then
      ShowMessage(IntToStr(Files.Count));
end;

Und was wird mir angezeigt? 74 Kann es sein, dass der OpenDialog mit so vielen Dateien irgendwie nicht zurecht kommt? Auch wenn ich die Namen der Dateien in eine Listbox schreiben lasse, werden da nicht alle hinzugefügt.

[Die Muhkuh]

Hast Du einen Filter aktiv?

[Fussball-Robby]

Ja (*.mp3 & *.wma), es haben aber alle Dateien in dem Ordner eine dieser Endungen.

Edit: Möglicherweise ist ja jemand so nett und guckt mal, was der OpenDialog bei ihm bei so vielen Dateien sagt

[himitsu]

es gab hier schonmal einen Thrad dazu .... mußte ma danach suchen

und soweit ich mich erinnern kann, hat die Opendialog-Implementation von Delphi einen festen Puffer und da passt einfach nur eine bestimmt Menge (in Byte) rein.

Alles was länger ist, wird abgeschnitten.

Alternative: wende dich direkt an die WinAPI

oder warte etwas, ich versuch mine Implementation bald mit in mein aktuelles Projekt einzubauen (incl. einiger Erweiterungen des Dialogs )

[Garfield]

Zitat von Fussball-Robby:

... Mit diesem sollen nun viele Dateien ausgewählt werden. Ich habe einen Ordner mit ~2.300 Dateien, die ich alle (mit Strg + A) im Dialog auswähle. ...

Wäre da nicht eine Ordnerauswahl sinnvoller?

[Fussball-Robby]

Zitat von Garfield:

Wäre da nicht eine Ordnerauswahl sinnvoller?

Nein, da nicht zwingend ein ganzer Ordner ausgewählt werden muss. Den ganzen Ordner verwende ich nur zum Testen. Komischerweise zeigt mir das Programm, wenn ich alle Dateien aus System32 auswähle (um die 2000), die richtige Zahl an Hat wohl was mit den Dateien in meinem Ordner zu tun, ich habe aber keine Ahnung, was..

[Garfield]

Zitat von Fussball-Robby:

Nein, da nicht zwingend ein ganzer Ordner ausgewählt werden muss. Den ganzen Ordner verwende ich nur zum Testen.

Auf die Idee bin ich dann auch gekommen.

Zitat von Fussball-Robby:

... ich habe aber keine Ahnung, was..

Hast Du schon ein paar von den angenommenen mit den nicht angenommenen Dateien verglichen? Zum Beispiel die Dateinamen.

[himitsu]

die Dateinamen deiner Musikstücke sind doch bestimmt nicht grad kurz?

ich hab zwar grad den Thread nicht gefunden, aber hier das Problem.

Delphi-Quellcode:

// Ort: 
// Unit Dialog
function TOpenDialog.DoExecute(Func: Pointer; ParentWnd: HWND): Bool;

// Zuweisung des Puffers
SetLength(TempFilename, nMaxFile + 2);
{OpenFilename.}lpstrFile := PChar(TempFilename);

// Größe des Puffers für Dateinamen (siehe MultiSelectBufferSize)
if ofAllowMultiSelect in FOptions then
  nMaxFile := MultiSelectBufferSize else
  nMaxFile := MAX_PATH;

// definierte Konstante
MultiSelectBufferSize = High(Word) - 16;

heißt, es passen nur (da ANSI) 65519 Byte (incl. Tenn- und Abschlußmarker)
bei 2000 Dateien macht das ~31 Zeichen pro Dateiname (in System32 sind viele 8.3-Dateinamen ... mit maximal 12 Zeichen)

aber ~800 Zeichen/Buchstaben pro Datei (bei 74 Dateien) kommen mir auch recht viel vor