Der folgende Code funktioniert zum Kopieren mehrerer Bilder aus einem auszuwählenden Ordner wunderbar.
Nur wenn sich der Quellordner auf einem über USB angesteckten Mobiltelefon befindet (Computer\Galaxy A40\Card\DCIM\Camera) kommen nur leere Strings als Dateinamen (im Beispiel Variable Pf1) zurück.
Code: Alles auswählen
procedure TForm17.Button1Click(Sender: TObject);//Bilder hinzufügen
var a : longint;
temp : boolean;
Pf1, Pf2 : string;
begin
temp := OpenPictureDialog1.Execute;
if temp then
begin
if not DirectoryExists(Pfad) then CreateDir(Pfad);
if OpenPictureDialog1.Files.Count > 0 then
begin
for a := 0 to OpenPictureDialog1.Files.Count - 1 do
begin
Pf1 := OpenPictureDialog1.Files[a];
Pf2 := Pfad+'\'+ExtractFileName(OpenPictureDialog1.Files[a]);
CopyFile(Pf1, Pf2);
end;
end;
BilderLaden;
end;
end;
Wie kann ich das umgehen?
Schönen Abend
Chris