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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > DVD > 查看源码
ISOUnit.pas
资源名称：freeburner.rar　[点击查看]
上传用户：wanyu_2000
上传日期：2021-02-21
资源大小：527k
文件大小：8k
源码类别：

DVD

开发平台：

Delphi

ISOUnit.pas：源码内容
  1. unit ISOUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, ExtCtrls, ComCtrls, StdCtrls, ISOImage, ISO9660ImageTree,
  8.   ImgList,Resources;
  10. type
  11.   TISOForm = class(TForm)
  12.     StatusBar1: TStatusBar;
  13.     MainMenu1: TMainMenu;
  14.     mm_File: TMenuItem;
  15.     sm_File_Open: TMenuItem;
  16.     sm_File_Close: TMenuItem;
  17.     sm_File_Break1: TMenuItem;
  18.     sm_File_Quit: TMenuItem;
  19.     dlg_OpenImage: TOpenDialog;
  20.     SaveDialog1: TSaveDialog;
  21.     sm_File_SaveAs: TMenuItem;
  22.     ImageList1: TImageList;
  23.     Panel1: TPanel;
  24.     mem_DebugOut: TMemo;
  25.     tv_Directory: TTreeView;
  26.     Panel2: TPanel;
  27.     VolIDEdit: TEdit;
  28.     Label1: TLabel;
  29.     PopupMenu1: TPopupMenu;
  30.     CreateDirctory1: TMenuItem;
  31.     N2: TMenuItem;
  32.     DeleteDirectory1: TMenuItem;
  33.     AddFile1: TMenuItem;
  34.     OpenDialog2: TOpenDialog;
  35.     NewISOImage1: TMenuItem;
  36.     N1: TMenuItem;
  37.     SaveDVDImageas1: TMenuItem;
  38.     Procedure ISOStatus(CurrentStatus:String);
  39.     procedure sm_File_QuitClick(Sender: TObject);
  40.     procedure sm_File_OpenClick(Sender: TObject);
  41.     procedure FormCreate(Sender: TObject);
  42.     procedure FormDestroy(Sender: TObject);
  43.     procedure tv_DirectoryDblClick(Sender: TObject);
  44.     procedure sm_File_CloseClick(Sender: TObject);
  45.     procedure tv_DirectoryChange(Sender: TObject; Node: TTreeNode);
  46.     procedure Image1Click(Sender: TObject);
  47.     procedure CheckDirs1Click(Sender: TObject);
  48.     procedure sm_File_SaveAsClick(Sender: TObject);
  49.     procedure CreateDirctory1Click(Sender: TObject);
  50.     procedure AddFile1Click(Sender: TObject);
  51.     procedure DeleteDirectory1Click(Sender: TObject);
  52.     procedure SaveDVDImageas1Click(Sender: TObject);
  53.   private
  54.     TreeObj : TObject;
  56.     FISOImage  : TISOImage;
  58.     Procedure  BuildStructureTree(ATV: TTreeView; RootNode : TTreeNode; ADirEntry : TDirectoryEntry);
  60.   public
  61.     ISOFilename : String;
  62.   end;
  64. var
  65.   ISOForm: TISOForm;
  67. implementation
  69. {$R *.DFM}
  71. procedure TISOForm.ISOStatus(CurrentStatus:String);
  72. begin
  73.    mem_debugout.Lines.Add(CurrentStatus);
  74. end;
  78. procedure TISOForm.sm_File_QuitClick(Sender: TObject);
  79. begin
  80.   Close;
  81. end;
  84. procedure TISOForm.sm_File_OpenClick(Sender: TObject);
  85. Var
  86.   Node : TTreeNode;
  87. begin
  88.   If ( dlg_OpenImage.Execute ) Then
  89.   Begin
  90.     If ( Assigned(FISOImage) ) Then  FreeAndNil(FISOImage);
  92.     mem_DebugOut.Clear;
  93.     tv_Directory.Items.Clear;
  95.     FISOImage := TISOImage.Create;
  96.     Try
  97.       FISOImage.Filename := dlg_OpenImage.FileName;
  98.       FISOImage.OnISOStatus := ISOStatus;
  99.       FISOImage.OpenImage;
  100.       Node := tv_Directory.Items.Add(Nil, FISOImage.Volume_ID+'/');
  101.       Node.Data := fISOImage.Structure.RootDirectory;
  102.       BuildStructureTree(tv_Directory, Node, FISOImage.Structure.RootDirectory);
  104.       sm_File_SaveAs.Enabled := True;
  105.       sm_File_Close.Enabled := True;
  107.     Except
  108.          mem_DebugOut.Lines.Add('Exception: ' + Exception(ExceptObject).ClassName + ' -> ' + Exception(ExceptObject).Message);
  109.       Raise;
  111.     End;
  112.   End;
  113. end;
  117. procedure TISOForm.FormCreate(Sender: TObject);
  118. begin
  119.   fISOImage := Nil;   // not necessary, but safety first...
  120. end;
  123. procedure TISOForm.FormDestroy(Sender: TObject);
  124. begin
  125.   If ( Assigned(fISOImage) ) Then FreeAndNil(fISOImage);
  126. end;
  130. procedure TISOForm.tv_DirectoryDblClick(Sender: TObject);
  131. Var
  132.   Node : TTreeNode;
  133.   Obj  : TObject;
  134. begin
  135.   Node := TTreeView(Sender).Selected;
  137.   If Assigned(Node.Data) Then
  138.   Begin
  139.     Obj := TObject(Node.Data);
  140.     If ( Obj Is TFileEntry ) And ( SaveDialog1.Execute ) Then
  141.       fISOImage.ExtractFile(TFileEntry(Obj), SaveDialog1.FileName);
  142.   End;
  143. end;
  147. Procedure TISOForm.BuildStructureTree(ATV: TTreeView; RootNode : TTreeNode; ADirEntry : TDirectoryEntry);
  148. Var
  149.   i : Integer;
  150.   Node : TTreeNode;
  151.   Dir  : TDirectoryEntry;
  152.   Fil  : TFileEntry;
  153. Begin
  154.   For i:=0 To ADirEntry.DirectoryCount-1 Do
  155.   Begin
  156.     Dir := ADirEntry.Directories[i];
  157.     Node := ATV.Items.AddChild(RootNode, Dir.Name + '/');
  158.     Node.ImageIndex := 1;
  159.     Node.SelectedIndex := 1;
  160.     Node.Data := Pointer(Dir);
  161.     BuildStructureTree(ATV, Node, Dir);
  162.   End;
  164.   For i:=0 To ADirEntry.FileCount-1 Do
  165.   Begin
  166.     Fil := ADirEntry.Files[i];
  167.     Node := ATV.Items.AddChild(RootNode, Fil.Name);
  168.     Node.ImageIndex := 2;
  169.     Node.SelectedIndex := 2;
  170.     Node.Data := Pointer(Fil);
  171.   End;
  172. End;
  176. procedure TISOForm.sm_File_CloseClick(Sender: TObject);
  177. begin
  178.   If ( Assigned(fISOImage) ) Then fISOImage.CloseImage;
  179.   sm_File_Close.Enabled  := False;
  180.   sm_File_SaveAs.Enabled := False;
  181. end;
  185. procedure TISOForm.tv_DirectoryChange(Sender: TObject; Node: TTreeNode);
  187. begin
  188.   If Assigned(Node) Then
  189.   Begin
  190.     TreeObj := TObject(Node.Data);
  191.  End;
  192. end;
  200. procedure TISOForm.Image1Click(Sender: TObject);
  202. var
  203.      DirEntry : TDirectoryEntry;
  204.      FileEntry : TFileEntry;
  206. begin
  207.     If ( Assigned(FISOImage) ) Then FreeAndNil(FISOImage);
  208.     FISOImage := TISOImage.Create;
  209.     FISOImage.OnISOStatus := ISOStatus;
  210.     CheckDirs1Click(nil);
  211. end;
  217. procedure TISOForm.CheckDirs1Click(Sender: TObject);
  218. Var
  219.   Node : TTreeNode;
  220. begin
  221.     tv_Directory.Items.Clear;
  222.     Try
  223.       Node := tv_Directory.Items.Add(Nil, '/');
  224.       Node.ImageIndex := 0;
  225.       Node.Data := FISOImage.Structure.RootDirectory;
  226.       BuildStructureTree(tv_Directory, Node, fISOImage.Structure.RootDirectory);
  227.       tv_Directory.Items[0].Expand(true);
  228.     Except
  229.       mem_DebugOut.Lines.Add('Exception: ' + Exception(ExceptObject).ClassName + ' -> ' + Exception(ExceptObject).Message);
  230.       Raise;
  231.     End;
  232. end;
  238. procedure TISOForm.sm_File_SaveAsClick(Sender: TObject);
  239. begin
  240.     savedialog1.Title := resFileDialogTitle;
  241.     if savedialog1.execute then
  242.     begin
  243.        ISOFilename := savedialog1.filename;
  244.        FISOImage.Filename := ISOFilename;
  245.        FISOImage.Volume_ID := VolIDEdit.text;
  247.        FISOImage.SaveImageToDisk(1);
  248.        ShowMessage(resISOSaved);
  249.     end;
  250. end;
  254. procedure TISOForm.CreateDirctory1Click(Sender: TObject);
  255. var
  256.         DirName : String;
  257.         DirEntry : TDirectoryEntry;
  258. begin
  259.     If Assigned(TreeObj) Then
  260.     Begin
  261.       If ( TreeObj Is TDirectoryEntry ) Then
  262.       Begin
  263.         DirEntry := TDirectoryEntry(TreeObj);
  264.         DirName := InputBox('New Dir : ','Dir : ','');
  265.         if DirName <> '' then
  266.         begin
  267.            DirEntry := TDirectoryEntry.Create(FISOImage.Structure,DirEntry,dsfFromImage);
  268.            DirEntry.Name := DirName;
  269.         end;   
  270.         CheckDirs1Click(nil);
  271.       End;
  272.     End;
  273. end;
  277. procedure TISOForm.AddFile1Click(Sender: TObject);
  278. var
  279.         DirName : String;
  280.         DirEntry : TDirectoryEntry;
  281.         FileEntry : TFileEntry;
  282. begin
  283.     If Assigned(TreeObj) Then
  284.     Begin
  285.       If ( TreeObj Is TDirectoryEntry ) Then
  286.       Begin
  287.         DirEntry := TDirectoryEntry(TreeObj);
  288.         if OpenDialog2.execute then
  289.         begin
  290.            FileEntry := TFileEntry.Create(DirEntry,dsfFromLocal);
  291.            FileEntry.Name := ExtractFilename(Opendialog2.filename);
  292.            FileEntry.SourceFileName := Opendialog2.filename;
  293.         end;
  294.         CheckDirs1Click(nil);
  295.       End;
  296.     End;
  297. end;
  301. procedure TISOForm.DeleteDirectory1Click(Sender: TObject);
  302. var
  303.         DirName : String;
  304.         DirEntry : TDirectoryEntry;
  305. begin
  306.     If Assigned(TreeObj) Then
  307.     Begin
  308.       If ( TreeObj Is TDirectoryEntry ) Then
  309.       Begin
  310.         DirEntry := TDirectoryEntry(TreeObj).Parent;
  311.         DirEntry.DelDirectory(TDirectoryEntry(TreeObj));
  312.         CheckDirs1Click(nil);
  313.       End;
  314.     End;
  315. end;
  317. procedure TISOForm.SaveDVDImageas1Click(Sender: TObject);
  318. begin
  319.     savedialog1.Title := resFileDialogTitle;
  320.     if savedialog1.execute then
  321.     begin
  322.        ISOFilename := savedialog1.filename;
  323.        FISOImage.Filename := ISOFilename;
  324.        FISOImage.Volume_ID := VolIDEdit.text;
  325.        FISOImage.SaveDVDImageToDisk;
  326.        ShowMessage(resISOSaved);
  327.     end;
  328. end;
  330. end.