mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
FIX: mbForceDirectory on Unix.
This commit is contained in:
cobines
parent
e53642d930
commit
adce720283
1 changed files with 238 additions and 233 deletions
|
|
@ -1,233 +1,238 @@
|
|||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : radek.cervinka@centrum.cz
|
||||
|
||||
some file routines
|
||||
|
||||
contributors:
|
||||
|
||||
Mattias Gaertner (from Lazarus code)
|
||||
|
||||
Copyright (C) 2007-2009 Koblov Alexander (Alexx2000@mail.ru)
|
||||
}
|
||||
|
||||
unit uFileProcs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
uses
|
||||
uTypes, ComCtrls;
|
||||
|
||||
{en
|
||||
Create a chain of directories
|
||||
@param(DirectoryName The full path to directory)
|
||||
@returns(@true if DirectoryName already existed or was created succesfully.
|
||||
If it failed to create any of the parts, @false is returned.)
|
||||
}
|
||||
function mbForceDirectory(DirectoryName: string): boolean;
|
||||
{en
|
||||
Copies a file.
|
||||
@param(sSrc String expression that specifies the name of the file to be copied)
|
||||
@param(sDst String expression that specifies the target file name)
|
||||
@returns(The function returns @true if successful, @false otherwise)
|
||||
}
|
||||
function CopyFile(const sSrc, sDst: String; bAppend: Boolean = False): Boolean;
|
||||
{en
|
||||
Remove the contents of directory recursively
|
||||
@param(sFolderName String expression that specifies the name of the folder to be removed)
|
||||
}
|
||||
procedure DelTree(const sFolderName: String);
|
||||
{en
|
||||
Read string from a text file into variable and goto next line
|
||||
@param(hFile Handle of file)
|
||||
@param(S Stores the result string)
|
||||
}
|
||||
procedure FileReadLn(hFile: Integer; var S: String);
|
||||
{en
|
||||
Write string to a text file and append newline
|
||||
@param(hFile Handle of file)
|
||||
@param(S String for writing)
|
||||
}
|
||||
procedure FileWriteLn(hFile: Integer; S: String);
|
||||
|
||||
implementation
|
||||
uses
|
||||
LCLProc, SysUtils, uGlobs, uShowMsg, Classes, uClassesEx, uDCUtils,
|
||||
uOSUtils, uDeleteThread, uFileList;
|
||||
|
||||
const
|
||||
cBlockSize=16384; // size of block if copyfile
|
||||
// if pb is assigned > use, else work without pb :-)
|
||||
|
||||
|
||||
function CopyFile(const sSrc, sDst: String; bAppend: Boolean): Boolean;
|
||||
var
|
||||
src, dst:TFileStreamEx;
|
||||
iDstBeg:Integer; // in the append mode we store original size
|
||||
Buffer: PChar;
|
||||
begin
|
||||
Result:=False;
|
||||
if not FileExists(sSrc) then Exit;
|
||||
|
||||
dst:=nil; // for safety exception handling
|
||||
GetMem(Buffer,cBlockSize+1);
|
||||
|
||||
try
|
||||
try
|
||||
src:=TFileStreamEx.Create(sSrc,fmOpenRead or fmShareDenyNone);
|
||||
if bAppend then
|
||||
begin
|
||||
dst:=TFileStreamEx.Create(sDst,fmOpenReadWrite);
|
||||
dst.Seek(0,soFromEnd); // seek to end
|
||||
end
|
||||
else
|
||||
dst:=TFileStreamEx.Create(sDst,fmCreate);
|
||||
iDstBeg:=dst.Size;
|
||||
// we dont't use CopyFrom, because it's alocate and free buffer every time is called
|
||||
while (dst.Size+cBlockSize)<= (src.Size+iDstBeg) do
|
||||
begin
|
||||
Src.ReadBuffer(Buffer^, cBlockSize);
|
||||
dst.WriteBuffer(Buffer^, cBlockSize);
|
||||
|
||||
end;
|
||||
if (iDstBeg+src.Size)>dst.Size then
|
||||
begin
|
||||
// dst.CopyFrom(src,src.Size-dst.size);
|
||||
src.ReadBuffer(Buffer^, src.Size+iDstBeg-dst.size);
|
||||
dst.WriteBuffer(Buffer^, src.Size+iDstBeg-dst.size);
|
||||
end;
|
||||
Result := FileCopyAttr(sSrc, sDst, gDropReadOnlyFlag); // chmod, chgrp
|
||||
finally
|
||||
if assigned(src) then
|
||||
FreeAndNil(src);
|
||||
if assigned(dst) then
|
||||
FreeAndNil(dst);
|
||||
if assigned(Buffer) then
|
||||
FreeMem(Buffer);
|
||||
end;
|
||||
except
|
||||
on EFCreateError do
|
||||
msgError('!!!!EFCreateError');
|
||||
on EFOpenError do
|
||||
msgError('!!!!EFOpenError');
|
||||
on EWriteError do
|
||||
msgError('!!!!EFWriteError');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DelTree(const sFolderName: String);
|
||||
var
|
||||
fl: TFileList;
|
||||
DT: TDeleteThread;
|
||||
pfri: PFileRecItem;
|
||||
begin
|
||||
fl:= TFileList.Create; // free at Thread end by thread
|
||||
try
|
||||
New(pfri);
|
||||
pfri^.sName:= sFolderName;
|
||||
pfri^.iMode:= faFolder;
|
||||
pfri^.bLinkIsDir:= False;
|
||||
fl.AddItem(pfri);
|
||||
try
|
||||
DT:= TDeleteThread.Create(fl);
|
||||
//DT.sDstMask:=sDstMaskTemp;
|
||||
DT.Resume;
|
||||
DT.WaitFor;
|
||||
except
|
||||
DT.Free;
|
||||
end;
|
||||
except
|
||||
FreeAndNil(fl);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure FileReadLn(hFile: Integer; var S: String);
|
||||
const
|
||||
cBufSize = 4096;
|
||||
var
|
||||
Buf: array[1..cBufSize] of Char;
|
||||
iNumRead,
|
||||
iCounter,
|
||||
iBufPos: Integer;
|
||||
bEOLFound: Boolean;
|
||||
iFilePos,
|
||||
iFileSize: Int64;
|
||||
begin
|
||||
S:='';
|
||||
// get current position
|
||||
iFilePos:= FileSeek(hFile, 0, soFromCurrent);
|
||||
// get file size
|
||||
iFileSize:= FileSeek(hFile, 0, soFromEnd);
|
||||
// restore position
|
||||
FileSeek(hFile, iFilePos, soFromBeginning);
|
||||
bEOLFound:= False;
|
||||
|
||||
while (iFilePos < iFileSize) and not bEOLFound do
|
||||
begin
|
||||
iNumRead:= FileRead(hFile, Buf, SizeOf(Buf));
|
||||
|
||||
for iCounter:= 1 to iNumRead do
|
||||
begin
|
||||
if Buf[iCounter] in [#13, #10] then
|
||||
begin
|
||||
bEOLFound:=True;
|
||||
iBufPos:=iCounter+1;
|
||||
if ((iBufPos) <= iNumRead) and (Buf[iBufPos] in [#13, #10]) then
|
||||
Inc(iBufPos);
|
||||
Buf[iCounter]:= #0;
|
||||
S:= StrPas(@Buf);
|
||||
FileSeek(hFile, iFilePos+iBufPos-1, soFromBeginning);
|
||||
Break;
|
||||
end;
|
||||
end; // for
|
||||
|
||||
if (not bEOLFound) then
|
||||
begin
|
||||
if (iNumRead < cBufSize) then
|
||||
Buf[iNumRead+1]:= #0;
|
||||
S:= StrPas(@Buf);
|
||||
end;
|
||||
Inc(iFilePos, iNumRead);
|
||||
end; // while
|
||||
end;
|
||||
|
||||
procedure FileWriteLn(hFile: Integer; S: String);
|
||||
begin
|
||||
S:= S + LineEnding;
|
||||
FileWrite(hFile, PChar(S)[0], Length(S));
|
||||
end;
|
||||
|
||||
function mbForceDirectory(DirectoryName: string): boolean;
|
||||
var
|
||||
i: integer;
|
||||
sDir: string;
|
||||
begin
|
||||
if DirectoryName = '' then Exit;
|
||||
DirectoryName := IncludeTrailingPathDelimiter(DirectoryName);
|
||||
i:= 1;
|
||||
if Pos('\\', DirectoryName) = 1 then // if network path
|
||||
begin
|
||||
i := CharPos(PathDelim, DirectoryName, 3); // index of the end of computer name
|
||||
i := CharPos(PathDelim, DirectoryName, i + 1); // index of the end of first remote directory
|
||||
end;
|
||||
while i<=length(DirectoryName) do
|
||||
begin
|
||||
if DirectoryName[i]=PathDelim then
|
||||
begin
|
||||
sDir:=copy(DirectoryName,1,i-1);
|
||||
|
||||
if not mbDirectoryExists(sDir) then
|
||||
begin
|
||||
Result:=mbCreateDir(sDir);
|
||||
if not Result then exit;
|
||||
end;
|
||||
end;
|
||||
Inc(i);
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : radek.cervinka@centrum.cz
|
||||
|
||||
some file routines
|
||||
|
||||
contributors:
|
||||
|
||||
Mattias Gaertner (from Lazarus code)
|
||||
|
||||
Copyright (C) 2007-2009 Koblov Alexander (Alexx2000@mail.ru)
|
||||
}
|
||||
|
||||
unit uFileProcs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
uses
|
||||
uTypes, ComCtrls;
|
||||
|
||||
{en
|
||||
Create a chain of directories
|
||||
@param(DirectoryName The full path to directory)
|
||||
@returns(@true if DirectoryName already existed or was created succesfully.
|
||||
If it failed to create any of the parts, @false is returned.)
|
||||
}
|
||||
function mbForceDirectory(DirectoryName: string): boolean;
|
||||
{en
|
||||
Copies a file.
|
||||
@param(sSrc String expression that specifies the name of the file to be copied)
|
||||
@param(sDst String expression that specifies the target file name)
|
||||
@returns(The function returns @true if successful, @false otherwise)
|
||||
}
|
||||
function CopyFile(const sSrc, sDst: String; bAppend: Boolean = False): Boolean;
|
||||
{en
|
||||
Remove the contents of directory recursively
|
||||
@param(sFolderName String expression that specifies the name of the folder to be removed)
|
||||
}
|
||||
procedure DelTree(const sFolderName: String);
|
||||
{en
|
||||
Read string from a text file into variable and goto next line
|
||||
@param(hFile Handle of file)
|
||||
@param(S Stores the result string)
|
||||
}
|
||||
procedure FileReadLn(hFile: Integer; var S: String);
|
||||
{en
|
||||
Write string to a text file and append newline
|
||||
@param(hFile Handle of file)
|
||||
@param(S String for writing)
|
||||
}
|
||||
procedure FileWriteLn(hFile: Integer; S: String);
|
||||
|
||||
implementation
|
||||
uses
|
||||
LCLProc, SysUtils, uGlobs, uShowMsg, Classes, uClassesEx, uDCUtils,
|
||||
uOSUtils, uDeleteThread, uFileList;
|
||||
|
||||
const
|
||||
cBlockSize=16384; // size of block if copyfile
|
||||
// if pb is assigned > use, else work without pb :-)
|
||||
|
||||
|
||||
function CopyFile(const sSrc, sDst: String; bAppend: Boolean): Boolean;
|
||||
var
|
||||
src, dst:TFileStreamEx;
|
||||
iDstBeg:Integer; // in the append mode we store original size
|
||||
Buffer: PChar;
|
||||
begin
|
||||
Result:=False;
|
||||
if not FileExists(sSrc) then Exit;
|
||||
|
||||
dst:=nil; // for safety exception handling
|
||||
GetMem(Buffer,cBlockSize+1);
|
||||
|
||||
try
|
||||
try
|
||||
src:=TFileStreamEx.Create(sSrc,fmOpenRead or fmShareDenyNone);
|
||||
if bAppend then
|
||||
begin
|
||||
dst:=TFileStreamEx.Create(sDst,fmOpenReadWrite);
|
||||
dst.Seek(0,soFromEnd); // seek to end
|
||||
end
|
||||
else
|
||||
dst:=TFileStreamEx.Create(sDst,fmCreate);
|
||||
iDstBeg:=dst.Size;
|
||||
// we dont't use CopyFrom, because it's alocate and free buffer every time is called
|
||||
while (dst.Size+cBlockSize)<= (src.Size+iDstBeg) do
|
||||
begin
|
||||
Src.ReadBuffer(Buffer^, cBlockSize);
|
||||
dst.WriteBuffer(Buffer^, cBlockSize);
|
||||
|
||||
end;
|
||||
if (iDstBeg+src.Size)>dst.Size then
|
||||
begin
|
||||
// dst.CopyFrom(src,src.Size-dst.size);
|
||||
src.ReadBuffer(Buffer^, src.Size+iDstBeg-dst.size);
|
||||
dst.WriteBuffer(Buffer^, src.Size+iDstBeg-dst.size);
|
||||
end;
|
||||
Result := FileCopyAttr(sSrc, sDst, gDropReadOnlyFlag); // chmod, chgrp
|
||||
finally
|
||||
if assigned(src) then
|
||||
FreeAndNil(src);
|
||||
if assigned(dst) then
|
||||
FreeAndNil(dst);
|
||||
if assigned(Buffer) then
|
||||
FreeMem(Buffer);
|
||||
end;
|
||||
except
|
||||
on EFCreateError do
|
||||
msgError('!!!!EFCreateError');
|
||||
on EFOpenError do
|
||||
msgError('!!!!EFOpenError');
|
||||
on EWriteError do
|
||||
msgError('!!!!EFWriteError');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DelTree(const sFolderName: String);
|
||||
var
|
||||
fl: TFileList;
|
||||
DT: TDeleteThread;
|
||||
pfri: PFileRecItem;
|
||||
begin
|
||||
fl:= TFileList.Create; // free at Thread end by thread
|
||||
try
|
||||
New(pfri);
|
||||
pfri^.sName:= sFolderName;
|
||||
pfri^.iMode:= faFolder;
|
||||
pfri^.bLinkIsDir:= False;
|
||||
fl.AddItem(pfri);
|
||||
try
|
||||
DT:= TDeleteThread.Create(fl);
|
||||
//DT.sDstMask:=sDstMaskTemp;
|
||||
DT.Resume;
|
||||
DT.WaitFor;
|
||||
except
|
||||
DT.Free;
|
||||
end;
|
||||
except
|
||||
FreeAndNil(fl);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure FileReadLn(hFile: Integer; var S: String);
|
||||
const
|
||||
cBufSize = 4096;
|
||||
var
|
||||
Buf: array[1..cBufSize] of Char;
|
||||
iNumRead,
|
||||
iCounter,
|
||||
iBufPos: Integer;
|
||||
bEOLFound: Boolean;
|
||||
iFilePos,
|
||||
iFileSize: Int64;
|
||||
begin
|
||||
S:='';
|
||||
// get current position
|
||||
iFilePos:= FileSeek(hFile, 0, soFromCurrent);
|
||||
// get file size
|
||||
iFileSize:= FileSeek(hFile, 0, soFromEnd);
|
||||
// restore position
|
||||
FileSeek(hFile, iFilePos, soFromBeginning);
|
||||
bEOLFound:= False;
|
||||
|
||||
while (iFilePos < iFileSize) and not bEOLFound do
|
||||
begin
|
||||
iNumRead:= FileRead(hFile, Buf, SizeOf(Buf));
|
||||
|
||||
for iCounter:= 1 to iNumRead do
|
||||
begin
|
||||
if Buf[iCounter] in [#13, #10] then
|
||||
begin
|
||||
bEOLFound:=True;
|
||||
iBufPos:=iCounter+1;
|
||||
if ((iBufPos) <= iNumRead) and (Buf[iBufPos] in [#13, #10]) then
|
||||
Inc(iBufPos);
|
||||
Buf[iCounter]:= #0;
|
||||
S:= StrPas(@Buf);
|
||||
FileSeek(hFile, iFilePos+iBufPos-1, soFromBeginning);
|
||||
Break;
|
||||
end;
|
||||
end; // for
|
||||
|
||||
if (not bEOLFound) then
|
||||
begin
|
||||
if (iNumRead < cBufSize) then
|
||||
Buf[iNumRead+1]:= #0;
|
||||
S:= StrPas(@Buf);
|
||||
end;
|
||||
Inc(iFilePos, iNumRead);
|
||||
end; // while
|
||||
end;
|
||||
|
||||
procedure FileWriteLn(hFile: Integer; S: String);
|
||||
begin
|
||||
S:= S + LineEnding;
|
||||
FileWrite(hFile, PChar(S)[0], Length(S));
|
||||
end;
|
||||
|
||||
function mbForceDirectory(DirectoryName: string): boolean;
|
||||
var
|
||||
i: integer;
|
||||
sDir: string;
|
||||
begin
|
||||
if DirectoryName = '' then Exit;
|
||||
DirectoryName := IncludeTrailingPathDelimiter(DirectoryName);
|
||||
i:= 1;
|
||||
if Pos('\\', DirectoryName) = 1 then // if network path
|
||||
begin
|
||||
i := CharPos(PathDelim, DirectoryName, 3); // index of the end of computer name
|
||||
i := CharPos(PathDelim, DirectoryName, i + 1); // index of the end of first remote directory
|
||||
end;
|
||||
|
||||
// Move past path delimiter at the beginning.
|
||||
if (i = 1) and (DirectoryName[i] = PathDelim) then
|
||||
i := i + 1;
|
||||
|
||||
while i<=length(DirectoryName) do
|
||||
begin
|
||||
if DirectoryName[i]=PathDelim then
|
||||
begin
|
||||
sDir:=copy(DirectoryName,1,i-1);
|
||||
|
||||
if not mbDirectoryExists(sDir) then
|
||||
begin
|
||||
Result:=mbCreateDir(sDir);
|
||||
if not Result then exit;
|
||||
end;
|
||||
end;
|
||||
Inc(i);
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue