Mehrere Dateien vom Explorer per Drag & Drop in Listbox?

[Nicodius]

Wie kann ich mehrere Dateien per D&D vom desktop/explorer etc... in die Listbox bzw einen ordner reinziehen so dass nacher alle bmp und jpg dateien in die listbox kommen


vielen dank

Nicodius

[toms]

Hi,

Schau mal hier.

[Nicodius]

den code hab ich für EINZELNE dateien verwendet oder?

[API]

Nein, auch für mehrere Dateien:

Delphi-Quellcode:

iFileCount := DragQueryFile(Msg.wParam, $FFFFFFFF, pcFileName, 255); 
  for i := 0 to iFileCount - 1 do 
  begin

[Nicodius]

VIELEN VIELEN VIELEN DANK!!!


und wie mach ich das:


Ordner reinziehen - filtern und die dateipfade von allen Jpg, jpeg und Bmp files ins Listbox schreiben?

[Nicodius]

dann kommt nur x(wiviele markiert worden sind) mal das was als ERSTES markiert worden ist


wenn ich 1.bmp, 2.jpg, 3.bmp markiere kommt 3 x 1.bmp mein quelltext :

Delphi-Quellcode:

procedure TForm1.WMDROPFILE(var msg: TMessage);
var 
  hDrop : Cardinal ; 
  fName : array[0..MAX_PATH] of Char ;
  iFileCount, i : Integer;
begin 
   hDrop := Msg.WParam ; 
   fName := '' ; 
   DragQueryFile(hDrop, 0, fName, MAX_PATH);
   iFileCount := DragQueryFile(Msg.wParam, $FFFFFFFF, fname, 255);
  for i := 0 to iFileCount - 1 do
  begin
   If (ExtractFileExt(lowercase(String(fname))) = '.bmp') or (ExtractFileExt(lowercase(String(fname))) = '.jpg') or (ExtractFileExt(lowercase(String(fname))) = '.jpeg') then
     Listbox1.Items.add((String(fName)));
   end;
   DragFinish (hDrop);
end;

[Luckie]

Zieh den Ordner auf dein Listbox und im OnDrop Event rufst du die Funktion aus der Code-Lib zum Finden von Dateien auf und übergibst ihr den Ordner und zwar zweimal, einmal für die Bitmaps und einmal für die JPEGS.

[SirThornberry]

@Nicodius: Dein Fehler ist das du FName nicht neu setzt in der Schleife sondern nur einmal vor der schleife.
Ich verwende folgenden Source in einer meiner Komponenten

Delphi-Quellcode:

type
  TNotifyDropFiles = procedure(Values: TStringlist) of Object;
[...]
FDropProc: TNotifyDropFiles;
[...]
procedure TVisualJBList.FWMDROPFILES (var Msg: TMessage);
var LCount, Lanzahl, Lsize: integer;
    LDateiname: PChar;
    LFileList: TStringlist;
begin
  If Assigned(FDropProc) then
  begin
    LFileList := TStringlist.Create;
    LDateiname := '';
    Lanzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, LDateiname, 255);
    for LCount := 0 to (Lanzahl - 1) do
    begin
      Lsize := DragQueryFile(Msg.WParam, LCount , nil, 0) + 1;
      LDateiname:= StrAlloc(Lsize);
      DragQueryFile(Msg.WParam,LCount , LDateiname, Lsize);
      LFileList.Add(string(LDateiname));
      StrDispose(LDateiname);
    end;
    LFileList.Free;
  end;
  DragFinish(Msg.WParam);
end;

in deinem Fall sollte folgendes reichen (ungetestet)

Delphi-Quellcode:

procedure TYourType.FWMDROPFILES(var Msg: TMessage);
var LCount, Lanzahl, Lsize: integer;
    LDateiname: PChar;
begin
  LDateiname := '';
  Lanzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, LDateiname, 255);
  for LCount := 0 to (Lanzahl - 1) do
  begin
    Lsize := DragQueryFile(Msg.WParam, LCount , nil, 0) + 1;
    LDateiname:= StrAlloc(Lsize);
    DragQueryFile(Msg.WParam,LCount , LDateiname, Lsize);
    // do Something with "LDateiname"
    StrDispose(LDateiname);
  end;
  FDropProc(LFileList);
  DragFinish(Msg.WParam);
end;

[Nicodius]

danke ;) ich schau mal ;)


danke luckie!

[Nicodius]

aber wie filtere ich jetzt daraus alle bmp und jpg/jpeg dateien?


SirThornberry: "[Fehler] Unit1.pas(204): Undefinierter Bezeichner: 'FDropProc'"