У меня есть приложение, которое каждую секунду на главном ПК записывает информацию в ежедневный текстовый файл. Подчиненный ПК в сети, использующий то же приложение, хотел бы скопировать этот текстовый файл на свой локальный диск. Я вижу, что будут проблемы с доступом к файлу.
Размер этих файлов не должен превышать 30-40 МБ каждый. сеть будет 100 МБ Ethernet. Я вижу, что процесс копирования может занять больше 1 секунды, что означает, что ПК, на котором ведется запись, потребуется открыть файл для записи во время его чтения.
Каков наилучший метод для процедуры записи (регистрации) и копирования файлов? Я знаю, что есть стандартная процедура Windows CopyFile (), однако это вызвало проблемы с доступом к файлам. Существует также TFileStream, использующий флаг fmShareDenyNone, но это также очень редко вызывает проблемы с доступом (например, 1 в неделю).
Что это лучший способ выполнить эту задачу?
Моя текущая регистрация файлов:
procedure FSWriteline(Filename,Header,s : String);
var LogFile : TFileStream;
line : String;
begin
if not FileExists(filename) then
begin
LogFile := TFileStream.Create(FileName, fmCreate or fmShareDenyNone);
try
LogFile.Seek(0,soFromEnd);
line := Header + #13#10;
LogFile.Write(line[1],Length(line));
line := s + #13#10;
LogFile.Write(line[1],Length(line));
finally
logfile.Free;
end;
end else begin
line := s + #13#10;
Logfile:=tfilestream.Create(Filename,fmOpenWrite or fmShareDenyNone);
try
logfile.Seek(0,soFromEnd);
Logfile.Write(line[1], length(line));
finally
Logfile.free;
end;
end;
end;
Процедура копирования моего файла:
procedure DoCopy(infile, Outfile : String);
begin
ForceDirectories(ExtractFilePath(outfile)); //ensure folder exists
if FileAge(inFile) = FileAge(OutFile) then Exit; //they are the same modified time
try
{ Open existing destination }
fo := TFileStream.Create(Outfile, fmOpenReadWrite or fmShareDenyNone);
fo.Position := 0;
except
{ otherwise Create destination }
fo := TFileStream.Create(OutFile, fmCreate or fmShareDenyNone);
end;
try
{ open source }
fi := TFileStream.Create(InFile, fmOpenRead or fmShareDenyNone);
try
cnt:= 0;
fi.Position := cnt;
max := fi.Size;
{start copying }
Repeat
dod := BLOCKSIZE; // Block size
if cnt+dod>max then dod := max-cnt;
if dod>0 then did := fo.CopyFrom(fi, dod);
cnt:=cnt+did;
Percent := Round(Cnt/Max*100);
until (dod=0)
finally
fi.free;
end;
finally
fo.free;
end;
end;