mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: FTP - use mbFileExists function and TFileStreamEx class (fixes #213)

Browse source
This commit is contained in:
Alexander Koblov 2021-10-22 18:42:12 +03:00
commit 4e3a509e8e
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
plugins/wfx/ftp/src/ftpadv.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
WFX plugin for working with File Transfer Protocol
Copyright (C) 2009-2020 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2009-2021 Alexander Koblov (alexx2000@mail.ru)
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@ -28,7 +28,7 @@ unit FtpAdv;
interface
uses
Classes, SysUtils, WfxPlugin, FtpSend, LazUTF8Classes, LConvEncoding,
Classes, SysUtils, WfxPlugin, FtpSend, DCClassesUtf8, LConvEncoding,
DCConvertEncoding, DCFileAttributes, DCBasicTypes, blcksock, LazVersion;
type
@ -65,7 +65,7 @@ type
{ TProgressStream }
TProgressStream = class(TFileStreamUTF8)
TProgressStream = class(TFileStreamEx)
public
DoneSize: Int64;
FileSize: Int64;
@ -146,7 +146,7 @@ type
implementation
uses
LazUTF8, LazFileUtils, FtpFunc, FtpUtils, synautil, synsock, DCStrUtils,
LazUTF8, DCOSUtils, FtpFunc, FtpUtils, synautil, synsock, DCStrUtils,
DCDateTimeUtils
{$IF (FPC_FULLVERSION < 30000)}
, LazUTF8SysUtils
@ -876,7 +876,7 @@ begin
if not DataSocket then Exit;
Restore := Restore and FCanResume;
if Restore and FileExistsUTF8(FDirectFileName) then
if Restore and mbFileExists(FDirectFileName) then
RetrStream := TProgressStream.Create(FDirectFileName, fmOpenWrite or fmShareExclusive)
else begin
RetrStream := TProgressStream.Create(FDirectFileName, fmCreate or fmShareDenyWrite)