rar_dll.pas

支持版本:Delphi 5-2009, C++Builder 5-2009 ATViewer特性： Text, Binary, Hex, Unicode：所有文件

//  written by Philippe Wechsler 2008
//
//  web: www.PhilippeWechsler.ch
//  mail: [e-mail]
//
//  please see license.txt and documentation.txt
//
//  changes in 1.2 stable
//   - support for delphi 2009
//   - support for unicode filenames (see TRARFileItem.FileNameW)
//   - dll name + path is custom
//   - fixed a memory leak (thanks to Claes Ensk鋜)
//   - some small improvements in the demo
//  changes in 1.1 stable
//   - fixed problem with mySelf pointer - you can use now multiple TRAR instances
//   - "SFX" in archive informations
//   - code better commented
//   - bugfixing in reading multivolumes
//
//  known bugs:
//   - when extracting files that contains unicode characters there's no test if
//     the file exists allready
//   - open archives that contains unicode characters in the archive name fails

unit RAR_DLL;

interface

uses
  Windows,SysUtils;

const
  RAR_METHOD_STORE=48;
  RAR_METHOD_FASTEST=49;
  RAR_METHOD_FAST=50;
  RAR_METHOD_NORMAL=51;
  RAR_METHOD_GOOD=52;
  RAR_METHOD_BEST=53;

  RAR_SUCCESS=0;
  ERAR_COMMENTS_EXISTS=1;
  ERAR_NO_COMMENTS=0;
  ERAR_DLL_LOAD_ERROR=99;
  ERAR_END_ARCHIVE=10;
  ERAR_NO_MEMORY=11;
  ERAR_BAD_DATA=12;
  ERAR_BAD_ARCHIVE=13;
  ERAR_UNKNOWN_FORMAT=14;
  ERAR_EOPEN=15;
  ERAR_ECREATE=16;
  ERAR_ECLOSE=17;
  ERAR_EREAD=18;
  ERAR_EWRITE=19;
  ERAR_SMALL_BUF=20;
  ERAR_UNKNOWN=21;

  RAR_OM_LIST=0;
  RAR_OM_EXTRACT=1;
  RAR_OM_LIST_INCSPLIT=2;
  RAR_SKIP=0;
  RAR_TEST=1;
  RAR_EXTRACT=2;
  RAR_VOL_ASK=0;
  RAR_VOL_NOTIFY=1;
  RAR_DLL_VERSION=3;

  UCM_CHANGEVOLUME=0;
  UCM_PROCESSDATA=1;
  UCM_NEEDPASSWORD=2;

  MAX_RAR_COMMENTSIZE=65536;
  MIN_RAR_VERSION=4;

type
  TProcessDataProc=function(Addr: PByte; Size: integer): integer; stdcall;
  TChangeVolProc=function(ArcName: PAnsiChar; Mode: integer): integer; stdcall;
  TUnRarCallBack =function(msg: Cardinal; UserData, P1, P2: longint): integer; stdcall;

  TRARArchiveData = record
    ArcName:PAnsiChar;
    OpenMode:cardinal;
    OpenResult:cardinal;
    CmtBuf:PAnsiChar;
    CmtBufSize:cardinal;
    CmtSize:cardinal;
    CmtState:cardinal;
  end;
  PRARArchiveData=^TRARArchiveData;

  TRARArchiveDataEx = record
    ArcName:PAnsiChar;
    ArcNameW:PWideChar;
    OpenMode:cardinal;
    OpenResult:cardinal;
    CmtBuf:PAnsiChar;
    CmtBufSize:cardinal;
    CmtSize:cardinal;
    CmtState:cardinal;
    Flags:cardinal;
    Reserved:array[1..32] of cardinal;
  end;
  PRARArchiveDataEx = ^TRARArchiveDataEx;

  TRARHeaderData = record
    ArcName: array[0..259] of AnsiChar;
    FileName: array[0..259] of AnsiChar;
    Flags:cardinal;
    PackSize:cardinal;
    UnpSize:cardinal;
    HostOS:cardinal;
    FileCRC:cardinal;
    FileTime:cardinal;
    UnpVer:cardinal;
    Method:cardinal;
    FileAttr:cardinal;
    CmtBuf:PAnsiChar;
    CmtBufSize:cardinal;
    CmtSize:cardinal;
    CmtState:cardinal;
  end;
  PRARHeaderData=^TRARHeaderData;

  //for UniCode FileNames and 64-Bit Sizes
  TRARHeaderDataEx = record
    ArcName:array[0..1023] of AnsiChar;
    ArcNameW:array[0..1023] of WideChar;
    FileName:array[0..1023] of AnsiChar;
    FileNameW:array[0..1023] of WideChar;
    Flags:cardinal;
    PackSize:cardinal;
    PackSizeHigh:cardinal;
    UnpSize:cardinal;
    UnpSizeHigh:cardinal;
    HostOS:cardinal;
    FileCRC:cardinal;
    FileTime:cardinal;
    UnpVer:cardinal;
    Method:cardinal;
    FileAttr:cardinal;
    CmtBuf:PAnsiChar;
    CmtBufSize:cardinal;
    CmtSize:cardinal;
    CmtState:cardinal;
    Reserved:array[1..1024] of cardinal;
  end;
  PRARHeaderDataEx=^TRARHeaderDataEx;

