paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #35269, patch from Bart Broersma

Browse Source 
git-svn-id: trunk@41807 -
This commit is contained in:
michael 2019-03-31 16:22:10 +00:00
parent 7a95a6cd06
commit f8b14662ed
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/paszlib/src/zipper.pp
View File

@ -633,16 +633,33 @@ Type
constructor TFileStream.Create(const AFileName: rawbytestring; Mode: Word; Rights: Cardinal);
{$ifdef Windows}
function FixLongFilename(const Fn: RawByteString): RawByteString;
begin
Result := Fn;
if (Length(Fn)>MAX_PATH) and not ((Pos('\\?\', Fn)=1) or (Pos('\\.\', Fn)=1) or (Pos('\\?\UNC\', Fn)=1)) then
begin
if (Pos('\\', Fn)=1) and (length(FN)>2) then
Insert('?\UNC\',Result,3)
else
Result:='\\?\'+Fn;
end;
end;
{$endif}
Var
H : Thandle;
begin
{$ifdef Windows}
FFileName:=FixLongFilename(AFileName);
{$else}
FFileName:=AFileName;
{$endif}
If (Mode and fmCreate) > 0 then
H:=FileCreate(AFileName,Mode,Rights)
H:=FileCreate(FFileName,Mode,Rights)
else
H:=FileOpen(AFileName,Mode);
H:=FileOpen(FFileName,Mode);
If (THandle(H)=feInvalidHandle) then
If Mode=fmcreate then