VPF::Копирование файлов... - Форум программистов

WIN32API

Дата 23.5.2005, 11:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я хочу останавливать (прерывать) копирование. Как это делают все инсталлеры...

_hunter

Дата 23.5.2005, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

объясняю еще раз. медленно.
остановить CopyFile() нельзя. если хочеш ее остановить пиши свою CopyFile()
то, что ты привел -- не функция копирования ( и говорил я не о ней )

--------------------

Tempora mutantur, et nos mutamur in illis...

WIN32API

Дата 23.5.2005, 13:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А зачем останавливать CopyFile? Реальнее остановить FindFirst. Вот тока как это сделать? Может, ввести тупую проверку внутри кода типа

Код


var
fCopy: Boolean;
...
if fCopy = false then exit;

Если вы предложите что-то более корректное - буду признателен.

_hunter

Дата 23.5.2005, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

потому что при копировании 700-гигового файла долго в монитор глядеть придется...

а других способов и нет.

--------------------

Tempora mutantur, et nos mutamur in illis...

WIN32API

Дата 23.5.2005, 13:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А ты видел файлы такого размера? (Сорри за флейм)

Quadr0

Дата 23.5.2005, 14:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 19.5.2011, 16:44

_hunter

Дата 23.5.2005, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

такого -- нет smile

( это я для понятности )
но файлы на пару гигов тоже не секунды копируются...

--------------------

Tempora mutantur, et nos mutamur in illis...

Дата 24.5.2005, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

Надеюсь общая идея ясна, а
переделать не составит друда.

Код


var con:boolean;
..
type
  TCallBack = procedure(Position, Size: Longint);
................
procedure myFileCopyCallBack(Position, Size: Longint);
begin
  Form1.ProgressBar1.Max := Size;
  Form1.ProgressBar1.Position := Position;
end;

procedure myFileCopy(const InFileName, OutFileName: string;
  CallBack: TCallBack);
const
  BufSize = 3 * 4 * 4096;
type
  PBuffer = ^TBuffer;
  TBuffer = array[1..BufSize] of Byte;
var
 // LAbel  GTFup;
  Size: DWORD;
  Buffer: PBuffer;
  infile, outfile: file;
  SizeDone, SizeFile: LongInt;
begin
  if (InFileName <> OutFileName) then
  begin
    buffer := nil;
    Assign(infile, InFileName);
    Reset(infile, 1);
    try
      SizeFile := FileSize(infile);
      Assign(outfile, OutFileName);
      Rewrite(outfile, 1);
      try
        SizeDone := 0;
        New(Buffer);
        repeat
          Application.ProcessMessages;
          BlockRead(infile, Buffer^, BufSize, Size);
          Inc(SizeDone, Size);
          //-----------
          CallBack(SizeDone, SizeFile);
          if not con then break;
          Application.ProcessMessages;
          BlockWrite(outfile, Buffer^, Size)

        until Size < BufSize;
        FileSetDate(TFileRec(outfile).Handle,
        FileGetDate(TFileRec(infile).Handle));
      finally
        if Buffer <> nil then
          Dispose(Buffer);
        CloseFile(outfile)
      end;
    finally
      CloseFile(infile);
    end;
  end
  else
    raise EInOutError.Create('File cannot be copied')
end;

............
//Initiate
con:=true;
myFileCopy('c:\downloads\cs16full_v13(2).exe', 'd:\1.exe', @myFileCopyCallBack);

//Stop
con:=false

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »