До копирование файла через TFileStream

Юран - Number One
Дата: 24.05.2011 04:46:23
Доброго времени суток. ) Необходимо написать код который бы ДО копировал файл при сбое например оборудования или потере связи в сети. Пишу так:
var InFS,OutFS: TFileStream;
begin
if FileExists(OutFile) then
begin
  InFS := TFileStream.Create( InFile, fmOpenRead );\\берем исходный файл
    OutFS := TFileStream.Create( OutFile, fmOpenReadWrite);\\Открываем для до записи не до копированный файл
      From := OutFs.Size;\\ Присваиваем From размер уже скопированный не до конца данных
          InFS.Seek( From, soFromBeginning );\\Ставим указатель на значение From
            Result := OutFS.CopyFrom( InFS, 0);\\Указываем до какого момента копирую данные, в данном случае до конца и поэтому ставлю 0(точно не знаю)
end;
        InFS.Free;
      OutFS.Free;
end;

Верное ли решение? Мне кажется что мой файл всё равно начинает копироваться с самого начала.
Юран - Number One
Дата: 24.05.2011 05:26:43
Изменил не много теперь копирование файла начинается с момента обрыва, вот только до записывается не часть файла а весь исходный файл.
var InFS,OutFS: TFileStream;
begin
  InFS := TFileStream.Create( InFile, fmOpenRead );
    OutFS := TFileStream.Create( OutFile, fmOpenReadWrite);
      InFS.Seek(OutFs.Size, soFromBeginning );
          OutFS.Position:=OutFs.Size;\\Позиция в конец на не до копированном файле.
            Result := OutFS.CopyFrom(InFS, 0);
        InFS.Free;
      OutFS.Free;
end;
Tactical Nuclear Penguin
Дата: 24.05.2011 05:34:46
Юран - Number One
Верное ли решение? Мне кажется что мой файл всё равно начинает копироваться с самого начала.


посмотрите тут
Юран - Number One
Дата: 24.05.2011 06:39:49
Tactical Nuclear Penguin,

Большое спасибо. ) Всё ок. ) Тема закрыта.