Filterfehler bei FileListBox

[Delfiano]

Wie soll ich denn beschreiben, was nicht funktioniert?

In der Regel bedeutet es, dass es als Ergebnis die gewünschte Unterscheidung nicht gibt. Dass es schon standardmässig u.a. an der jeweiligen Windows-Version liegt, hatte ich doch mittlerweile heraugefunden.

Allerdings kann ich Dein letztes Beispiel gar nicht erst kompilieren:

Code:

[Fehler] Unit1.pas(40): Undefinierter Bezeichner: 'FindExInfoBasic'
[Fehler] Unit1.pas(40): Inkompatible Typen: 'Cardinal' und 'LongBool'
[Fehler] Unit1.pas(50): Undefinierter Bezeichner: 'Winapi'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

40: hFile := FindFirstFileEx(PChar(edPath.Text + edMask.Text), FindExInfoBasic, @FindData, FindExSearchNameMatch, nil, FIND_FIRST_EX_LARGE_FETCH);
50: Winapi.Windows.FindClose(hFile);

Und was mich aufgeregt habt, lieber Kodezwerg, sind Dein "Naja, dann eben nicht." und Deine Unterstellungen im "//edit"-Teil.

Und wie das hier von Harry Stahl bei ihm unterschiedliche Ergebnisse bringen soll, ist mir unklar.

Code:

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  FileListBox1.Directory := DirectoryListBox1.Directory ;
  FileListBox2.Directory := DirectoryListBox1.Directory;
  FileListBox3.Directory := DirectoryListBox1.Directory;

  FileListBox1.Mask := DirectoryListBox1.Directory + '\' + Edit1.text;
  FileListBox2.Mask := DirectoryListBox1.Directory + '\' + Edit2.text;
  FileListBox3.Mask := DirectoryListBox1.Directory + '\' + Edit3.text;
end;

Ich hab wirklich extra nochmal den Aufwand betrieben, die Vorschläge genau umzusetzen, obwohl ich gar keine umständlichen Edit-Felder benutze, sondern die Auswertung, wonach gesucht werden soll, viel einfacher vornehme, also entweder in den Click-Anweisungen von Buttons oder Radiobuttons.

[KodeZwerg]

Zitat von Delfiano:

Wie soll ich denn beschreiben, was nicht funktioniert?

Genau so wie Du es nun getan hast!!!!
Woher soll denn einer Wissen der nicht Deine Delphi Version zur Verfügung hat was da schiefläuft ?

Zitat von Delfiano:

Allerdings kann ich Dein letztes Beispiel gar nicht erst kompilieren

Da nun klar ist woran es liegt, hier ein neuer Versuch.

Zitat von Delfiano:

Und was mich aufgeregt habt, lieber Kodezwerg, sind Dein "Naja, dann eben nicht." und Deine Unterstellungen im "//edit"-Teil.

Hiermit reiche ich Dir nochmal die Hand in der Hoffnung das Du es mir nicht mehr böse nimmst, Frieden zwischen uns okay?

Delphi-Quellcode:

{$IF CompilerVersion >= 23}
{$DEFINE NameSpace}
{$ELSE CompilerVersion}
{$UNDEF NameSpace}
{$IFEND CompilerVersion}
unit Unit4;

interface

uses
{$IFDEF NameSpace}
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
{$ELSE NameSpace}
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;
{$ENDIF NameSpace}

const
  kernelbase = 'kernel32.dll';
  FIND_FIRST_EX_LARGE_FETCH = 2;
  MAX_PATH = 260;

type
  LPWSTR = PWideChar;
  _WIN32_FIND_DATAW = record
    dwFileAttributes: DWORD;
    ftCreationTime: TFileTime;
    ftLastAccessTime: TFileTime;
    ftLastWriteTime: TFileTime;
    nFileSizeHigh: DWORD;
    nFileSizeLow: DWORD;
    dwReserved0: DWORD;
    dwReserved1: DWORD;
    cFileName: array[0..MAX_PATH - 1] of WideChar;
    cAlternateFileName: array[0..13] of WideChar;
  end;
  WIN32_FIND_DATAW = _WIN32_FIND_DATAW;
  TWin32FindDataW = _WIN32_FIND_DATAW;

  _FINDEX_INFO_LEVELS = (FindExInfoStandard, FindExInfoBasic, FindExInfoMaxInfoLevel);
  TFindexInfoLevels = _FINDEX_INFO_LEVELS;
  _FINDEX_SEARCH_OPS = (FindExSearchNameMatch, FindExSearchLimitToDirectories,
    FindExSearchLimitToDevices);
  TFindexSearchOps = _FINDEX_SEARCH_OPS;

function FindFirstFileExW(lpFileName: LPWSTR; fInfoLevelId: TFindexInfoLevels;
  lpFindFileData: Pointer; fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer;
  dwAdditionalFlags: DWORD): THandle; stdcall;
function FindNextFileW(hFindFile: THandle; var lpFindFileData: TWIN32FindDataW): BOOL; stdcall;

type
  TForm4 = class(TForm)
    edPath: TEdit;
    edMask: TEdit;
    lbFiles: TListBox;
    btnStart: TButton;
    procedure btnStartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

function FindFirstFileExW; external kernelbase name 'FindFirstFileExW';
function FindNextFileW; external kernelbase name 'FindNextFileW';

procedure TForm4.btnStartClick(Sender: TObject);
var
  SL: TStringList;
  hFile: THandle;
  FindDataW: TWIN32FindDataW;
begin
  SL := TStringList.Create;
  try
    hFile := FindFirstFileExW(PWideChar(edPath.Text + edMask.Text), FindExInfoBasic, @FindDataW, FindExSearchNameMatch, nil, FIND_FIRST_EX_LARGE_FETCH);
    if hFile <> INVALID_HANDLE_VALUE then
      begin
        repeat
          if (((FindDataW.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0) and (FindDataW.cFileName <> WideString('.')) and (FindDataW.cFileName <> WideString('..'))) then
            begin
              SL.Add(WideString(FindDataW.cFileName));
            end;
        until (not FindNextFileW(hFile, FindDataW));
      end;
    {$IFDEF NameSpace}Winapi.{$ENDIF NameSpace}Windows.FindClose(hFile);
    lbFiles.Items.BeginUpdate;
    lbFiles.Clear;
    lbFiles.Items := SL;
    lbFiles.Items.EndUpdate;
  finally
    SL.Free;
  end;
end;

end.

Im Anhang ist das Projekt als Quelltext sowie in kompilierter Form.
Es kann sein das Dein Delphi mit der .dfm Datei nicht klarkommt (Align und AlignWithMargins). Diese Fehler ignorieren und selbst das Design anpassen.
Es kann sein das Dein Delphi mit der .res Datei nicht klarkommt, einfach löschen und Delphi eine Eigene erstellen lassen, da ist nur das Icon drinnen.

Wenn es wieder nicht funktionieren sollte, gebe wieder Bescheid in der Form wie Du es nun gemacht hast. (Benenne Fehler, sag nicht einfach nur "klappt nicht")


//edit
Mir ist noch ein Fehler unterlaufen für Deine Delphi Version an den ich vorher nicht gedacht hatte.
Bitte die .dpr Datei anpassen bevor Du das Projekt in Delphi reinlädst. Das hatte ich vorhin noch nicht auf dem Schirm gehabt.

Delphi-Quellcode:

{$IF CompilerVersion >= 23}
{$DEFINE NameSpace}
{$ELSE CompilerVersion}
{$UNDEF NameSpace}
{$IFEND CompilerVersion}
program Project8;

uses
{$IFDEF NameSpace}
  Vcl.Forms,
{$ELSE NameSpace}
  Forms,
{$ENDIF NameSpace}
  Unit4 in 'Unit4.pas' {Form4};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True; // ich weiß nicht ob Dein Delphi das kennt, Zeile löschen wenn nötig.
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.

[KodeZwerg]

@Delfiano
Ich möchte nicht aufdringlich sein oder nerven, lediglich nachfragen ob es nun geklappt hat und das Problem gelöst ist.

[Delfiano]

Sorry, wegen anderer Sachen bin ich erst heute dazu gekommen, mich mal wieder hier einzuloggen.

Nein.

Das Problem ist dadurch leider nicht gelöst. Wenn ich nach *.mmp suche, wird weiter auch *.mmpz angezeigt.

Es hat auch überhaupt nichts mit der Länge der Endung (also 8+3) zu tun, denn unter XP funktioniert die Standardfunktion korrekt, und da gab es längst lange Dateinamen.

Nein, es liegt eindeutig an Microsofts Schlampigkeit.

Ich hatte mir ja vor mehreren Monaten angetan, einige meiner Computer mit Windows 8.1 und 10 auszustatten und hatte vor ein paar Tagen vor, es mit einem weiteren zu tun. Aber gleich nach der Installation habe ich mich schon wieder geärgert, was ich da alles machen muss, um diesen ganzen Müll loszuwerden, den ich nicht haben möchte, angefangen mit den "Apps" ...

Ich hab's dann wiwder gelöscht. Microsoft entwickelt nur noch unzumutbaren Schrott. Wenn ich also hier in diesem Forum noch mal Projektansätze veröffentliche, kann ich nicht garantieren, dass diese mit Widowsversionen nach XP funktionieren.

An dieser Stelle aber noch mal recht vielen Dank an alle, die sich dieses seltsamen Delphi-Verhaltens angenommen haben, und ganz besonders an den KodeZwerg !

Ach so, noch was: Die Original-Exe-Datei vom KodeZwerg liefert unter XP gar kein Ergebnis und der Quelltext lässt sich (auch nach Entfernen der ungültigen Compileranweisungen) bei mir nicht kompilieren.

"Access violation at adress 0547487B in module RLINK32.DLL. Read of address 060600E2" (wenn ich mich beim abschreiben vertippt habe)...