Probleme mit SHFileOperationA

[gkaeberich]

Hallo,

ich habe eine Funktion zum Kopieren, Verschieben, etc von Dateien und Verzeichnissen gefunden und in ein eigenes Programm integriert.

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString;
    Flags: FILEOP_FLAGS): Integer;
{***************************************************************************************}

var
  FromPath, ToPath: AnsiString;
  SHFileOpStruct: TSHFileOpStruct;
begin
  FromPath := aFrom + #0#0;
  ToPath := aTo + #0#0;
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := aOperation;
    pFrom := PAnsiChar(FromPath);
    if ToPath <> '' then
    begin
      pTo := PAnsiChar(ToPath)
    end else begin // target available
      pTo := nil;
    end; // target not available
    fFlags := Flags;
  end; // structure
  Result := SHFileOperationA(SHFileOpStruct);
end;

In einem Formular sind jeweils zwei Drive-Comboboxen, zwei Directory-Listboxen und zwei Filelistboxen jeweils als Quelle und Ziel angelegt. Nach Auswahl einer Quelldatei und einem Zielordner wird per Button die obige Funktion aufgerufen. Dies klappt auch wunderbar bei dem ersten Kopiervorgang. Wenn ich eine zweiten Kopiervorgang (aus selbem Quellordner in selben Zielordner) starten möchte erhhalte ich eine Fehlermeldung:

Datei kann nicht kopiert werden. Die Quelldatei oder vom Quelldatenträger kann nicht gelsen werden.

Wechsel ich zwischen zwei Kopiervorgängen Quelllaufwerk oder Quellordner klappt es wieder - aber nur einmal.

Dies ist Behandlungsroutine für den Kopierbutton

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
{***************************************************************************************}

var i     : integer;
    files : string;

begin
  files := '';
  for i := 0 to filelistbox1.Items.Count - 1 do
    if filelistbox1.Selected [i] then
      files := files  + filelistbox1.Items [i];
  DoFileWork(FO_COPY, files, directorylistbox2.Directory, FOF_NOCONFIRMATION);
  filelistbox1.update;
  filelistbox2.update;
end;

Wer kann mir helfen

Günther Käberich

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]
[edit=Christian Seehase]Delph-Tags ergänzt. Mfg, Christian Seehase[/edit]

[Christian Seehase]

Moin Günther,

die einzelnen Dateien in der Liste müssen mit #00 getrennt werden.
Statt:
files := files + filelistbox1.Items [i]; solltest Du
files := files + filelistbox1.Items [i]+#00; schreiben.

[gkaeberich]

Hallo,

das Anfügen von #0 passiert doch in der Funktion, die zum Kopieren aufgerufen wird.

Günther

[Christian Seehase]

Moin Günther,

nein, das +#00#00 dient dazu die Liste abzuschliessen.
SHFileOperation benutzt #00 um einzelne Dateien voneinander zu trennen, und #00#00 um das Ende der Liste zu erkennen.

[gkaeberich]

Hallo Christian,

der Effekt ist geblieben - erst nach einem Verzeichniswechsel kann ich einmal kopieren.

Günther

[Christian Seehase]

Moin Günther,

ich glaube jetzt hab' ich's:
Du übergibst der Funktion nur die Dateinamen, aber ohne Pfad.
Woher soll die Funktion denn wissen, wo die Quelldateien stehen?
Wenn Du die Variable files zusammenbaust, musst Du je Datei noch den Quellpfad davorschreiben.

[Luckie]

Zitat von Christian Seehase:

die einzelnen Dateien in der Liste müssen mit #00 getrennt werden.

Meintest du nicht "abgeschlossen" anstatt "getrennt"? Ich dachte immer die Liste müsste so aussehen:

Code:

file1#0file2#0file3#0#0

[Christian Seehase]

Moin Michael,

sag' ich doch, nur: Ich schreibe #00, wo Du #0 schreibst. Es ist aber immer nur ein Zeichen.

[gkaeberich]

Hallo,

klappt super.

Danke

Günther Käberich