Terminal.h 31 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656
  1. //---------------------------------------------------------------------------
  2. #ifndef TerminalH
  3. #define TerminalH
  4. #include <Classes.hpp>
  5. #include "SessionInfo.h"
  6. #include "Interface.h"
  7. #include "FileOperationProgress.h"
  8. #include "FileMasks.h"
  9. #include "Exceptions.h"
  10. //---------------------------------------------------------------------------
  11. class TCopyParamType;
  12. class TFileOperationProgressType;
  13. class TRemoteDirectory;
  14. class TRemoteFile;
  15. class TCustomFileSystem;
  16. class TTunnelThread;
  17. class TSecureShell;
  18. struct TCalculateSizeParams;
  19. struct TOverwriteFileParams;
  20. struct TSynchronizeData;
  21. struct TSynchronizeOptions;
  22. class TSynchronizeChecklist;
  23. struct TCalculateSizeStats;
  24. struct TFileSystemInfo;
  25. struct TSpaceAvailable;
  26. struct TFilesFindParams;
  27. class TTunnelUI;
  28. class TCallbackGuard;
  29. //---------------------------------------------------------------------------
  30. typedef void __fastcall (__closure *TQueryUserEvent)
  31. (TObject * Sender, const AnsiString Query, TStrings * MoreMessages, int Answers,
  32. const TQueryParams * Params, int & Answer, TQueryType QueryType, void * Arg);
  33. typedef void __fastcall (__closure *TPromptUserEvent)
  34. (TTerminal * Terminal, TPromptKind Kind, AnsiString Name, AnsiString Instructions,
  35. TStrings * Prompts, TStrings * Results, bool & Result, void * Arg);
  36. typedef void __fastcall (__closure *TDisplayBannerEvent)
  37. (TTerminal * Terminal, AnsiString SessionName, const AnsiString & Banner,
  38. bool & NeverShowAgain, int Options);
  39. typedef void __fastcall (__closure *TExtendedExceptionEvent)
  40. (TTerminal * Terminal, Exception * E, void * Arg);
  41. typedef void __fastcall (__closure *TReadDirectoryEvent)(System::TObject * Sender, Boolean ReloadOnly);
  42. typedef void __fastcall (__closure *TReadDirectoryProgressEvent)(
  43. System::TObject* Sender, int Progress, bool & Cancel);
  44. typedef void __fastcall (__closure *TProcessFileEvent)
  45. (const AnsiString FileName, const TRemoteFile * File, void * Param);
  46. typedef void __fastcall (__closure *TProcessFileEventEx)
  47. (const AnsiString FileName, const TRemoteFile * File, void * Param, int Index);
  48. typedef int __fastcall (__closure *TFileOperationEvent)
  49. (void * Param1, void * Param2);
  50. typedef void __fastcall (__closure *TSynchronizeDirectory)
  51. (const AnsiString LocalDirectory, const AnsiString RemoteDirectory,
  52. bool & Continue, bool Collect);
  53. typedef void __fastcall (__closure *TDeleteLocalFileEvent)(
  54. const AnsiString FileName, bool Alternative);
  55. typedef int __fastcall (__closure *TDirectoryModifiedEvent)
  56. (TTerminal * Terminal, const AnsiString Directory, bool SubDirs);
  57. typedef void __fastcall (__closure *TInformationEvent)
  58. (TTerminal * Terminal, const AnsiString & Str, bool Status, bool Active = true);
  59. //---------------------------------------------------------------------------
  60. #define SUSPEND_OPERATION(Command) \
  61. { \
  62. TSuspendFileOperationProgress Suspend(OperationProgress); \
  63. Command \
  64. }
  65. #define THROW_SKIP_FILE(EXCEPTION, MESSAGE) \
  66. throw EScpSkipFile(EXCEPTION, MESSAGE)
  67. #define THROW_SKIP_FILE_NULL THROW_SKIP_FILE(NULL, "")
  68. /* TODO : Better user interface (query to user) */
  69. #define FILE_OPERATION_LOOP_CUSTOM(TERMINAL, ALLOW_SKIP, MESSAGE, OPERATION) { \
  70. bool DoRepeat; \
  71. do { \
  72. DoRepeat = false; \
  73. try { \
  74. OPERATION; \
  75. } \
  76. catch (EAbort & E) \
  77. { \
  78. throw; \
  79. } \
  80. catch (EScpSkipFile & E) \
  81. { \
  82. throw; \
  83. } \
  84. catch (EFatal & E) \
  85. { \
  86. throw; \
  87. } \
  88. catch (Exception & E) \
  89. { \
  90. TERMINAL->FileOperationLoopQuery(E, OperationProgress, MESSAGE, ALLOW_SKIP); \
  91. DoRepeat = true; \
  92. } \
  93. } while (DoRepeat); }
  94. #define FILE_OPERATION_LOOP(MESSAGE, OPERATION) \
  95. FILE_OPERATION_LOOP_EX(True, MESSAGE, OPERATION)
  96. //---------------------------------------------------------------------------
  97. enum TCurrentFSProtocol { cfsUnknown, cfsSCP, cfsSFTP, cfsFTP };
  98. //---------------------------------------------------------------------------
  99. const cpDelete = 0x01;
  100. const cpTemporary = 0x04;
  101. const cpNoConfirmation = 0x08;
  102. const cpNewerOnly = 0x10;
  103. const cpAppend = 0x20;
  104. const cpResume = 0x40;
  105. //---------------------------------------------------------------------------
  106. const ccApplyToDirectories = 0x01;
  107. const ccRecursive = 0x02;
  108. const ccUser = 0x100;
  109. //---------------------------------------------------------------------------
  110. const csIgnoreErrors = 0x01;
  111. //---------------------------------------------------------------------------
  112. const ropNoReadDirectory = 0x02;
  113. //---------------------------------------------------------------------------
  114. const boDisableNeverShowAgain = 0x01;
  115. //---------------------------------------------------------------------------
  116. class TTerminal : public TObject, public TSessionUI
  117. {
  118. public:
  119. // TScript::SynchronizeProc relies on the order
  120. enum TSynchronizeMode { smRemote, smLocal, smBoth };
  121. static const spDelete = 0x01; // cannot be combined with spTimestamp
  122. static const spNoConfirmation = 0x02; // has no effect for spTimestamp
  123. static const spExistingOnly = 0x04; // is implicit for spTimestamp
  124. static const spNoRecurse = 0x08;
  125. static const spUseCache = 0x10; // cannot be combined with spTimestamp
  126. static const spDelayProgress = 0x20; // cannot be combined with spTimestamp
  127. static const spPreviewChanges = 0x40; // not used by core
  128. static const spSubDirs = 0x80; // cannot be combined with spTimestamp
  129. static const spTimestamp = 0x100;
  130. static const spNotByTime = 0x200; // cannot be combined with spTimestamp and smBoth
  131. static const spBySize = 0x400; // cannot be combined with smBoth, has opposite meaning for spTimestamp
  132. // 0x800 is reserved for GUI (spSelectedOnly)
  133. static const spMirror = 0x1000;
  134. // for TranslateLockedPath()
  135. friend class TRemoteFile;
  136. // for ReactOnCommand()
  137. friend class TSCPFileSystem;
  138. friend class TSFTPFileSystem;
  139. friend class TFTPFileSystem;
  140. friend class TTunnelUI;
  141. friend class TCallbackGuard;
  142. private:
  143. TSessionData * FSessionData;
  144. TSessionLog * FLog;
  145. TConfiguration * FConfiguration;
  146. AnsiString FCurrentDirectory;
  147. AnsiString FLockDirectory;
  148. Integer FExceptionOnFail;
  149. TRemoteDirectory * FFiles;
  150. int FInTransaction;
  151. bool FSuspendTransaction;
  152. TNotifyEvent FOnChangeDirectory;
  153. TReadDirectoryEvent FOnReadDirectory;
  154. TNotifyEvent FOnStartReadDirectory;
  155. TReadDirectoryProgressEvent FOnReadDirectoryProgress;
  156. TDeleteLocalFileEvent FOnDeleteLocalFile;
  157. TRemoteTokenList FMembership;
  158. TRemoteTokenList FGroups;
  159. TRemoteTokenList FUsers;
  160. bool FUsersGroupsLookedup;
  161. TFileOperationProgressEvent FOnProgress;
  162. TFileOperationFinished FOnFinished;
  163. TFileOperationProgressType * FOperationProgress;
  164. bool FUseBusyCursor;
  165. TRemoteDirectoryCache * FDirectoryCache;
  166. TRemoteDirectoryChangesCache * FDirectoryChangesCache;
  167. TCustomFileSystem * FFileSystem;
  168. TSecureShell * FSecureShell;
  169. AnsiString FLastDirectoryChange;
  170. TCurrentFSProtocol FFSProtocol;
  171. TTerminal * FCommandSession;
  172. bool FAutoReadDirectory;
  173. bool FReadingCurrentDirectory;
  174. bool * FClosedOnCompletion;
  175. TSessionStatus FStatus;
  176. AnsiString FPassword;
  177. AnsiString FTunnelPassword;
  178. TTunnelThread * FTunnelThread;
  179. TSecureShell * FTunnel;
  180. TSessionData * FTunnelData;
  181. TSessionLog * FTunnelLog;
  182. TTunnelUI * FTunnelUI;
  183. int FTunnelLocalPortNumber;
  184. AnsiString FTunnelError;
  185. TQueryUserEvent FOnQueryUser;
  186. TPromptUserEvent FOnPromptUser;
  187. TDisplayBannerEvent FOnDisplayBanner;
  188. TExtendedExceptionEvent FOnShowExtendedException;
  189. TInformationEvent FOnInformation;
  190. TNotifyEvent FOnClose;
  191. bool FAnyInformation;
  192. TCallbackGuard * FCallbackGuard;
  193. TFindingFileEvent FOnFindingFile;
  194. void __fastcall CommandError(Exception * E, const AnsiString Msg);
  195. int __fastcall CommandError(Exception * E, const AnsiString Msg, int Answers);
  196. AnsiString __fastcall GetCurrentDirectory();
  197. bool __fastcall GetExceptionOnFail() const;
  198. const TRemoteTokenList * __fastcall GetGroups();
  199. const TRemoteTokenList * __fastcall GetUsers();
  200. const TRemoteTokenList * __fastcall GetMembership();
  201. void __fastcall SetCurrentDirectory(AnsiString value);
  202. void __fastcall SetExceptionOnFail(bool value);
  203. void __fastcall ReactOnCommand(int /*TFSCommand*/ Cmd);
  204. AnsiString __fastcall GetUserName() const;
  205. bool __fastcall GetAreCachesEmpty() const;
  206. void __fastcall ClearCachedFileList(const AnsiString Path, bool SubDirs);
  207. void __fastcall AddCachedFileList(TRemoteFileList * FileList);
  208. bool __fastcall GetCommandSessionOpened();
  209. TTerminal * __fastcall GetCommandSession();
  210. bool __fastcall GetResolvingSymlinks();
  211. bool __fastcall GetActive();
  212. AnsiString __fastcall GetPassword();
  213. AnsiString __fastcall GetTunnelPassword();
  214. bool __fastcall GetStoredCredentialsTried();
  215. inline bool __fastcall InTransaction();
  216. protected:
  217. bool FReadCurrentDirectoryPending;
  218. bool FReadDirectoryPending;
  219. bool FTunnelOpening;
  220. void __fastcall DoStartReadDirectory();
  221. void __fastcall DoReadDirectoryProgress(int Progress, bool & Cancel);
  222. void __fastcall DoReadDirectory(bool ReloadOnly);
  223. void __fastcall DoCreateDirectory(const AnsiString DirName);
  224. void __fastcall DoDeleteFile(const AnsiString FileName, const TRemoteFile * File,
  225. int Params);
  226. void __fastcall DoCustomCommandOnFile(AnsiString FileName,
  227. const TRemoteFile * File, AnsiString Command, int Params, TCaptureOutputEvent OutputEvent);
  228. void __fastcall DoRenameFile(const AnsiString FileName,
  229. const AnsiString NewName, bool Move);
  230. void __fastcall DoCopyFile(const AnsiString FileName, const AnsiString NewName);
  231. void __fastcall DoChangeFileProperties(const AnsiString FileName,
  232. const TRemoteFile * File, const TRemoteProperties * Properties);
  233. void __fastcall DoChangeDirectory();
  234. void __fastcall EnsureNonExistence(const AnsiString FileName);
  235. void __fastcall LookupUsersGroups();
  236. void __fastcall FileModified(const TRemoteFile * File,
  237. const AnsiString FileName, bool ClearDirectoryChange = false);
  238. int __fastcall FileOperationLoop(TFileOperationEvent CallBackFunc,
  239. TFileOperationProgressType * OperationProgress, bool AllowSkip,
  240. const AnsiString Message, void * Param1 = NULL, void * Param2 = NULL);
  241. bool __fastcall GetIsCapable(TFSCapability Capability) const;
  242. bool __fastcall ProcessFiles(TStrings * FileList, TFileOperation Operation,
  243. TProcessFileEvent ProcessFile, void * Param = NULL, TOperationSide Side = osRemote,
  244. bool Ex = false);
  245. bool __fastcall ProcessFilesEx(TStrings * FileList, TFileOperation Operation,
  246. TProcessFileEventEx ProcessFile, void * Param = NULL, TOperationSide Side = osRemote);
  247. void __fastcall ProcessDirectory(const AnsiString DirName,
  248. TProcessFileEvent CallBackFunc, void * Param = NULL, bool UseCache = false,
  249. bool IgnoreErrors = false);
  250. void __fastcall AnnounceFileListOperation();
  251. AnsiString __fastcall TranslateLockedPath(AnsiString Path, bool Lock);
  252. void __fastcall ReadDirectory(TRemoteFileList * FileList);
  253. void __fastcall CustomReadDirectory(TRemoteFileList * FileList);
  254. void __fastcall DoCreateLink(const AnsiString FileName, const AnsiString PointTo, bool Symbolic);
  255. bool __fastcall CreateLocalFile(const AnsiString FileName,
  256. TFileOperationProgressType * OperationProgress, HANDLE * AHandle,
  257. bool NoConfirmation);
  258. void __fastcall OpenLocalFile(const AnsiString FileName, int Access,
  259. int * Attrs, HANDLE * Handle, __int64 * ACTime, __int64 * MTime,
  260. __int64 * ATime, __int64 * Size, bool TryWriteReadOnly = true);
  261. bool __fastcall AllowLocalFileTransfer(AnsiString FileName, const TCopyParamType * CopyParam);
  262. bool __fastcall HandleException(Exception * E);
  263. void __fastcall CalculateFileSize(AnsiString FileName,
  264. const TRemoteFile * File, /*TCalculateSizeParams*/ void * Size);
  265. void __fastcall DoCalculateDirectorySize(const AnsiString FileName,
  266. const TRemoteFile * File, TCalculateSizeParams * Params);
  267. void __fastcall CalculateLocalFileSize(const AnsiString FileName,
  268. const TSearchRec Rec, /*__int64*/ void * Size);
  269. void __fastcall CalculateLocalFilesSize(TStrings * FileList, __int64 & Size,
  270. const TCopyParamType * CopyParam = NULL);
  271. TBatchOverwrite __fastcall EffectiveBatchOverwrite(
  272. int Params, TFileOperationProgressType * OperationProgress, bool Special);
  273. bool __fastcall CheckRemoteFile(int Params, TFileOperationProgressType * OperationProgress);
  274. int __fastcall ConfirmFileOverwrite(const AnsiString FileName,
  275. const TOverwriteFileParams * FileParams, int Answers, const TQueryParams * QueryParams,
  276. TOperationSide Side, int Params, TFileOperationProgressType * OperationProgress,
  277. AnsiString Message = "");
  278. void __fastcall DoSynchronizeCollectDirectory(const AnsiString LocalDirectory,
  279. const AnsiString RemoteDirectory, TSynchronizeMode Mode,
  280. const TCopyParamType * CopyParam, int Params,
  281. TSynchronizeDirectory OnSynchronizeDirectory,
  282. TSynchronizeOptions * Options, int Level, TSynchronizeChecklist * Checklist);
  283. void __fastcall SynchronizeCollectFile(const AnsiString FileName,
  284. const TRemoteFile * File, /*TSynchronizeData*/ void * Param);
  285. void __fastcall SynchronizeRemoteTimestamp(const AnsiString FileName,
  286. const TRemoteFile * File, void * Param);
  287. void __fastcall SynchronizeLocalTimestamp(const AnsiString FileName,
  288. const TRemoteFile * File, void * Param);
  289. void __fastcall DoSynchronizeProgress(const TSynchronizeData & Data, bool Collect);
  290. void __fastcall DeleteLocalFile(AnsiString FileName,
  291. const TRemoteFile * File, void * Param);
  292. void __fastcall RecycleFile(AnsiString FileName, const TRemoteFile * File);
  293. TStrings * __fastcall GetFixedPaths();
  294. void __fastcall DoStartup();
  295. virtual bool __fastcall DoQueryReopen(Exception * E);
  296. virtual void __fastcall FatalError(Exception * E, AnsiString Msg);
  297. void __fastcall ResetConnection();
  298. virtual bool __fastcall DoPromptUser(TSessionData * Data, TPromptKind Kind,
  299. AnsiString Name, AnsiString Instructions, TStrings * Prompts,
  300. TStrings * Response);
  301. void __fastcall OpenTunnel();
  302. void __fastcall CloseTunnel();
  303. void __fastcall DoInformation(const AnsiString & Str, bool Status, bool Active = true);
  304. AnsiString __fastcall FileUrl(const AnsiString Protocol, const AnsiString FileName);
  305. bool __fastcall PromptUser(TSessionData * Data, TPromptKind Kind,
  306. AnsiString Name, AnsiString Instructions, AnsiString Prompt, bool Echo,
  307. int MaxLen, AnsiString & Result);
  308. void __fastcall FileFind(AnsiString FileName, const TRemoteFile * File, void * Param);
  309. void __fastcall DoFilesFind(AnsiString Directory, TFilesFindParams & Params);
  310. bool __fastcall DoCreateLocalFile(const AnsiString FileName,
  311. TFileOperationProgressType * OperationProgress, HANDLE * AHandle,
  312. bool NoConfirmation);
  313. virtual void __fastcall Information(const AnsiString & Str, bool Status);
  314. virtual int __fastcall QueryUser(const AnsiString Query,
  315. TStrings * MoreMessages, int Answers, const TQueryParams * Params,
  316. TQueryType QueryType = qtConfirmation);
  317. virtual int __fastcall QueryUserException(const AnsiString Query,
  318. Exception * E, int Answers, const TQueryParams * Params,
  319. TQueryType QueryType = qtConfirmation);
  320. virtual bool __fastcall PromptUser(TSessionData * Data, TPromptKind Kind,
  321. AnsiString Name, AnsiString Instructions, TStrings * Prompts, TStrings * Results);
  322. virtual void __fastcall DisplayBanner(const AnsiString & Banner);
  323. virtual void __fastcall Closed();
  324. virtual void __fastcall HandleExtendedException(Exception * E);
  325. bool __fastcall IsListenerFree(unsigned int PortNumber);
  326. void __fastcall DoProgress(TFileOperationProgressType & ProgressData, TCancelStatus & Cancel);
  327. void __fastcall DoFinished(TFileOperation Operation, TOperationSide Side, bool Temp,
  328. const AnsiString & FileName, bool Success, TOnceDoneOperation & OnceDoneOperation);
  329. void __fastcall RollbackAction(TSessionAction & Action,
  330. TFileOperationProgressType * OperationProgress, Exception * E = NULL);
  331. void __fastcall DoAnyCommand(const AnsiString Command, TCaptureOutputEvent OutputEvent,
  332. TCallSessionAction * Action);
  333. TRemoteFileList * DoReadDirectoryListing(AnsiString Directory, bool UseCache);
  334. AnsiString __fastcall EncryptPassword(const AnsiString & Password);
  335. AnsiString __fastcall DecryptPassword(const AnsiString & Password);
  336. __property TFileOperationProgressType * OperationProgress = { read=FOperationProgress };
  337. public:
  338. __fastcall TTerminal(TSessionData * SessionData, TConfiguration * Configuration);
  339. __fastcall ~TTerminal();
  340. void __fastcall Open();
  341. void __fastcall Close();
  342. void __fastcall Reopen(int Params);
  343. virtual void __fastcall DirectoryModified(const AnsiString Path, bool SubDirs);
  344. virtual void __fastcall DirectoryLoaded(TRemoteFileList * FileList);
  345. void __fastcall ShowExtendedException(Exception * E);
  346. void __fastcall Idle();
  347. void __fastcall RecryptPasswords();
  348. bool __fastcall AllowedAnyCommand(const AnsiString Command);
  349. void __fastcall AnyCommand(const AnsiString Command, TCaptureOutputEvent OutputEvent);
  350. void __fastcall CloseOnCompletion(TOnceDoneOperation Operation = odoDisconnect, const AnsiString Message = "");
  351. AnsiString __fastcall AbsolutePath(AnsiString Path, bool Local);
  352. void __fastcall BeginTransaction();
  353. void __fastcall ReadCurrentDirectory();
  354. void __fastcall ReadDirectory(bool ReloadOnly, bool ForceCache = false);
  355. TRemoteFileList * ReadDirectoryListing(AnsiString Directory, const TFileMasks & Mask);
  356. TRemoteFileList * CustomReadDirectoryListing(AnsiString Directory, bool UseCache);
  357. void __fastcall ReadFile(const AnsiString FileName, TRemoteFile *& File);
  358. bool __fastcall FileExists(const AnsiString FileName, TRemoteFile ** File = NULL);
  359. void __fastcall ReadSymlink(TRemoteFile * SymlinkFile, TRemoteFile *& File);
  360. bool __fastcall CopyToLocal(TStrings * FilesToCopy,
  361. const AnsiString TargetDir, const TCopyParamType * CopyParam, int Params);
  362. bool __fastcall CopyToRemote(TStrings * FilesToCopy,
  363. const AnsiString TargetDir, const TCopyParamType * CopyParam, int Params);
  364. void __fastcall CreateDirectory(const AnsiString DirName,
  365. const TRemoteProperties * Properties = NULL);
  366. void __fastcall CreateLink(const AnsiString FileName, const AnsiString PointTo, bool Symbolic);
  367. void __fastcall DeleteFile(AnsiString FileName,
  368. const TRemoteFile * File = NULL, void * Params = NULL);
  369. bool __fastcall DeleteFiles(TStrings * FilesToDelete, int Params = 0);
  370. bool __fastcall DeleteLocalFiles(TStrings * FileList, int Params = 0);
  371. bool __fastcall IsRecycledFile(AnsiString FileName);
  372. void __fastcall CustomCommandOnFile(AnsiString FileName,
  373. const TRemoteFile * File, void * AParams);
  374. void __fastcall CustomCommandOnFiles(AnsiString Command, int Params,
  375. TStrings * Files, TCaptureOutputEvent OutputEvent);
  376. void __fastcall ChangeDirectory(const AnsiString Directory);
  377. void __fastcall EndTransaction();
  378. void __fastcall HomeDirectory();
  379. void __fastcall ChangeFileProperties(AnsiString FileName,
  380. const TRemoteFile * File, /*const TRemoteProperties */ void * Properties);
  381. void __fastcall ChangeFilesProperties(TStrings * FileList,
  382. const TRemoteProperties * Properties);
  383. bool __fastcall LoadFilesProperties(TStrings * FileList);
  384. void __fastcall TerminalError(AnsiString Msg);
  385. void __fastcall TerminalError(Exception * E, AnsiString Msg);
  386. void __fastcall ReloadDirectory();
  387. void __fastcall RefreshDirectory();
  388. void __fastcall RenameFile(const AnsiString FileName, const AnsiString NewName);
  389. void __fastcall RenameFile(const TRemoteFile * File, const AnsiString NewName, bool CheckExistence);
  390. void __fastcall MoveFile(const AnsiString FileName, const TRemoteFile * File,
  391. /*const TMoveFileParams*/ void * Param);
  392. bool __fastcall MoveFiles(TStrings * FileList, const AnsiString Target,
  393. const AnsiString FileMask);
  394. void __fastcall CopyFile(const AnsiString FileName, const TRemoteFile * File,
  395. /*const TMoveFileParams*/ void * Param);
  396. bool __fastcall CopyFiles(TStrings * FileList, const AnsiString Target,
  397. const AnsiString FileMask);
  398. void __fastcall CalculateFilesSize(TStrings * FileList, __int64 & Size,
  399. int Params, const TCopyParamType * CopyParam = NULL, TCalculateSizeStats * Stats = NULL);
  400. void __fastcall CalculateFilesChecksum(const AnsiString & Alg, TStrings * FileList,
  401. TStrings * Checksums, TCalculatedChecksumEvent OnCalculatedChecksum);
  402. void __fastcall ClearCaches();
  403. TSynchronizeChecklist * __fastcall SynchronizeCollect(const AnsiString LocalDirectory,
  404. const AnsiString RemoteDirectory, TSynchronizeMode Mode,
  405. const TCopyParamType * CopyParam, int Params,
  406. TSynchronizeDirectory OnSynchronizeDirectory, TSynchronizeOptions * Options);
  407. void __fastcall SynchronizeApply(TSynchronizeChecklist * Checklist,
  408. const AnsiString LocalDirectory, const AnsiString RemoteDirectory,
  409. const TCopyParamType * CopyParam, int Params,
  410. TSynchronizeDirectory OnSynchronizeDirectory);
  411. void __fastcall FilesFind(AnsiString Directory, const TFileMasks & FileMask,
  412. TFileFoundEvent OnFileFound, TFindingFileEvent OnFindingFile);
  413. void __fastcall SpaceAvailable(const AnsiString Path, TSpaceAvailable & ASpaceAvailable);
  414. bool __fastcall DirectoryFileList(const AnsiString Path,
  415. TRemoteFileList *& FileList, bool CanLoad);
  416. void __fastcall MakeLocalFileList(const AnsiString FileName,
  417. const TSearchRec Rec, void * Param);
  418. AnsiString __fastcall FileUrl(const AnsiString FileName);
  419. bool __fastcall FileOperationLoopQuery(Exception & E,
  420. TFileOperationProgressType * OperationProgress, const AnsiString Message,
  421. bool AllowSkip, AnsiString SpecialRetry = "");
  422. TUsableCopyParamAttrs __fastcall UsableCopyParamAttrs(int Params);
  423. bool __fastcall QueryReopen(Exception * E, int Params,
  424. TFileOperationProgressType * OperationProgress);
  425. AnsiString __fastcall PeekCurrentDirectory();
  426. const TSessionInfo & __fastcall GetSessionInfo();
  427. const TFileSystemInfo & __fastcall GetFileSystemInfo(bool Retrieve = false);
  428. void __fastcall inline LogEvent(const AnsiString & Str);
  429. static bool __fastcall IsAbsolutePath(const AnsiString Path);
  430. static AnsiString __fastcall ExpandFileName(AnsiString Path,
  431. const AnsiString BasePath);
  432. __property TSessionData * SessionData = { read = FSessionData };
  433. __property TSessionLog * Log = { read = FLog };
  434. __property TConfiguration * Configuration = { read = FConfiguration };
  435. __property bool Active = { read = GetActive };
  436. __property TSessionStatus Status = { read = FStatus };
  437. __property AnsiString CurrentDirectory = { read = GetCurrentDirectory, write = SetCurrentDirectory };
  438. __property bool ExceptionOnFail = { read = GetExceptionOnFail, write = SetExceptionOnFail };
  439. __property TRemoteDirectory * Files = { read = FFiles };
  440. __property TNotifyEvent OnChangeDirectory = { read = FOnChangeDirectory, write = FOnChangeDirectory };
  441. __property TReadDirectoryEvent OnReadDirectory = { read = FOnReadDirectory, write = FOnReadDirectory };
  442. __property TNotifyEvent OnStartReadDirectory = { read = FOnStartReadDirectory, write = FOnStartReadDirectory };
  443. __property TReadDirectoryProgressEvent OnReadDirectoryProgress = { read = FOnReadDirectoryProgress, write = FOnReadDirectoryProgress };
  444. __property TDeleteLocalFileEvent OnDeleteLocalFile = { read = FOnDeleteLocalFile, write = FOnDeleteLocalFile };
  445. __property const TRemoteTokenList * Groups = { read = GetGroups };
  446. __property const TRemoteTokenList * Users = { read = GetUsers };
  447. __property const TRemoteTokenList * Membership = { read = GetMembership };
  448. __property TFileOperationProgressEvent OnProgress = { read=FOnProgress, write=FOnProgress };
  449. __property TFileOperationFinished OnFinished = { read=FOnFinished, write=FOnFinished };
  450. __property TCurrentFSProtocol FSProtocol = { read = FFSProtocol };
  451. __property bool UseBusyCursor = { read = FUseBusyCursor, write = FUseBusyCursor };
  452. __property AnsiString UserName = { read=GetUserName };
  453. __property bool IsCapable[TFSCapability Capability] = { read = GetIsCapable };
  454. __property bool AreCachesEmpty = { read = GetAreCachesEmpty };
  455. __property bool CommandSessionOpened = { read = GetCommandSessionOpened };
  456. __property TTerminal * CommandSession = { read = GetCommandSession };
  457. __property bool AutoReadDirectory = { read = FAutoReadDirectory, write = FAutoReadDirectory };
  458. __property TStrings * FixedPaths = { read = GetFixedPaths };
  459. __property bool ResolvingSymlinks = { read = GetResolvingSymlinks };
  460. __property AnsiString Password = { read = GetPassword };
  461. __property AnsiString TunnelPassword = { read = GetTunnelPassword };
  462. __property bool StoredCredentialsTried = { read = GetStoredCredentialsTried };
  463. __property TQueryUserEvent OnQueryUser = { read = FOnQueryUser, write = FOnQueryUser };
  464. __property TPromptUserEvent OnPromptUser = { read = FOnPromptUser, write = FOnPromptUser };
  465. __property TDisplayBannerEvent OnDisplayBanner = { read = FOnDisplayBanner, write = FOnDisplayBanner };
  466. __property TExtendedExceptionEvent OnShowExtendedException = { read = FOnShowExtendedException, write = FOnShowExtendedException };
  467. __property TInformationEvent OnInformation = { read = FOnInformation, write = FOnInformation };
  468. __property TNotifyEvent OnClose = { read = FOnClose, write = FOnClose };
  469. __property int TunnelLocalPortNumber = { read = FTunnelLocalPortNumber };
  470. };
  471. //---------------------------------------------------------------------------
  472. class TSecondaryTerminal : public TTerminal
  473. {
  474. public:
  475. __fastcall TSecondaryTerminal(TTerminal * MainTerminal,
  476. TSessionData * SessionData, TConfiguration * Configuration,
  477. const AnsiString & Name);
  478. protected:
  479. virtual void __fastcall DirectoryLoaded(TRemoteFileList * FileList);
  480. virtual void __fastcall DirectoryModified(const AnsiString Path,
  481. bool SubDirs);
  482. virtual bool __fastcall DoPromptUser(TSessionData * Data, TPromptKind Kind,
  483. AnsiString Name, AnsiString Instructions, TStrings * Prompts, TStrings * Results);
  484. private:
  485. bool FMasterPasswordTried;
  486. bool FMasterTunnelPasswordTried;
  487. TTerminal * FMainTerminal;
  488. };
  489. //---------------------------------------------------------------------------
  490. class TTerminalList : public TObjectList
  491. {
  492. public:
  493. __fastcall TTerminalList(TConfiguration * AConfiguration);
  494. __fastcall ~TTerminalList();
  495. virtual TTerminal * __fastcall NewTerminal(TSessionData * Data);
  496. virtual void __fastcall FreeTerminal(TTerminal * Terminal);
  497. void __fastcall FreeAndNullTerminal(TTerminal * & Terminal);
  498. virtual void __fastcall Idle();
  499. void __fastcall RecryptPasswords();
  500. __property TTerminal * Terminals[int Index] = { read=GetTerminal };
  501. __property int ActiveCount = { read = GetActiveCount };
  502. protected:
  503. virtual TTerminal * __fastcall CreateTerminal(TSessionData * Data);
  504. private:
  505. TConfiguration * FConfiguration;
  506. TTerminal * __fastcall GetTerminal(int Index);
  507. int __fastcall GetActiveCount();
  508. };
  509. //---------------------------------------------------------------------------
  510. struct TCustomCommandParams
  511. {
  512. AnsiString Command;
  513. int Params;
  514. TCaptureOutputEvent OutputEvent;
  515. };
  516. //---------------------------------------------------------------------------
  517. struct TCalculateSizeStats
  518. {
  519. TCalculateSizeStats();
  520. int Files;
  521. int Directories;
  522. int SymLinks;
  523. };
  524. //---------------------------------------------------------------------------
  525. struct TCalculateSizeParams
  526. {
  527. __int64 Size;
  528. int Params;
  529. const TCopyParamType * CopyParam;
  530. TCalculateSizeStats * Stats;
  531. };
  532. //---------------------------------------------------------------------------
  533. struct TOverwriteFileParams
  534. {
  535. TOverwriteFileParams();
  536. __int64 SourceSize;
  537. __int64 DestSize;
  538. TDateTime SourceTimestamp;
  539. TDateTime DestTimestamp;
  540. TModificationFmt SourcePrecision;
  541. TModificationFmt DestPrecision;
  542. };
  543. //---------------------------------------------------------------------------
  544. struct TMakeLocalFileListParams
  545. {
  546. TStrings * FileList;
  547. bool IncludeDirs;
  548. bool Recursive;
  549. };
  550. //---------------------------------------------------------------------------
  551. struct TSynchronizeOptions
  552. {
  553. TSynchronizeOptions();
  554. ~TSynchronizeOptions();
  555. TStringList * Filter;
  556. };
  557. //---------------------------------------------------------------------------
  558. class TSynchronizeChecklist
  559. {
  560. friend class TTerminal;
  561. public:
  562. enum TAction { saNone, saUploadNew, saDownloadNew, saUploadUpdate,
  563. saDownloadUpdate, saDeleteRemote, saDeleteLocal };
  564. static const int ActionCount = saDeleteLocal;
  565. class TItem
  566. {
  567. friend class TTerminal;
  568. public:
  569. struct TFileInfo
  570. {
  571. AnsiString FileName;
  572. AnsiString Directory;
  573. TDateTime Modification;
  574. TModificationFmt ModificationFmt;
  575. __int64 Size;
  576. };
  577. TAction Action;
  578. bool IsDirectory;
  579. TFileInfo Local;
  580. TFileInfo Remote;
  581. int ImageIndex;
  582. bool Checked;
  583. TRemoteFile * RemoteFile;
  584. const AnsiString& GetFileName() const;
  585. ~TItem();
  586. private:
  587. FILETIME FLocalLastWriteTime;
  588. TItem();
  589. };
  590. ~TSynchronizeChecklist();
  591. __property int Count = { read = GetCount };
  592. __property const TItem * Item[int Index] = { read = GetItem };
  593. protected:
  594. TSynchronizeChecklist();
  595. void Sort();
  596. void Add(TItem * Item);
  597. int GetCount() const;
  598. const TItem * GetItem(int Index) const;
  599. private:
  600. TList * FList;
  601. static int __fastcall Compare(void * Item1, void * Item2);
  602. };
  603. //---------------------------------------------------------------------------
  604. struct TSpaceAvailable
  605. {
  606. TSpaceAvailable();
  607. __int64 BytesOnDevice;
  608. __int64 UnusedBytesOnDevice;
  609. __int64 BytesAvailableToUser;
  610. __int64 UnusedBytesAvailableToUser;
  611. unsigned long BytesPerAllocationUnit;
  612. };
  613. //---------------------------------------------------------------------------
  614. #endif