开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 2D图形编程 > 查看源码
AsphyreSQX.pas
资源名称：asphyre410.rar　[点击查看]
上传用户：ctlcnc
上传日期：2021-12-10
资源大小：4933k
文件大小：21k
源码类别：

2D图形编程

开发平台：

Delphi

AsphyreSQX.pas：源码内容
  1. unit AsphyreSQX;
  2. //---------------------------------------------------------------------------
  3. // AsphyreSQX.pas                                       Modified: 15-Jan-2007
  4. // SQX Archive Interface                                          Version 1.0
  5. //---------------------------------------------------------------------------
  6. // The following code was written based on the existing SQX SDK 2.02
  7. // documentation dated 20-Apr-2006 and some constants have been taken fron
  8. // the headers generously provided by Do-wan Kim.
  9. //
  10. // The interfaced 'sqx20.dll' is developed by Sven Ritter as part of SQX
  11. // Archiver. The full SQX-SDK can be downloaded from:
  12. //     http://www.sqx-archiver.org/
  13. //---------------------------------------------------------------------------
  14. // Important Notice:
  15. //
  16. // If you modify/use this code or one of its parts either in original or
  17. // modified form, you must comply with Mozilla Public License v1.1,
  18. // specifically section 3, "Distribution Obligations". Failure to do so will
  19. // result in the license breach, which will be resolved in the court.
  20. // Remember that violating author's rights is considered a serious crime in
  21. // many countries. Thank you!
  22. //
  23. // !! Please *read* Mozilla Public License 1.1 document located at:
  24. //  http://www.mozilla.org/MPL/
  25. //
  26. // If you require any clarifications about the license, feel free to contact
  27. // us or post your question on our forums at: http://www.afterwarp.net
  28. //---------------------------------------------------------------------------
  29. // The contents of this file are subject to the Mozilla Public License
  30. // Version 1.1 (the "License"); you may not use this file except in
  31. // compliance with the License. You may obtain a copy of the License at
  32. // http://www.mozilla.org/MPL/
  33. //
  34. // Software distributed under the License is distributed on an "AS IS"
  35. // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
  36. // License for the specific language governing rights and limitations
  37. // under the License.
  38. //
  39. // The Original Code is AsphyreSQX.pas.
  40. //
  41. // The Initial Developer of the Original Code is M. Sc. Yuriy Kotsarenko.
  42. // Portions created by M. Sc. Yuriy Kotsarenko are Copyright (C) 2007,
  43. // Afterwarp Interactive. All Rights Reserved.
  44. //---------------------------------------------------------------------------
  45. interface
  47. //---------------------------------------------------------------------------
  48. uses
  49.  Windows;
  51. //---------------------------------------------------------------------------
  52. const
  53.  // The path and full name of SQX DLL. Can be modified to be loaded from a
  54.  // specific folder relative to current path.
  55.  SQX_DLL_NAME = 'sqx20.dll';
  57. //---------------------------------------------------------------------------
  58. // The possible values returned by SQX callback mechanism.
  59. //---------------------------------------------------------------------------
  60.  SQX_PROGRESS_CANCEL   = 0; // The current operation will be cancelled.
  61.  SQX_PROGRESS_OK    = 1; // Going on with the current operation.
  63.  SQX_REPLACE_OVERWRITE = 0; // The specified file will be overwritten.
  64.  SQX_REPLACE_SKIP      = 1; // The specified file will not be overwritten.
  65.  SQX_REPLACE_CANCEL    = 2; // The current operation will be cancelled.
  67.  SQX_PASSWORD_CANCEL   = 0; // The current operation will be cancelled.
  68.  SQX_PASSWORD_OK       = 1; // Going on with the new password.
  70.  SQX_SKIPFILE_SKIP     = 1; // The specified file will be skipped.
  71.  SQX_SKIPFILE_CANCEL   = 2; // The current operation will be cancelled.
  73.  SQX_NEXTDISK_CANCEL   = 0; // The current operation will be cancelled.
  74.  SQX_NEXTDISK_OK       = 1; // Going on with the new folder to the next volume.
  76. //---------------------------------------------------------------------------
  77. // Values specifying the type of a callback.
  78. //---------------------------------------------------------------------------
  79.  SQX_CALLBACK_FILENAME        = 0; // SQX archiver is about to compress, extract, delete or test a file.
  80.  SQX_CALLBACK_PROGRESS        = 1; // SQX archiver signals the progress of a file beeing compressed, extracted or tested.
  81.  SQX_CALLBACK_REPLACE         = 2; // SQX archiver is about to overwrite either a file on disk (when extracting) or a file in the archive (when compressing).
  82.  SQX_CALLBACK_PASSWORD        = 3; // SQX archiver needs a password to decrypt a file.
  83.  SQX_CALLBACK_PASSWORD_HEADER = 4; // SQX archiver needs a password to decrypt the archive directory.
  84.  SQX_CALLBACK_SKIP            = 5; // SQX archiver cannot open a file because it is locked by another application.
  85.  SQX_CALLBACK_NEXTDISK        = 6; // SQX archiver needs the next volume when extracting or a new disk when compressing.
  86.  SQX_CALLBACK_SIGNAL          = 7; // SQX archiver signals the next command.
  88. //---------------------------------------------------------------------------
  89. // The possible error codes returned by SQX functions.
  90. //---------------------------------------------------------------------------
  91.  SQX_ERR_SUCCESS                       = 0;  // No error.
  92.  SQX_ERR_ERROR                         = 1;  // Unknown error in the last archive operation.
  93.  SQX_ERR_FILE_NOT_FOUND                = 2;  // The system cannot find the file specified.
  94.  SQX_ERR_PATH_NOT_FOUND                = 3;  // The system cannot find the path specified.
  95.  SQX_ERR_TOO_MANY_FILES                = 4;  // The system cannot open the file.
  96.  SQX_ERR_ACCESS_DENIED                 = 5;  // Access is denied.
  97.  SQX_ERR_INVALID_HANDLE                = 6;  // The file handle is invalid.
  98.  SQX_ERR_DISK_FULL                     = 7;  // The disk is full.
  99.  SQX_ERR_OUT_OF_MEMORY                 = 8;  // Not enough memory is available to complete this operation.
  100.  SQX_ERR_CANT_ACCESS_TEMP_DIR          = 9;  // Cannot access temp folder during a delete or update operation on a solid archive.
  101.  SQX_ERR_TEMP_DIR_FULL                 = 10; // Not enough space on drive for the temporary folder.
  102.  SQX_ERR_USER_ABORT                    = 11; // Cancelled by user.
  103.  SQX_ERR_INVALID_ARC_HANDLE            = 12; // Invalid archive handle.
  104.  SQX_ERR_CANT_FIND_LANG_DATA           = 13; // Could not find the selected language file for self-extracting archives.
  105.  SQX_ERR_UNKNOWN_SUBSTREAM             = 14; // The archive contains at least one unknown alternate data stream.
  106.  SQX_ERR_BAD_SUBSTREAM_CRC             = 15; // Bad alternate stream CRC. Archive is probably corrupted.
  107.  SQX_ERR_UNKNOWN_METHOD                = 16; // This method of compression is not supported by the archiver.
  108.  SQX_ERR_FILE_ENCRYPTED                = 17; // Archive is encrypted with a password.
  109.  SQX_ERR_BAD_CRC                       = 18; // Bad CRC. Archive is probably corrupted.
  110.  SQX_ERR_CANT_CREATE_FILE              = 19; // Could not create file or folder.
  111.  SQX_ERR_BAD_FILE_FORMAT               = 20; // Bad archive file format.
  112.  SQX_ERR_FUNCTION_NOT_SUPPORTED        = 21; // Function is not supported.
  113.  SQX_ERR_FUNC_NOT_SUPPORTED_BY_ARCHIVE = 22; // Function is not supported for this archive type.
  114.  SQX_ERR_CANT_CREATE_ARC_DIR           = 23; // Could not create folder in archive. It already exists a folder with this name.
  115.  SQX_ERR_INVALID_DIR_NAME              = 24; // Could not create folder in archive. The folder name contains invalid characters.
  116.  SQX_ERR_INVALID_FILE_NAME             = 25; // Could not create file in archive. The file name contains invalid characters.
  117.  SQX_ERR_TOO_MANY_BROKEN_FBLOCKS       = 26; // The archive file contains too many damaged file blocks and cannot be repaired.
  118.  SQX_ERR_ARCHIVE_OK_RDATA_NOT          = 27; // It seems that the archive has no errors, but the recovery data does not match the archive. Maybe this archive was edited by a program that could not identify the recovery data.
  119.  SQX_ERR_RDATA_DAMAGED                 = 28; // The recovery data of the archive file is damaged, too. This archive file cannot be repaired.
  120.  SQX_ERR_RDATA_NEW_VERSION             = 29; // The archive contains recovery data that cannot be used with this version of our software. The newest versions of our software are always available at http://www.speedproject.de/.
  121.  SQX_ERR_RDATA_DOES_NOT_MATCH          = 30; // The recovery data does not match the archive. It seems that this archive was edited by a program that could not identify the recovery data.
  122.  SQX_ERR_CANT_FIND_RDATA               = 31; // It seems that the archive does not contain any recovery data.
  123.  SQX_ERR_ARCHIVE_IS_LOCKED             = 32; // Cannot modify locked archive.
  124.  SQX_ERR_CANT_ADD_TO_MV                = 33; // It is not possible to add files to a multi-volume archive.
  125.  SQX_ERR_CANT_DELETE_FROM_MV           = 34; // It is not possible to delete files from a multi-volume archive.
  126.  SQX_ERR_NEED_1ST_VOLUME               = 35; // This file is part of a multi-volume archive. The first volume of the archive is needed to open it. Please select the first volume to open the archive.
  127.  SQX_ERR_MISSING_VOLUME                = 36; // The last volume of the archive could not be found.
  128.  SQX_ERR_VOLUME_LIMIT_REACHED          = 37; // Cannot create more than 999 volumes.
  129.  SQX_ERR_SFXSTUB_NOT_INSTALLED         = 38; // This system lacks the support for the SFX type you have selected. Please visit the download section of http://ww.speedproject.de/ to obtain complete support for SFX archives.
  130.  SQX_ERR_BACKUP_READ_ACCESS_DENIED     = 39; // Read access to alternate data stream was denied. Only the file itself is being compressed.
  131.  SQX_ERR_BACKUP_WRITE_ACCESS_DENIED    = 40; // Could not write alternate data stream (e.g. file comments).
  132.  SQX_ERR_ACL_READ_ACCESS_DENIED        = 41; // Could not read security attributes. Only the file itself is being compressed.
  133.  SQX_ERR_ACL_WRITE_ACCESS_DENIED       = 42; // Could not write security attributes.
  134.  SQX_ERR_WRONG_ARCHIVER_VERSION        = 43; // This archive contains data created with a higher version of this software. Please download the lastest update of the software from http://www.speedproject.de/.
  135.  SQX_ERR_CANT_COPY_SOURCE_TO_SOURCE    = 44; // Cannot copy an archive to itself. Please choose a different target name.
  136.  SQX_ERR_VOLUMES_TOO_SMALL             = 45; // The volume size cannot be smaller than 130 kByte.
  137.  SQX_ERR_ARCHIVE_VERSION_TOO_HIGH      = 46; // This archive can only be extracted. It is not possible to add files.
  138.  SQX_ERR_EXT_RDATA_DOES_NOT_MATCH      = 47; // The external recovery data don't seem to belong to the selected archive.
  139.  SQX_ERR_BAD_PARAMETER                 = 48; // The parameter is incorrect.
  140.  SQX_ERR_EQUAL_PASSWORDS               = 49; // The passwords for the archive files and archive directory are identical. Please enter different passwords.
  141.  SQX_ERR_REQUIRES_ENCRYPTION           = 50; // You cannot encrypt the archive directory without encrypting the files. Please enter one password for the archive directory and another password for the files.
  142.  SQX_ERR_MISSING_HEADER_PASSWORD       = 51; // Please enter a password to encrypt the archive directory.
  143.  SQX_ERR_MISSING_SQX_PRIVATE_KEY       = 52; // Could not find/access the private key required to encrypt the archive. Please make sure that the software can access all the keys in question.
  144.  SQX_ERR_MISSING_SQX_AVKEY             = 53; // Could not find the key required to create a digital signature. Please make sure that the software can access the authentication key.
  145.  SQX_ERR_MISSING_EXTERNAL_AVKEY        = 54; // Could not find/access the external key necessary to sign the archive. Please make sure that the software can access all keys in question.
  146.  SQX_ERR_INVALID_SQX_AVKEY             = 55; // The key you have selected to create digital signatures is invalid.
  147.  SQX_ERR_SQX_AVKEY_VERSION             = 56; // This version of the software cannot use the existing key to create digital signatures. Please download the lastest update of the software from http://www.speedproject.de/.
  148.  SQX_ERR_SQX_AVDATA_VERSION            = 57; // This version of the software cannot process the digital signature embedded within the archive. Please download the lastest update of the software from http://www.speedproject.de/.
  149.  SQX_ERR_SQX_BROKEN_AVRECORD           = 58; // The archive contains an invalid digital signature. The archive is either damaged or it has been manipulated.
  150.  SQX_ERR_RIJNDAEL_RSA                  = 59; // Unexpected error in an encryption function. Please contact our product support.
  151.  SQX_ERR_REQUIRES_NTFS                 = 60; // An option you selected requires NTFS.
  152.  SQX_ERR_REQUIRES_WINNT                = 61; // An option you selected requires Windows NT.
  153.  SQX_ERR_REQUIRES_W2K                  = 62; // An option you selected requires Windows 2000.
  154.  SQX_ERR_REQUIRES_WINXP                = 63; // An option you selected requires Windows XP.
  155.  SQX_ERR_REQUIRES_WINXP_SP1            = 64; // An option you selected requires Windows XP SP1.
  156.  SQX_ERR_REQUIRES_WINXP_SP2            = 65; // An option you selected requires Windows XP SP2.
  157.  SQX_ERR_REQUIRES_LONGHORN             = 66; // An option you selected requires Longhorn.
  158.  SQX_ERR_NO_RESOURCES_FOUND            = 67; // The selected SFX stub does not contain resources. Can not modify SFX stub.
  159.  SQX_ERR_UNKNOWN_ICON_FORMAT           = 68; // Could not determine the format of the selected icon file.
  160.  SQX_ERR_NO_MATCHING_ICON_SIZE         = 69; // The selected SFX stub does not contain icons with valid sizes. Can not modify SFX stub.
  161.  SQX_ERR_UNKNOWN_EXE_FORMAT            = 70; // The format of the selected SFX stub is unknown.
  162.  SQX_ERR_REQUIRES_SOURCE_PATH          = 71; // The extended archive test requires the source path.
  163.  SQX_ERR_FILE_DATA_NOT_EQUAL           = 72; // Extended archive test: The source on hard disk is different from the file in the archive.
  164.  SQX_ERR_COMMENT_BIGGER_4K             = 73; // You cannot add to the archive comments longer than 4096 chars. Please shorten your comments and try again.
  165.  SQX_ERR_CANT_CREATE_SFX_FROM_MV       = 74; // Cannot create a self-extracting archive from a multi-volume archive.
  167. //---------------------------------------------------------------------------
  168. type
  169.  TSqxString = packed array[0..MAX_PATH - 1] of Char;
  171. //---------------------------------------------------------------------------
  172.  TSqxCallbackInfo = packed record
  173.   CallbackType   : Longword;
  174.   SourceFileName : PChar;
  175.   TargetFileName : PChar;
  176.   Progress       : Integer;
  177.   FindDataExist  : PWin32FindData;
  178.   FindDataReplace: PWin32FindData;
  179.   CryptKey       : TSqxString;
  180.   OldCryptKey    : TSqxString;
  181.   CryptFileName  : TSqxString;
  182.   TotalSize      : Longword;
  183.   DiskNum        : Longword;
  184.   NextDiskPath   : TSqxString;
  185.   Signal         : Longword;
  186.   BlockSize      : Int64;
  187.  end;
  189. //---------------------------------------------------------------------------
  190.  TSqxCallback = function(Param: Pointer;
  191.   var CallbackInfo: TSqxCallbackInfo): Integer; stdcall;
  193. //---------------------------------------------------------------------------
  194.  TSqxAvInfo = packed record
  195.   AVInfoPresent: Boolean;
  196.   AV_ID        : TSqxString;
  197.   CreationTime : Int64;
  198. end;
  200. //---------------------------------------------------------------------------
  201.  TSqxArcInfo = packed record
  202.   Size             : Longword;
  203.   FileFormat       : Longword;
  204.   ArcerMajorVersion: Longword;
  205.   ArcerMinorVersion: Longword;
  206.   DictionarySize   : Longword;
  207.   RecoveryData     : LongBool;
  208.   Encryption       : Longword;
  209.   Solid            : LongBool;
  210.   HostOS           : Longword;
  211.   TotalFiles       : Longword;
  212.   CompressedSize   : Int64;
  213.   UncompressedSize : Int64;
  214.   Ratio            : Integer;
  215.   HeaderEncrypted  : LongBool;
  216.   IsMultiVolume    : LongBool;
  217.   ArchiveComment   : LongBool;
  218.   FileComments     : LongBool;
  219.   AvInfo           : TSqxAvInfo;
  220. end;
  222. //---------------------------------------------------------------------------
  223.  TSqxFileTime = packed record
  224.   BlockPresent  : Boolean;
  225.   CreationTime  : Int64;
  226.   LastAccessTime: Int64;
  227.   LastWriteTime : Int64;
  228. end;
  230. //---------------------------------------------------------------------------
  231.  PSqxArcNode = ^TSqxArcNode;
  232.  TSqxArcNode = packed record
  233.   FileName      : PChar;
  234.   FileNameLen   : Longword;
  235.   ExtraName     : PChar;
  236.   ExtraNameLen  : Longword;
  237.   FileNameType  : Longword;
  238.   Size          : Int64;
  239.   SizeOrig      : Int64;
  240.   DosFileTime   : Longword;
  241.   Attributes    : Longword;
  242.   ArcerVersion  : Longword;
  243.   FileCRC       : Longword;
  244.   HostOS        : Longword;
  245.   Method        : Longword;
  246.   CommentLen    : Longword;
  247.   Comment       : PChar;
  248.   Encrypted     : LongBool;
  249.   Tagged        : LongBool;
  250.   MappedMethod  : Longword;
  251.   ExtendedError : Longword;
  252.   FileTime      : TSqxFileTime;
  253. end;
  255. //---------------------------------------------------------------------------
  256.  PSqxArcListNode = ^TSqxArcListNode;
  257.  TSqxArcListNode = packed record
  258.   Next   : PSqxArcListNode;
  259.   ArcNode: PSqxArcNode;
  260.  end;
  262. //---------------------------------------------------------------------------
  263.  PSqxArcList = ^TSqxArcList;
  264.  TSqxArcList = packed record
  265.   ItemCount: Longword;
  266.   Head     : PSqxArcListNode;
  267.   Tail     : PSqxArcListNode;
  268.  end;
  270. //---------------------------------------------------------------------------
  271.  TSqxExtractOptions = packed record
  272.   Size                      : Longword;
  273.   Password                  : TSqxString;
  274.   PasswordHeader            : TSqxString;
  275.   TempDir                   : TSqxString;
  276.   RelativePath              : TSqxString;
  277.   OutputPath                : TSqxString;
  278.   ResetArchiveAttribute     : LongBool;
  279.   OverwriteAlways           : LongBool;
  280.   KeepBrokenFiles           : LongBool;
  281.   CreateFolders             : LongBool;
  282.   RestoreACLs               : LongBool;
  283.   RestoreStreams            : LongBool;
  284.   RestoreUnicodeNames       : LongBool;
  285.   RestoreWin32FileTimes     : LongBool;
  286.   RestoreDirectoryTimeStamps: LongBool;
  287.   AutoRestoreComments       : LongBool;
  288.   SetZoneID                 : LongBool;
  289. end;
  291. //---------------------------------------------------------------------------
  292. // Initializes an application's use of the SQX archiver functions and creates
  293. // an archiver handle.
  294. //---------------------------------------------------------------------------
  295. function SqxInitArchive(ArchiveName: PChar; Callback: TSqxCallback;
  296.  Param: Pointer; var Archive: THandle): Integer; stdcall;
  297.  external SQX_DLL_NAME;
  299. //---------------------------------------------------------------------------
  300. // Closes a SQX archive handle.
  301. //---------------------------------------------------------------------------
  302. procedure SqxDoneArchive(Archive: THandle); stdcall; external SQX_DLL_NAME;
  304. //---------------------------------------------------------------------------
  305. // Creates a file list that is used to pass a list of file names to SQX
  306. // archiver when creating, extracting or manipulating SQX archives.
  307. //---------------------------------------------------------------------------
  308. function SqxInitFileList(Archive: THandle): THandle; stdcall;
  309.  external SQX_DLL_NAME;
  311. //---------------------------------------------------------------------------
  312. // Destroys a file list created with the SqxInitFileList function.
  313. //---------------------------------------------------------------------------
  314. procedure SqxDoneFileList(Archive: THandle; FileMaskList: THandle); stdcall;
  315.  external SQX_DLL_NAME;
  317. //---------------------------------------------------------------------------
  318. // Adds a file name to a file list.
  319. //---------------------------------------------------------------------------
  320. procedure SqxAppendFileList(Archive: THandle; FileMaskList: THandle;
  321.  FileName: PChar); stdcall; external SQX_DLL_NAME;
  323. //---------------------------------------------------------------------------
  324. // Creates a file list that is used to pass a list of file names and file
  325. // properties to the caller when listing SQX archives with the SqxListFiles
  326. // function.
  327. //---------------------------------------------------------------------------
  328. function SqxInitArcFileList(Archive: THandle): PSqxArcList; stdcall;
  329.  external SQX_DLL_NAME;
  331. //---------------------------------------------------------------------------
  332. // Destroys a file list created with the SqxInitArcFileList function.
  333. //---------------------------------------------------------------------------
  334. procedure SqxDoneArcFileList(Archive: THandle; ArcFileList: PSqxArcList);
  335.  stdcall; external SQX_DLL_NAME;
  337. //---------------------------------------------------------------------------
  338. // List the contents of an archive.
  339. //---------------------------------------------------------------------------
  340. function SqxListFiles(Archive: THandle; FileMaskList: THandle;
  341.  ArcFileList: PSqxArcList; var ArchiveInfo: TSqxArcInfo): Integer; stdcall;
  342.  external SQX_DLL_NAME;
  344. //---------------------------------------------------------------------------
  345. // Extracts one or more files from an archive.
  346. //---------------------------------------------------------------------------
  347. function SqxExtractFiles(Archive: THandle; Callback: TSqxCallback;
  348.  Param: Pointer; FileMaskList: THandle;
  349.  var ExtractOptions: TSqxExtractOptions): Integer; stdcall;
  350.  external SQX_DLL_NAME;
  352. //---------------------------------------------------------------------------
  353. implementation
  355. //---------------------------------------------------------------------------
  356. end.