mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 10:59:18 +02:00
* Fix bug ID #35269, patch from Bart Broersma
git-svn-id: trunk@41807 -
This commit is contained in:
parent
7a95a6cd06
commit
f8b14662ed
@ -633,16 +633,33 @@ Type
|
|||||||
|
|
||||||
|
|
||||||
constructor TFileStream.Create(const AFileName: rawbytestring; Mode: Word; Rights: Cardinal);
|
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
|
Var
|
||||||
H : Thandle;
|
H : Thandle;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
{$ifdef Windows}
|
||||||
|
FFileName:=FixLongFilename(AFileName);
|
||||||
|
{$else}
|
||||||
FFileName:=AFileName;
|
FFileName:=AFileName;
|
||||||
|
{$endif}
|
||||||
If (Mode and fmCreate) > 0 then
|
If (Mode and fmCreate) > 0 then
|
||||||
H:=FileCreate(AFileName,Mode,Rights)
|
H:=FileCreate(FFileName,Mode,Rights)
|
||||||
else
|
else
|
||||||
H:=FileOpen(AFileName,Mode);
|
H:=FileOpen(FFileName,Mode);
|
||||||
|
|
||||||
If (THandle(H)=feInvalidHandle) then
|
If (THandle(H)=feInvalidHandle) then
|
||||||
If Mode=fmcreate then
|
If Mode=fmcreate then
|
||||||
|
Loading…
Reference in New Issue
Block a user