У меня есть приложение, которое записывает информацию в ежедневный текстовый файл каждую секунду на главном ПК. Подчиненный ПК в сети, использующий то же приложение, хотел бы скопировать этот текстовый файл на свой локальный диск. Я вижу, будут проблемы с доступом к файлам.
Размер этих файлов не должен превышать 30-40 МБ каждый. сеть будет Ethernet 100 МБ. Я вижу, что процесс копирования может занять больше 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;
