Shell-Funktion zum Kopieren hat einen Fehler

[moperswings]

Hallo,

ich habe dieses Beispiel-Programm um Dateien zu kopieren.
Das Kopieren funktioniert aber nur einmal, bei jedem weiteren Versuch kommt immer diese Fehlermeldung:
Datei kann nicht kopiert werden: Die QuellDatei oder vom Quelldatenträger kann nicht gelesen werden. Weiss jemand, wo da der Fehler ist und kann mir helfen?

Delphi-Quellcode:

uses shellapi;
{$R *.dfm}

var shellinfo : TSHFILEOPSTRUCT ;

type
TSHFILEOPSTRUCTA = record
        Wnd: HWND;
        Wfunc: uint;
        pfrom: pansichar;
        flags: fileop_flags;
        fanyoperationsaborted: bool;
        hnamemappings: pointer;
        lpszprogresstitle: pansichar;
end;

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] + #0;
        files := files + #0;

        fillchar(shellinfo, sizeof(shellinfo),0);
        with shellinfo do begin
          wnd := handle;
          wfunc := FO_COPY;
          pFrom := PCHAR(files);
          pTo := PChar(directoryListBox2.Directory);
        end;

        SHFileOperation(shellinfo);

        FileListBox1.Update;
        FileListBox2.Update;
end;

Viele Grüsse, moperswings

[Hawkeye219]

Hallo,

Zitat von moperswings:

Das Kopieren funktioniert aber nur einmal

Dann war das aktuelle Verzeichnis zufälligerweise auch das Quellverzeichnis für die Kopieraktion. Die FileListBox enthält nur die Dateinamen, den Pfad mußt du noch ergänzen:

Delphi-Quellcode:

var
  path  : string;
  files : string;
  i     : Integer;
begin
  path := IncludeTrailingPathDelimiter(FileListBox1.Directory);
  files := '';
  for i := 0 to FileListBox1.Items.Count - 1 do
    if FileListBox1.Selected[i] then
      files := files + path + FileListbox1.Items[i] + #0;
  files := files + #0;
[...]

Die lokale Typdefinition TSHFILEOPSTRUCTA solltest du entfernen. Sie wird nicht benötigt und sie ist zudem falsch (fehlendes Feld pTo und fehlendes PACKED).

Gruß Hawkeye

[moperswings]

Vielen Dank Hawkeye,

jetzt funktionierts!

Mit bestem Gruss

moperswings

[moperswings]

NACHGEFRAGT:

1. Jetzt habe ich die TSHFILEOPSTRUCTA mal auskommentiert, aber was mache ich dann mit der ShellInfo, denn ohne die passiert nichts?

2. Die ganzen Variablen

Delphi-Quellcode:

  Wfunc: uint;
  pfrom: pansichar;
  flags: fileop_flags;
  fanyoperationsaborted: bool;
  hnamemappings: pointer;
  lpszprogresstitle: pansichar;

brauche ich nicht mehr zu deklarieren! Warum?

[DeddyH]

Du hast doch ShellAPI eingebunden, da steht alles drin

[moperswings]

Aber nicht die ShellInfo!

[DeddyH]

Auszug aus der ShellAPI.pas (Delphi 5):

Delphi-Quellcode:

TSHFileOpStructA = _SHFILEOPSTRUCTA;
TSHFileOpStructW = _SHFILEOPSTRUCTW;
TSHFileOpStruct = TSHFileOpStructA;

[moperswings]

Vielen Dank ersteinmal, Deddy, dass Du versuchst, mir den Kram zu erklären!

Mir ist immer noch nicht klar, was ich mit der ShellInfo machen soll, wenn ich - nach Hawkeye - die TSHFILEOPSTRUCT entfernen soll?
var shellinfo : TSHFILEOPSTRUCT ;

[DeddyH]

Du sollst nicht die Variablendeklaration entfernen, sondern die Typdeklaration.

Delphi-Quellcode:

type
TSHFILEOPSTRUCTA = record
        Wnd: HWND;
        Wfunc: uint;
        pfrom: pansichar;
        flags: fileop_flags;
        fanyoperationsaborted: bool;
        hnamemappings: pointer;
        lpszprogresstitle: pansichar;
end;

Überflüssig, da bereits in ShellAPI vorhanden.

[moperswings]

Ah, Sorry - das habe ich natürlich schon gemacht!
Ich weiss es halt nicht besser ... :wall:

Vielen Dank und viele Grüsse, moperswings