home *** CD-ROM | disk | FTP | other *** search
Wrap
// ô¥ìçâAü[âJâCâoâRâôâ|ü[âlâôâg for Delphi/C++Builder // Common Archivers Component for Delphi/C++Builder // Copyright(C) NORG1964/M.Yoneda 1997,1998,1999,2000 // // TAR32è╓ÿAâéâWâàü[âï TAR32.PAS // // v1.10:Åëè·î÷èJâoü[âWâçâô // v1.11:èeâNâëâXé╠âüâ\âbâhÉΘî╛é╠îδéΦé≡Æ∙É│ // òsùvò╧Éöé╠ÉΘî╛é≡ìφÅ£ // v1.12:TArchiveFile é╔ Output/OutputSize âvâìâpâeâBé≡Æ╟ë┴ // tgz/zip î`Ä«é╠ê│ÅkâîâxâïâIâvâVâçâô( jm )é≡Ä└æò // tar ïNô«îπé╔Ä⌐ò¬é╔âtâHü[âJâXé≡û▀é╖Åêù¥é≡Æ╟ë┴ // ôαòöâüâ\âbâhé╠Ä└æòé≡Äßè▒ò╧ìX // v1.13:uses É▀é⌐éτòsÄgùpâåâjâbâg Forms é≡èOé╡é╜ü⌐é╚é║é⌐ò£èêé╡é─éóé╜ // ôαòöâüâ\âbâhé╠Ä└æòé≡Äßè▒ò╧ìX // v1.14:TGZ é╠Ä⌐î╚ë≡ôÇî`Ä«ì∞ɼï@ö\âTâ|ü[âgèJÄnü|TAR32.DLL 0.31 ê╚ì~é¬òKùv // BZ2 î`Ä«Åæî╔é╠âTâ|ü[âgèJÄnü|TAR32.DLL 0.40 ê╚ì~é¬òKùv // v1.16:û{ôûé╔Ä⌐î╚ë≡ôÇÅæî╔é≡ì∞ɼé┼é½éΘéµéñé╔é╡é╜ // Ä⌐î╚ë≡ôÇÅæî╔é╠ö╗ÆΦé≡ò╧ìX // v1.17:LoadDll/FreeDll/IsXXXArchive é╠ì\ɼò╧ìX // v1.20:Ä⌐î╚ë≡ôÇÅæî╔ì∞ɼâpâXÄwÆΦï@ö\Æ╟ë┴ // v1.22:îoë▀âCâxâôâgâTâ|ü[âgé≡Æ╟ë┴ // v1.23:CheckArchive âüâ\âbâhé≡Æ╟ë┴ // Äσé╚âüâ\âbâhé╠ëⁿû╝ // v1.25:ZIP32J.DLLé┼é╠û╝æOé╔"["é≡è▄é▐âtâ@âCâïé╓é╠æ╬ë₧ // v1.28:âüâéâèôWèJï@ö\é╠âTâ|ü[âgé≡Æ╟ë┴ // CheckArchive âüâ\âbâhé╠û▀éΦÆlé╠î^é≡ò╧ìX // v1.30:èeâüâ\âbâhé╠ FileList ê°Éöé╠î^é≡ò╧ìX // v1.32:IsSetOwnerWinow/KillOwnerWindow é╠Ä└æòé≡ò╧ìX // v1.35:TTar32.Tar é¬ CmdLine ê°Éöé≡î⌐é─éóé╚é⌐é┴é╜òsï∩ìçé╠ÅCÉ│ // v1.38:DLL é⌐éτé╠âGâôâgâèâ|âCâôâgé╠ĵô╛ò√û@é≡ò╧ìXé╡é╜ // unit TAR32; interface uses Windows,SysUtils,Classes,Archives; const // tar è╓ÿAé╠Åæî╔î`Ä«Äφò╩ ARCHIVETYPE_TAR = 1; // TARî`Ä« ARCHIVETYPE_TARGZ = 2; // GZ(TGZ)î`Ä« ARCHIVETYPE_TARZ = 3; // TAR.Z(TAZ)î`Ä« ARCHIVETYPE_GZ = 4; // GZî`Ä« ARCHIVETYPE_Z = 5; // Zî`Ä« ARCHIVETYPE_TARBZ2 = 6; // TAR.BZ2î`Ä« ARCHIVETYPE_BZ2 = 7; // BZ2î`Ä« type TTar32 = class( TArchiver ) protected class procedure LoadDll; override; class procedure FreeDll; override; protected function BuildCmdLine( Cmd,ArchiveFileName:string;Options:TArchiverOptions;Path:String;FileList:array of const;UseResFile:boolean ):String; function FindOpen ( Handle:HWND;ArchiveFileName:string;dwMode:DWORD ):THARC; override; function FindFirst( hArc:THArc;var IndivisualInfo:TIndivisualInfo;FileMask:string ):integer; override; function FindNext ( hArc:THArc;var IndivisualInfo:TIndivisualInfo ):integer; override; function FindClose( hArc:THArc ):integer; override; public function tar( Handle:HWND;CmdLine:string;var Output:string ):integer; function UnpackFiles ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; override; function PackFiles ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; override; // function RemoveItems ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; override; function MakeSfx ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String ;var Output:string ):Integer; override; function UnpackToMem ( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;FileName:string;lpvBuffer:LPVOID;dwSize:DWORD;lpdwWriteSize:LPDWORD ):Integer; override; function CheckArchive ( ArchiveFileName:string;CheckMode:integer;CheckOptions:integer ):DWORD; override; function SetOwnerWindowEx ( Handle:HWND;lpArcProc:LPARCHIVERPROC ):boolean; override; function KillOwnerWindowEx( Handle:HWND ):boolean; override; end; TTgz32 = class( TTar32 ) end; TBZ232 = class( TTar32 ) end; function IsTarArchive( ArchiveFileName:string ):TArchiverType; implementation uses Filters; //--------------------------------------------------------------------- var FArchiver: TArchiverDLL; procedure LoadDll; begin if Assigned( FArchiver ) then exit; FArchiver := TArchiverDll.Create( 'tar/tgz/taz/bz2 î`Ä«Åæî╔','TAR32.DLL','Tar' ); FArchiver.LoadDLL; end; procedure FreeDll; begin FArchiver.Free; FArchiver := nil; end; //--------------------------------------------------------------------- class procedure TTar32.LoadDll; begin Tar32.LoadDll; end; class procedure TTar32.FreeDll; begin Tar32.FreeDll; end; function TTar32.UnpackFiles( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; begin FCmdLine := BuildCmdLine( 'x',ArchiveFileName,Options,DstPath,FileList,ruOnUnpack in Options.ResFileUsage ); result := Tar( Handle,FCmdLine,Output ); end; function TTar32.PackFiles( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; begin FCmdLine := BuildCmdLine( 'c',ArchiveFileName,Options,BaseDir,FileList,ruOnPack in Options.ResFileUsage ); result := Tar( Handle,FCmdLine,Output ); end; // function TTar32.RemoveItem( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;BaseDir:String;FileList:array of const;UseResFile:boolean;var Output:string ):Integer; // begin // end; function TTar32.MakeSfx( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;DstPath:String;var Output:string ):Integer; var SfxName: string; SfxHead: TFileStream; SfxFile: TFileStream; ArcFile: TFileStream; P: PAnsiChar; TarSef: array[0..511] of char; begin if Self is TBZ232 then raise EArchiver.Create( 'BZ2 î`Ä«Åæî╔é═Ä⌐î╚ë≡ôÇî`Ä«é╔é┼é½é▄é╣é±üB' ); P := nil; if SearchPath( nil,'kmtarsef.exe',nil,SizeOf( TarSef ),TarSef,P ) = 0 then raise EArchiver.Create( 'tar/tgz Åæî╔é⌐éτé╠Ä⌐î╚ë≡ôÇÅæî╔é╠ì∞ɼé╔é═ kmtarsef.exe é¬òKùvé┼é╖üB' ); SfxName := ChangeFileExt( ArchiveFileName,'.EXE' ); if DstPath <> '' then begin SfxName := ExtractFileName( SfxName ); SfxName := MakeFileName( DstPath,SfxName ); end; ArcFile := TFileStream.Create( ArchiveFileName ,fmOpenRead+fmShareDenyWrite ); SfxFile := TFileStream.Create( SfxName ,fmCreate ); SfxHead := TFileStream.Create( TarSef ,fmOpenRead+fmShareDenyWrite ); try SfxFile.CopyFrom( SfxHead,0 ); SfxFile.CopyFrom( ArcFile,0 ); finally ArcFile.Free; SfxFile.Free; SfxHead.Free; end; Result := 0; end; function TTar32.UnpackToMem( Handle:HWND;ArchiveFileName:string;Options:TArchiverOptions;FileName:string;lpvBuffer:LPVOID;dwSize:DWORD;lpdwWriteSize:LPDWORD ):Integer; begin FCmdLine := BuildCmdLine( '',ArchiveFileName,Options,'',[FileName],false ); result := FArchiver.ExtractMem( Handle,PChar( FCmdLine ),lpvBuffer,dwSize,nil,nil,lpdwWriteSize ); end; function TTar32.CheckArchive( ArchiveFileName:string;CheckMode:integer;CheckOptions:integer ):DWORD; begin result := FArchiver.CheckArchive( PChar( ArchiveFileName ),CheckMode+CheckOptions ); end; function TTar32.Tar( Handle:HWND;CmdLine:string;var Output:string ):integer; begin result := FArchiver.ArchiverProc( Handle,PChar( CmdLine ),PAnsiChar( Output ),Length( Output )); end; function TTar32.BuildCmdLine( Cmd,ArchiveFileName:string;Options:TArchiverOptions;Path:String;FileList:array of const;UseResFile:boolean ):String; var CmdLine: TCmdOpt; begin with Options do begin CmdLine := TCmdOpt.Create; CmdLine.Format := cfOuter; // CmdLine.Add( '-+' ); // Åφé╔âîâWâXâgâèé╠É▌ÆΦé≡û│Äïé╖éΘ if a > 0 then CmdLine.Add( '-AH' ); // a[0|1|2] æ«É½é╠ì─î╗üB if a = 0 then CmdLine.Add( '-I' ); // a[0|1|2] æ«É½é╠ì─î╗üB // CmdLine.AddIntOpt( 'c' ,c ); // c[0|1] â^âCâÇâXâ^âôâvîƒì╕é≡Å╚ù¬ // CmdLine.AddIntOpt( 'd' ,d ); // d[0|1] âfâBâîâNâgâèû╝é╠èiö[ // CmdLine.AddIntOpt( 'e' ,e ); // e[0|1] ĽÅæâTâCâYé≡ö╝ò¬é╔é╡é─ê│Åk // CmdLine.AddIntOpt( 'f' ,f ); // f[0|1] âfâBâXâNÄcù╩â`âFâbâNé╠ÆåÄ~ // CmdLine.AddIntOpt( 'h' ,h ); // h[0|1|2|3] âwâbâ_é╠î`Ä«é≡ÄwÆΦ // CmdLine.AddIntOpt( 'i' ,i ); // i[0|1|2] âtâ@âCâïæIæ≡é┼æσò╢ÄÜé╞żò╢ÄÜé≡ïµò╩ // CmdLine.AddIntOpt( 'l' ,l ); // l[0|1|2] ôWèJâìâOé╠âtâ@âCâïû╝é╠ò\Īû@é╠ò╧ìX // CmdLine.AddIntOpt( 'm' ,m ); // m[0|1|2] Ä┐ûΓé╔ yes é╞ë╝ÆΦ if not CallbackEnabled then begin // n[0|1] ôWèJÅ≤ï╡â_âCâAâìâOò\Īé╠ù}Ä~ if n > 0 then CmdLine.Add( '--display-dialog=0' ); end; if o > 0 then CmdLine.Add( '-g' ) ; // o[0|1|2] ïîî`Ä«é┼Åæî╔é≡ì∞ɼ // ### TAR î`Ä«é┼é═ ïîî`Ä«é╞é╡é─ POSIX î▌è╖é╞é╖éΘ ### CmdLine.AddIntOpt( '-check-all-path=',p ); // p[0|1|2] æSâpâXû╝é┼ìçÆv // CmdLine.AddIntOpt( 'r' ,r ); // r[0|1|2] ì─ïAôIîƒì⌡ // CmdLine.AddIntOpt( 's' ,s ); // s[0|1] âXâLâbâvò\Īé╠ù}ɺ // CmdLine.AddIntOpt( 't' ,t ); // t[0|1] Åæî╔é╠ìXÉVô·Ä₧é╠ÄwÆΦ // CmdLine.AddIntOpt( 'u' ,u ); // u[0|1] âtâ@âCâïé╠ìXÉVüiÉVé╡éóéαé╠üj // CmdLine.AddPathName( 'w' ,w ); // w[0|1|<Dirû╝>] ì∞ï╞ùpâfâBâîâNâgâèé╠ÄwÆΦ CmdLine.AddIntOpt( '-use-directory=',x ); // x[0|1] âfâBâîâNâgâèû╝é≡ùLî°é╔é╖éΘ // CmdLine.AddIntOpt( 'y' ,y ); // y[0|1] æSé─é╠Ä┐ûΓé╔ yes é╞ë╝ÆΦ // CmdLine.AddIntOpt( 'z' ,z ); // z[0|1|2|<ègÆúÄq>] ûóê│Åkâtâ@âCâïé╠ÄwÆΦ ###ègÆúÄqé═âTâ|ü[âgé╡é╚éó### // CmdLine.AddIntOpt( 'jc' ,jc ); // jc[0|1] öjæ╣âwâbâ_é≡û│Äï // CmdLine.AddIntOpt( 'jd' ,jd ); // jd[<âTâCâY>] âfâBâXâNé╠ï≤é½ùeù╩é≡èmöF // CmdLine.AddIntOpt( 'je' ,je ); // je[<âTâCâY>] Huffman âoâbâtâ@é╠æσé½é│é≡ÄwÆΦ // CmdLine.AddIntOpt( 'jf' ,jf ); // jf[0|1] âïü[âgïLìåé╠ìφÅ£ // CmdLine.AddIntOpt( 'jh' ,jh ); // jh[0|1] WindowsNT/95 ÉΩùpé╠â}ü[âNé≡Åæî╔é╔òtë┴ // CmdLine.AddIntOpt( 'ji' ,ji ); // ji[0|1] ÆZéóâtâ@âCâïû╝é┼èiö[ // CmdLine.AddIntOpt( 'jm' ,jm ); // jm[0|1|2|3|4] ê│Åkî`Ä«é≡ÄwÆΦ if Self is TTgz32 then begin if jm < 1 then CmdLine.Add( '-z' ) // è∙ÆΦÆlé≡ÄwÆΦ else CmdLine.AddIntOpt( 'z',jm ); // âîâxâïé≡û╛ĪÄwÆΦé╖éΘ end; if Self is TBZ232 then begin if jm < 1 then CmdLine.Add( '-B' ) // è∙ÆΦÆlé≡ÄwÆΦ else CmdLine.AddIntOpt( 'B',jm ); // âîâxâïé≡û╛ĪÄwÆΦé╖éΘ end; // CmdLine.AddIntOpt( 'jn' ,jn ); // jn[0|1] ÉVïKâtâ@âCâïé╠é▌ // CmdLine.AddStrOpt( 'jo' ,jo ); // jo[<Ä₧ìÅÄwÆΦ>] YYMMDDHHMMSS é╠ô·òtê╚ì~ // CmdLine.AddStrOpt( 'job',job ); // job[<Ä₧ìÅÄwÆΦ>] YYMMDDHHMMSS é╠ô·òtê╚æO // CmdLine.AddIntOpt( 'jp' ,jp ); // jp[0|1] ÉiÆ╗âoü[é≡âvâìâOâîâXüEâoü[é┼ò\Ī // CmdLine.AddIntOpt( 'jr' ,jr ); // jr[0|1] âtâ@âCâïé╠Æué½è╖éª // CmdLine.AddIntOpt( 'jss',jss ); // jss[0|1] ê│Åkâtâ@âCâïâIü[âvâôâGâëü[é≡û│ÄïüBÆ╩ÅφüCê│ÅkÄ₧é╔ê│Åkæ╬Å█âtâ@ // CmdLine.AddIntOpt( 'jw' ,jw ); // jw[0|1|2|3|4] WinSFX/WinSFXM é≡ì∞ɼ // CmdLine.AddLstOpt( 'jx' ,jx ); // jx[<âtâ@âCâïû╝>] Å£èOé╖éΘâtâ@âCâïû╝ // CmdLine.AddIntOpt( 'jyc',jyc ); // jyc[0|1] âfâBâîâNâgâèì∞ɼé╠èmöFé≡Å╚ù¬ // CmdLine.AddIntOpt( 'jyd',jyd ); // jyd[0|1] âtâ@âCâïìφÅ£é╠èmöFé≡Å╚ù¬ // CmdLine.AddIntOpt( 'jyk',jyk ); // jyk[0|1] Ägùpé┼é½éΘâfâBâXâNùeù╩é╠èmöFé╠Å╚ù¬ // CmdLine.AddIntOpt( 'jyn',jyn ); // jyn[0|1] ÉVâtâ@âCâïû╝é╠ùvïüé╠Å╚ù¬ // CmdLine.AddIntOpt( 'jyo',jyo ); // jyo[0|1] è∙æ╢âtâ@âCâïé╓é╠ÅπÅæé½èmöFé╠Å╚ù¬ // CmdLine.AddStrOpt( 'jz' ,jz ); // jz[<âtâ@âCâïû╝>] âtâ@âCâïÆìÄ▀é╠âtâ@âCâïé≡ïƒïï // CmdLine.AddIntOpt( 'ga' ,ga ); // ga[0|1] Åæé½ì₧é▌òsë┬æ«É½é≡û│Äï // CmdLine.AddIntOpt( 'gd' ,gd ); // gd[0|1] ù]ò¬é╚âfü[â^é╠ìφÅ£ // CmdLine.AddIntOpt( 'ge' ,ge ); // ge[0|1] ì┼Åëé╠ègÆúÄqé≡öFÄ» // CmdLine.AddIntOpt( 'gf' ,gf ); // gf[0|1|2] é╖é┼é╔éáéΘâtâ@âCâïé╠ìXÉV // CmdLine.AddIntOpt( 'gj' ,gj ); // gj[0|1] x û╜ù▀é≡ e û╜ù▀é╞ô»ùlé╞î⌐é╚é╖ // CmdLine.AddIntOpt( 'gm' ,gm ); // gm[0|1] âGâëü[âüâbâZü[âWò\Īé╠ù}Ä~ // CmdLine.AddIntOpt( 'gn' ,gn ); // gn[0|1|2] ôWèJâtâ@âCâïé╠ìçîvâTâCâYé≡ 100% é╞é╡é╜ÉiÆ╗âOâëâté╠ò\Ī // CmdLine.AddIntOpt( 'go' ,go ); // go[0|1] â_âCâAâìâOé╠âIü[âiü[âEâBâôâhâEé╠ÄwÆΦ // CmdLine.AddIntOpt( 'gp' ,gp ); // gp[0|1] âEâBâôâhâEé≡ Disable é╔é╡é╚éó // CmdLine.AddIntOpt( 'gr' ,gr ); // gr[<âtâ@âCâïû╝>] ò╧ìXâtâ@âCâïû╝é≡ïƒïï // CmdLine.AddIntOpt( 'gs' ,gs ); // gs[<âTâCâY>] âwâbâ_îƒì⌡âTâCâYé╠ÄwÆΦ // CmdLine.AddIntOpt( 'gu' ,gu ); // gu[0|1] WinSFXüCDosSFX é╔æSé─é╠âtâ@âCâïé≡èiö[ // CmdLine.AddIntOpt( 'gw' ,gw ); // gw[0|1|2|3|4] WinSFX32/WinSFX32M é≡ì∞ɼ CmdLine.Add( UserOptions ); if ArchiveFileName <> '' then begin CmdLine.AddFName1( 'f',ArchiveFileName ); end; if Path <> '' then begin CmdLine.AddPath1( 'o',Path ); end; AddFileSpec2( CmdLine,Options,FileList,UseResFile ); result := Cmd + CmdLine.Str; CmdLine.Free; end; end; function TTar32.FindOpen( Handle:HWND;ArchiveFileName:string;dwMode:DWORD ):THARC; begin result:= FArchiver.OpenArchive( Handle,PChar( ExpandFileName( ArchiveFileName )),dwMode ); end; function TTar32.FindClose( hArc:THArc ):integer; begin result := FArchiver.CloseArchive( hArc ); end; function TTar32.FindFirst( hArc:THArc;var IndivisualInfo:TIndivisualInfo;FileMask:string ):integer; begin result := FArchiver.FindFirst( hArc,PChar( FileMask ),@IndivisualInfo ); end; function TTar32.FindNext( hArc:THArc;var IndivisualInfo:TIndivisualInfo ):integer; begin result := FArchiver.FindNext( hArc,@IndivisualInfo ) end; function TTar32.SetOwnerWindowEx( Handle:HWND;lpArcProc:LPARCHIVERPROC ):boolean; begin inherited SetOwnerWindowEx( Handle,lpArcProc ); result := FArchiver.SetOwnerWindowEx( Handle,lpArcProc ); end; function TTar32.KillOwnerWindowEx( Handle:HWND ):boolean; begin result := FArchiver.KillOwnerWindowEx( Handle ); inherited KillOwnerWindowEx( Handle ); end; { function IsTarArchive( ArchiveFileName:string ):boolean; var hArc: THARC; IndivisualInfo: TIndivisualInfo; begin result := false; try hArc := FArchiver.OpenArchive( 0,PAnsiChar( ExpandFileName( ArchiveFileName )),M_REGARDLESS_INIT_FILE+M_ERROR_MESSAGE_OFF ); if hArc <> 0 then begin result := FArchiver.FindFirst( hArc,'*.*',@IndivisualInfo )=0; FArchiver.CloseArchive( hArc ); end; except result := false; end; end; } function IsTarArchive( ArchiveFileName:string ):TArchiverType; var ArchiverType: integer; begin try LoadDLL; ArchiverType := FArchiver.GetArchiveType( PAnsiChar( ArchiveFileName )); case ArchiverType of // ö±ê│Åké╠î`Ä« ARCHIVETYPE_TAR: // TARî`Ä« result := atTar; // ê│Åké│éΩé╜î`Ä« ( BZ2LIB.DLLüFòsùv ) ARCHIVETYPE_TARGZ, // GZ(TGZ)î`Ä« ARCHIVETYPE_TARZ, // TAR.Z(TAZ)î`Ä« ARCHIVETYPE_GZ, // GZî`Ä« ARCHIVETYPE_Z: // Zî`Ä« result := atTGZ; // ê│Åké│éΩé╜î`Ä« ( BZ2LIB.DLLüFòKùv ) ARCHIVETYPE_TARBZ2, // TAR.BZ2î`Ä« ARCHIVETYPE_BZ2: // BZ2î`Ä« result := atBZ2; // î`Ä«òsû╛ else result := atNone; end; except result := atNone; end; end; end.