fil kopiering

Prøv og kig lidt på Borrisholt's FileHandling

http://www.borrisholt.com/FileIO/DelphiSource/Filehandling.zip

Snowball

jeg mener at der er et direkte kald til at kunne lave det

uses
  ShellApi;

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
  shellinfo: TSHFileOpStructA;
begin
  with shellinfo do
  begin
    wnd  := Application.Handle;
    wFunc := Flags;
    pFrom := PChar(fromFile);
    pTo  := PChar(toFile);
  end;
  SHFileOperation(shellinfo);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellFileOperation('c:\afile.txt', 'd:\afile2.txt', FO_COPY);  // To Move a file: FO_MOVE
end;

nåååe så brug CopyFileEx

Jens B

jeg prøver dette: 

copyfileex('c:\test.doc','c:\test\test.doc',nil,nil,nil,COPY_FILE_RESTARTABLE);

den kopierer, men ikke med statusbar??

Øøøh nej .. Nu har jo lige sat lpProgressRoutine til nil !

Jens B

Det kan den heller ikke medmindre du implementere callback og selv viser et eller andet...

>doc

når jeg prøver dit eksempel, kopierer den fint (dog uden statusbar), men den kommer med en fejlmeddelelse "kan ikke kopiere. den angivne fil blev ikke fundet "
Selvom denne fejlmeddelelse kommer, ER filen kopieret

Prøv den her :

procedure JBCopyFile(const InFile, OutFile: TFileName; aProgressBar: TProgressBar);

  function CopyCallback(
    TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred: INT64;
    dwStreamNumber, dwCallbackReason: DWORD;
    hSourceFile, hDestinationFile: THandle;
    aProgressBar: TProgressBar): DWORD; stdcall;
  var
    NewPos: Integer;
  begin
    Result := PROGRESS_CONTINUE;
    if dwCallbackReason = CALLBACK_CHUNK_FINISHED then
    begin
      NewPos := Round(TotalBytesTransferred / TotalFileSize * 100);
      with aProgressBar do
        if NewPos <> Position then
          Position := NewPos;
      Application.ProcessMessages;
    end;
  end;

var
  b: Bool;

  function DoFilecopy(const Source, Target: string): Boolean;
  begin
    try
      if Assigned(aProgressBar) then
      begin
        aProgressBar.Position := 0;
        aProgressBar.Max := 100;
        Result := CopyFileEx(PChar(Source), PChar(Target), @CopyCallback, aProgressBar, @b, 0);
      end
      else
        Result := CopyFileEx(PChar(Source), PChar(Target), nil, nil, nil, 0);
    except
      Result := false;
    end;
  end;

begin
  b := false;
  DoFilecopy(inFile, Outfile);
end;


(Frit fra leveren)

Jens B

jeg var ca. nået frem til det samme :-D