paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 04:40:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Handle a temporarily non-accessible file in CopyFile function. Issue #24162, patch from Cyrax

Browse Source 
git-svn-id: trunk@40828 -
This commit is contained in:
juha 2013-04-16 07:50:07 +00:00
parent 87a68af276
commit 378844986e
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazutils/fileutil.inc
View File

@ -946,7 +946,7 @@ var
SrcHandle: THandle;
DestHandle: THandle;
Buffer: array[1..4096] of byte;
ReadCount, WriteCount: LongInt;
ReadCount, WriteCount, TryCount: LongInt;
begin
Result := False;
// check overwrite
@ -957,8 +957,19 @@ begin
and (not DirectoryExistsUTF8(ExtractFilePath(DestFileName)))
and (not ForceDirectoriesUTF8(ExtractFilePath(DestFileName))) then
exit;
SrcHandle := FileOpenUTF8(SrcFilename, fmOpenRead or fmShareDenyWrite);
if (THandle(SrcHandle)=feInvalidHandle) then
TryCount := 0;
While TryCount <> 3 Do Begin
SrcHandle := FileOpenUTF8(SrcFilename, fmOpenRead or fmShareDenyWrite);
if (THandle(SrcHandle)=feInvalidHandle) then Begin
Inc(TryCount);
Sleep(10);
End
Else Begin
TryCount := 0;
Break;
End;
End;
If TryCount > 0 Then
raise EFOpenError.Createfmt({SFOpenError}'Unable to open file "%s"', [SrcFilename]);
try
DestHandle := FileCreateUTF8(DestFileName);