var
  DllLoaded:boolean=false;
  RAROpenArchive:function(ArchiveData: PRARArchiveData): THandle; stdcall;
  RAROpenArchiveEx:function(ArchiveData: PRARArchiveDataEx): THandle; stdcall;
  RARCloseArchive:function(hArcData: THandle): integer; stdcall;
  RARReadHeader:function(hArcData: THandle; HeaderData: PRARHeaderData): Integer; stdcall;
  RARReadHeaderEx:function(hArcData: THandle; HeaderData: PRARHeaderDataEx): Integer; stdcall;
  RARProcessFile:function(hArcData: THandle; Operation: Integer; DestPath, DestName: PAnsiChar): Integer; stdcall;
  RARSetCallback:procedure(hArcData: THandle; Callback: TUnRarCallback; UserData: longint); stdcall;
  RARSetChangeVolProc:procedure(hArcData: THandle; ChangeVolProc: TChangeVolProc); stdcall;
  RARSetProcessDataProc:procedure(hArcData: THandle; ProcessDataProc: TProcessDataProc); stdcall;
  RARSetPassword:procedure(hArcData: THandle; Password: PAnsiChar); stdcall;
  RARGetDllVersion:function:Integer; stdcall;

function GetFileModifyDate(const FileName:string):TDateTime;
function GetFileSize(const S:string):Int64;
function isSFX(const FileName:String):boolean;

implementation

function GetFileModifyDate(const FileName:string):TDateTime;
var
  h:THandle;
  Struct:TOFSTRUCT;
  lastwrite:Integer;
begin
  Result:=0;
  h:=OpenFile(PAnsiChar(FileName), Struct, OF_SHARE_DENY_NONE);
  try
    if h<>HFILE_ERROR then
    begin
      lastwrite:=FileGetDate(h);
      Result:=FileDateToDateTime(lastwrite);
    end;
  finally
    CloseHandle(h);
  end;
end;

function GetFileSize(const S:string):Int64;
var
  lFindData:TWin32FindDataA;
  lHandle:Cardinal;
begin
  lHandle:=FindFirstFileA(PAnsiChar(S), lFindData);
  if (lHandle<>INVALID_HANDLE_VALUE) then
  begin
    result:=lFindData.nFileSizeLow;
    PCardinal(Cardinal(@result)+SizeOf(Cardinal))^:=lFindData.nFileSizeHigh;
    windows.FindClose(lHandle);
  end
  else
    result:=0;
end;

function isSFX(const FileName:String):boolean;
var
  BinaryType:DWord;
begin
  if GetBinaryTypeA(PAnsiChar(FileName), BinaryType) then begin
    if (BinaryType=SCS_32BIT_BINARY) or
      (BinaryType=SCS_DOS_BINARY) or
      (BinaryType=SCS_WOW_BINARY) or
      (BinaryType=SCS_PIF_BINARY) or
      (BinaryType=SCS_POSIX_BINARY) or
      (BinaryType=SCS_OS216_BINARY)
     then
      Result:=True
     else
      Result:=False;
  end else
    Result:=False;
end;

end.