Category

Development Platform
Home > SourceCode/Document > Multimedia program > DVD > View Code
Unit1.pas
Package: freeburner.rar　[view]
Upload User: wanyu_2000
Upload Date: 2021-02-21
Package Size: 527k
Code Size: 2k
Category:

DVD

Development Platform:

Delphi

Unit1.pas：Code Content
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls,BinCueReader, ComCtrls, ToolWin, ImgList;
  9. type
  10.   TForm1 = class(TForm)
  11.     OpenDialog1: TOpenDialog;
  12.     ListBox1: TListBox;
  13.     ToolBar1: TToolBar;
  14.     ToolButton1: TToolButton;
  15.     ToolButton2: TToolButton;
  16.     ToolButton3: TToolButton;
  17.     ToolButton4: TToolButton;
  18.     ToolButton5: TToolButton;
  19.     ToolButton6: TToolButton;
  20.     ToolButton7: TToolButton;
  21.     ImageList1: TImageList;
  22.     ATIPMemo: TMemo;
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure FormDestroy(Sender: TObject);
  25.     procedure Button1Click(Sender: TObject);
  26.     procedure ToolButton4Click(Sender: TObject);
  27.     procedure ToolButton6Click(Sender: TObject);
  28.     procedure ToolButton7Click(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.     BinReader : TBinCueReader;
  34.     Procedure ResetList;
  35.   end;
  37. var
  38.   Form1: TForm1;
  40. implementation
  42. {$R *.dfm}
  44. procedure TForm1.FormCreate(Sender: TObject);
  45. begin
  46.    BinReader := TBinCueReader.Create;
  47. end;
  49. procedure TForm1.FormDestroy(Sender: TObject);
  50. begin
  51.   BinReader.Destroy;
  52. end;
  55. Procedure TForm1.ResetList;
  56. var
  57.   index : integer;
  58.   trackstr : string;
  59. begin
  60.    ListBox1.Items.Clear;
  61.    for index := 0 to BinReader.BinTrackList.Count -1 do
  62.    begin
  63.       trackstr := 'Track : '+ inttostr(index+1)+'    '+ BinReader.BinTrackList.Tracks[index].ModeDesc +'  '+
  64.       inttostr( BinReader.BinTrackList.Tracks[index].Index[0].LBA) +'  '+ BinReader.BinTrackList.Tracks[index].FileType;
  65.       ListBox1.Items.Add(trackstr);
  66.    end;
  67. end;
  71. procedure TForm1.Button1Click(Sender: TObject);
  72. begin
  73. if opendialog1.execute then
  74.     BinReader.OpenCueFile(opendialog1.FileName);
  75.     ResetList;
  76. end;
  78. procedure TForm1.ToolButton4Click(Sender: TObject);
  79. begin
  80.    ResetList;
  81. end;
  83. procedure TForm1.ToolButton6Click(Sender: TObject);
  84. begin
  85. {CREATE NEW CUE}
  86.    BinReader.SaveATIPCueToFile('C:ATIPCUE.cue');
  87.    ATIPMemo.Lines.LoadFromFile('C:ATIPCUE.cue');
  88. end;
  90. procedure TForm1.ToolButton7Click(Sender: TObject);
  91. begin
  92.   CLOSE;
  93. end;
  95. end.