Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Dateien mit Pfad kopieren (https://www.delphipraxis.net/206538-dateien-mit-pfad-kopieren.html)

Willie1 2. Jan 2021 18:08

Dateien mit Pfad kopieren
 
Hallo Leute,
ich bin mit dem Umbenennen der Dateien fertig, um die Bilder auf dem Bilderrahmen in der gewünschten Reihenfolge zu zeigen.
Jetzt will ich diese Struktur auf die SD-Karte kopieren unter Beibehalt der Ordner.
Beispiel: Bild.Rahmen\Aachen1\Bilddateien Bild.Rahmen\HochzeitOllie\... usw.
Das habe ich noch nie gemacht. Ich benutze SHFileOperation. Als pFrom gebe ich die Dateien mit vollem Pfad, als pTo die (Ziel-)Pfade an. Das gibt zwar keine Fehlermeldung aber es wird nur eine Datei Aachen1 angelegt.
Was mache ich falsch, geht das überhaupt mit SHFileOperation ?
Gruß Willie.

zeras 2. Jan 2021 19:43

AW: Dateien mit Pfad kopieren
 
Versuche es doch mal so. Ich hoffe, dass es diese Funktionen schon in deiner Delphi Version gibt.
Delphi-Quellcode:

uses
 System.IOUtils;

procedure TForm29.Button1Click(Sender: TObject);
begin
  TDirectory.copy(Src, Dst);
end;

mmw 2. Jan 2021 19:54

AW: Dateien mit Pfad kopieren
 
Hallo,

Delphi-Quellcode:
TDirectory.Copy();


sollte nicht funktionieren.

lt. Online-Hilfe "Copy löst eine Exception aus, wenn die angegebenen Pfade ungültig oder nicht vorhanden sind, oder wenn kein Zugriff auf sie möglich ist. "

Im Prinzip sollte es mit SHFileOperation aber funktionieren.

aber ohne SRC kann man das natuerlich schwer sagen.

Gruß

Poelser 2. Jan 2021 20:12

AW: Dateien mit Pfad kopieren
 
Hab' jetzt zwar kein Delphi zur Hand, aber in 10.1 gibt's TDirectory.
Damit sollte Copy gehen. Um eine Exception zu vermeiden, falls dst nicht existiert, vorher Pfad extrahieren und mit ForceDirectory drauf los.

Gruß aus dem hohen Norden, Edmund

gast2019 2. Jan 2021 21:42

AW: Dateien mit Pfad kopieren
 
https://www.wintotal.de/tipp/xcopy-parameter/

wenn's auch ohne Delphi sein darf :wink:

Ein gutes Neues wünsche ich!

Willie1 3. Jan 2021 19:09

AW: Dateien mit Pfad kopieren
 
Hallo, zunächst vielen Dank für eure schnellen Antworten.
Mit TDirectory.Copy(src, dest) geht es, wenn man bei dest den Ordner anhängt. Es gibt keine Exception, auch wenn der Zielordner nicht existiert.
Aber dann müsste es doch auch mit SHFileOperation klappen. Da gibt es Fortschrittsbalken, ich will sehr viele Bilder auf ein langsames Medium (SD) kopieren.
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
  dir, pa, fi, s: string;
  i: Integer;
begin
  if SelectDirectory('Zielordner auswhlen','Computer',Dir,[sdNewUI,sdNewFolder]) then begin
    Dir := IncludeTrailingPathDelimiter(Dir);
    for i:=0 to NewList.Count - 1 do begin
      s := ExcludeTrailingPathDelimiter(NewList.GetPath(i));
      s := Copy(s, LastDelimiter('\', s)+1, MAXINT);
      pa := Dir + s + '\';
      fi := NewList.GetPathName(i);
      CopyFiles(pa, fi ,false);
    end;
  end;
end;
Delphi-Quellcode:
 function CopyFiles(DestFolder: string; const Files: array of string; WithConfirm: Boolean;
                     Move: Boolean=false): Boolean;
    var
      SHFOS: TSHFileOpStruct;
      i: Integer;
      s: string;
  begin
    s:='';
    for i:=Low(Files) to High(Files) do s:=s + Files[i] + #0;
    s:=s + #0;
    with SHFOS do begin
      Wnd:=0;
      if Move then wFunc:=FO_MOVE else wFunc:=FO_COPY;
      pFrom:=PChar(s);
      pTo:=PChar(DestFolder);
      fFlags:=FOF_NOCONFIRMATION;    //ohne Rückfrage
      if WithConfirm then fFlags:=0;
      fAnyOperationsAborted:=false;
      hNameMappings:=nil;
    end;
    Result:=(ShFileOperation(SHFOS) = 0) and (SHFOS.fAnyOperationsAborted = LongBool(false));
  end; {CopyFiles}
Willie.
Nachtrag: Wenn ich das Kopieren des Ordner mit dem Explorer ausführe, geht es doch auch!

mmw 3. Jan 2021 19:45

AW: Dateien mit Pfad kopieren
 
hallo,

Delphi-Quellcode:
 for i:=Low(Files) to High(Files) do s:=s + Files[i] + #0;
    s:=s + #0;
wäre es nicht besser so -

Delphi-Quellcode:
  for i:=Low(Files) to High(Files) do begin
     s:=''
     s:=s + Files[i] + #0#0
  CopyFiles(...)
   end;
wäre einfacher der Funktion nur die Datei zu übergeben die kopiert werden soll.

gruß

Willie1 5. Jan 2021 12:12

AW: Dateien mit Pfad kopieren
 
Hallo Leute,
ich habe im Explorer schon oft einen Ordner (mit Unterordnern) in ein Verzeichnis eines anderen Laufwerks kopiert, z.B. Delphi-Projekte.
Das muss doch auch programmgesteuert gehen! Mit TDirectory.Copy läuft es nicht. Ich kann zwar einen Unterordner benennen, er wird auch angelegt, aber nicht die gesamte Ordnerstruktur.
Meine Funktion CopyFiles benutze ich seit 15 Jahren.
Ich bin sicher, einer oder mehr von euch wissen, wie es geht.

Übrigens, wünsche ich euch noch ein gutes, neues Jahr.
Willie.

himitsu 7. Jan 2021 22:23

AW: Dateien mit Pfad kopieren
 
Zitat:

Das gibt zwar keine Fehlermeldung
Hast du den auch die Rückgaben geprüft, ob es nicht doch einen Fehler gab?
Von selbst passiert da nix.

Delphi-Referenz durchsuchenTDirectory.GetFiles


Zitat:

Delphi-Quellcode:
SHFOS.fAnyOperationsAborted = LongBool(false)

Niemals mit Booleans vergleichen ... immer nur als Zuweisung.
Ach ja, auch wenn es beim "False" gehen wird, aber beim True knallt es gern schnell.
PS: Es ist schon ein "Bool".

Delphi-Quellcode:
not SHFOS.fAnyOperationsAborted



Ach ja, ist denn bei einem Fehler überhaupt fAnyOperationsAborted "gültig"?

mmw 8. Jan 2021 18:25

AW: Dateien mit Pfad kopieren
 
hallo,

laut Online -Hilfe (MS)

Note This string must be double-null terminated.

das gilt für quelle und ziel

das scheint bei pa nicht der Fall zu sein.

ich habs mal so umgesetzt. (auszug)

Delphi-Quellcode:
     source_file:= src_file+#0#0;
     destination_file:= dest_file+#0#0;

     with SHFOS do begin
       Wnd:=0;
       pFrom:=PChar(source_file);
       pTo:=PChar(destination_file);
vielleicht hilft's
gruß


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:03 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf