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

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

DVD

开发平台：

Delphi

Unit1.pas：源码内容
  1. {-----------------------------------------------------------------------------
  2.  Unit Name: Unit1
  3.  Author:    Dancemammal
  4.  Purpose:   Test Application to test functions
  5.  History:   First Code Release
  6. -----------------------------------------------------------------------------}
  9. unit Unit1;
  11. interface
  13. uses
  14.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  15.   Dialogs, Devices, SCSITypes, CovertFuncs, StdCtrls, ComCtrls, CDSizer,
  16.   Menus, ExtCtrls, ToolWin, scsidefs, BurnUnit, AudioImage, BinCueImage, FileImage, WaveUtils, ImgList;
  18. type
  19.   TBurnerForm = class(TForm)
  20.     Button1: TButton;
  21.     PageControl1: TPageControl;
  22.     TabSheet6: TTabSheet;
  23.     ReadTocListView: TListView;
  24.     ToolBar1: TToolBar;
  25.     ToolButton1: TToolButton;
  26.     ToolButton2: TToolButton;
  27.     ToolButton3: TToolButton;
  28.     ToolButton4: TToolButton;
  29.     ToolButton5: TToolButton;
  30.     Panel1: TPanel;
  31.     CDSize1: TCDSize;
  32.     MainMenu1: TMainMenu;
  33.     File1: TMenuItem;
  34.     Options1: TMenuItem;
  35.     Functions1: TMenuItem;
  36.     CDCapabilities1: TMenuItem;
  37.     ShowWriterParameters1: TMenuItem;
  38.     SaveCDToISOImage1: TMenuItem;
  39.     N1: TMenuItem;
  40.     BurnISOToCD1: TMenuItem;
  41.     BurnWaveFileToCD1: TMenuItem;
  42.     N2: TMenuItem;
  43.     FormatCD1: TMenuItem;
  44.     BlankCD1: TMenuItem;
  45.     StatusBar2: TStatusBar;
  46.     SaveDialog1: TSaveDialog;
  47.     OpenDialog1: TOpenDialog;
  48.     ViewTOC1: TMenuItem;
  49.     ImageList1: TImageList;
  50.     ToolButton7: TToolButton;
  51.     ISOFunctions1: TMenuItem;
  52.     CreateISO9660File1: TMenuItem;
  53.     ShowReadWriteSpeeds1: TMenuItem;
  54.     GetCDDVDStructure1: TMenuItem;
  55.     GetBufferBits1: TMenuItem;
  56.     N4: TMenuItem;
  57.     N5: TMenuItem;
  58.     ToolButton8: TToolButton;
  59.     ToolBar2: TToolBar;
  60.     DriveCombo: TComboBox;
  61.     Label1: TLabel;
  62.     ToolButton9: TToolButton;
  63.     AddTrackToTrackList1: TMenuItem;
  64.     ToolButton6: TToolButton;
  65.     TabSheet1: TTabSheet;
  66.     TrackListBox: TListBox;
  67.     CreateACUEFile1: TMenuItem;
  68.     GetCDTEXT1: TMenuItem;
  69.     GetCDDBIDFromAudioCD1: TMenuItem;
  70.     AudioFunctions1: TMenuItem;
  71.     AddTracktoList1: TMenuItem;
  72.     ArtistPanel: TPanel;
  73.     N3: TMenuItem;
  74.     BurnTracksToAudioCD1: TMenuItem;
  75.     ToolButton10: TToolButton;
  76.     ToolButton11: TToolButton;
  77.     N6: TMenuItem;
  78.     BurnDAOCueFile1: TMenuItem;
  79.     ToolButton12: TToolButton;
  80.     Procedure CDChanged(Sender: TObject);
  81.     Procedure CDRemoved(Sender: TObject);
  82.     procedure FormCreate(Sender: TObject);
  83.     procedure FormDestroy(Sender: TObject);
  84.     procedure CDCapabilities1Click(Sender: TObject);
  85.     procedure ShowWriterParameters1Click(Sender: TObject);
  86.     procedure SaveCDToISOImage1Click(Sender: TObject);
  87.     procedure ViewTOC1Click(Sender: TObject);
  88.     procedure BurnWaveFileToCD1Click(Sender: TObject);
  89.     procedure BurnISOToCD1Click(Sender: TObject);
  90.     procedure CDSize1OverBurn(Sender: TObject);
  91.     procedure BlankCD1Click(Sender: TObject);
  92.     procedure ShowReadWriteSpeeds1Click(Sender: TObject);
  93.     procedure GetCDDVDStructure1Click(Sender: TObject);
  94.     procedure GetBufferBits1Click(Sender: TObject);
  95.     procedure CreateACUEFile1Click(Sender: TObject);
  96.     procedure GetCDTEXT1Click(Sender: TObject);
  97.     procedure GetCDDBIDFromAudioCD1Click(Sender: TObject);
  98.     procedure AddTracktoList1Click(Sender: TObject);
  99.     procedure AddTrackToTrackList1Click(Sender: TObject);
  100.     procedure CreateISO9660File1Click(Sender: TObject);
  101.     procedure ToolButton11Click(Sender: TObject);
  102.     procedure ToolButton12Click(Sender: TObject);
  103.   private
  104.     { Private declarations }
  105.     Procedure ShowLastError;
  106.     Procedure RefreshTrackList;
  107.     function GetCapabilityText: string;  //to take out ???
  108.   public
  109.     { Public declarations }
  110.     CDBurnerList : TDevices;
  111.     AudioImage : TAudioImage;
  112.     CurrentISOFilename,CurrentCUEFilename :String;
  113.   end;
  115. var
  116.   BurnerForm: TBurnerForm;
  118. implementation
  120. uses ISOUnit, Unit2;
  122. {$R *.dfm}
  126. Procedure TBurnerForm.CDChanged(Sender: TObject);
  127. begin
  128.     ReadTocListView.Items.Clear;
  129.     TrackListBox.Items.Clear;
  130.     if CDBurnerList.Items[DriveCombo.ItemIndex].DiscInfo.IsAudioDisk = True then
  131.         GetCDDBIDFromAudioCD1Click(nil)
  132.           else
  133.             ViewTOC1Click(nil);
  134. end;
  137. Procedure TBurnerForm.CDRemoved(Sender: TObject);
  138. begin
  139.     ReadTocListView.Items.Clear;
  140.     TrackListBox.Items.Clear;
  141. end;
  144. procedure TBurnerForm.FormCreate(Sender: TObject);
  145. var
  146.      Index : Integer;
  147. begin
  148.     CDBurnerList := TDevices.create;
  149.    for Index := 0 to CDBurnerList.Count -1 do
  150.    begin
  151.        DriveCombo.Items.Add(CDBurnerList.Items[Index].DeviceInfo.VendorName);
  152.        CDBurnerList.Items[Index].OnDriveDiskInsert := CDChanged;
  153.        CDBurnerList.Items[Index].OnDriveDiskRemove := CDRemoved;
  154.    end;
  155.    DriveCombo.ItemIndex := 0;
  156.    AudioImage := TAudioImage.Create;
  157. end;
  161. procedure TBurnerForm.FormDestroy(Sender: TObject);
  162. begin
  163.    AudioImage.Free;
  164.    CDBurnerList.Free;
  165. end;
  169. procedure TBurnerForm.CDCapabilities1Click(Sender: TObject);
  170. var
  171.     CapString : String;
  172. begin
  173.     CapString := GetCapabilityText;
  174.     Showmessage(CapString);
  175. end;
  178. function TBurnerForm.GetCapabilityText: string;
  179. var
  180.   Strings: Tstringlist;
  181.   CDROMCap: TCdRomCapabilities;
  182. begin
  183.   CDROMCap := CDBurnerList.Items[DriveCombo.ItemIndex].Capability;
  184.   Strings := Tstringlist.create;
  185.   try
  186.     Strings.Add('-- Device Reading Methods --');
  187.     if cdcReadCDR in CDROMCap then
  188.       Strings.Add('    Read CD-R media');
  189.     if cdcReadCDRW in CDROMCap then
  190.       Strings.Add('    Read CD-RW media');
  191.     if cdcReadMethod2 in CDROMCap then
  192.       Strings.Add('    Read CD-R written using fixed packets');
  193.     if cdcReadDVD in CDROMCap then
  194.       Strings.Add('    Read DVD-ROM media');
  195.     if cdcReadDVDR in CDROMCap then
  196.       Strings.Add('    Read DVD-R / DVD-RW media');
  197.     if cdcReadDVDRAM in CDROMCap then
  198.       Strings.Add('    Read DVD-RAM media');
  199.     Strings.Add('-- Device Writing Methods --');
  200.     if cdcWriteCDR in CDROMCap then
  201.       Strings.Add('    Write CD-R media');
  202.     if cdcWriteCDRW in CDROMCap then
  203.       Strings.Add('    Write CD-RW media');
  204.     if cdcWriteDVDR in CDROMCap then
  205.       Strings.Add('    Write DVD-R / DVD-RW media');
  206.     if cdcWriteDVDRAM in CDROMCap then
  207.       Strings.Add('    Write DVD-RAM media');
  208.     Strings.Add('-- Device Writing Extended Functions --');
  209.     if cdcWriteTestMode in CDROMCap then
  210.       Strings.Add('    Write in test mode');
  211.     if cdcWriteBurnProof in CDROMCap then
  212.       Strings.Add('    Can Use Burn Proof');
  213.     Strings.Add('-- Device Extended Methods --');
  214.     if cdcReadMode2form1 in CDROMCap then
  215.       Strings.Add('        Capable to read Mode 2 Form 1 (CD-XA format)');
  216.     if cdcReadMode2form2 in CDROMCap then
  217.       Strings.Add('        Capable to read Mode 2 Form 2 (CD-XA format)');
  218.     if cdcReadMultisession in CDROMCap then
  219.       Strings.Add('        Capable to read PhotoCD format (multiple sessions)');
  220.     if cdcCddaBarCode in CDROMCap then
  221.       Strings.Add('       Capable to read CD disc bar code');
  222.     result := Strings.Text;
  223.   finally
  224.     Strings.free;
  225.   end;
  226. end;
  230. procedure TBurnerForm.ShowWriterParameters1Click(Sender: TObject);
  231. Var
  232.    TestString : String;
  233. begin
  234.   TestString := CDBurnerList.Items[DriveCombo.ItemIndex].DeviceBurnSettings;
  235.   Showmessage(TestString);
  236.   ShowLastError;
  237. end;
  241. Procedure TBurnerForm.ShowLastError;
  242. Begin
  243.       Statusbar2.Panels[0].Text := ScsiErrToString(CDBurnerList.Items[DriveCombo.ItemIndex].LastError);
  244.       Statusbar2.Refresh;
  245. End;
  249. procedure TBurnerForm.SaveCDToISOImage1Click(Sender: TObject);
  250. Var
  251.    Filename: String;
  252. Begin
  253.    If Savedialog1.Execute Then
  254.    Begin
  255.       Filename := Savedialog1.FileName;
  256.       BurnForm.CDBurner := CDBurnerList.Items[DriveCombo.ItemIndex];
  257.       BurnForm.Show;
  258.       BurnForm.DumpISOFile(FileName);
  259.    end;
  260.    ShowLastError;
  261. End;
  265. procedure TBurnerForm.ViewTOC1Click(Sender: TObject);
  267. Var TOC: TScsiTOC;
  268.    i: integer;
  269. Begin
  270.    TOC := CDBurnerList.Items[DriveCombo.ItemIndex].DeviceReader.TOC;
  271.    ReadTocListView.Items.Clear;
  272.    For i := 0 To TOC.TrackCount - 1 Do
  273.       With ReadTocListView.Items.Add Do
  274.       Begin
  275.          Caption := IntToStr(i);
  276.          Subitems.Add(IntToStr(TOC.Tracks[i].TrackNumber));
  277.          Subitems.Add(IntToStr(TOC.Tracks[i].AbsAddress));
  278.          Subitems.Add(SetToStr(TypeInfo(TScsiSubQinfoFlags), TOC.Tracks[i].Flags));
  279.       End;
  280. End;
  284. procedure TBurnerForm.BurnWaveFileToCD1Click(Sender: TObject);
  285. begin
  286.     BurnForm.CDBurner := CDBurnerList.Items[DriveCombo.ItemIndex];
  287.     BurnForm.Show;
  288.     BurnForm.StartAudioWrite(AudioImage);
  289. end;
  293. procedure TBurnerForm.BurnISOToCD1Click(Sender: TObject);
  294. Var
  295.    FileImage : TFileImage;
  297. begin
  298.  Opendialog1.FilterIndex := 1;
  299.  if opendialog1.Execute then
  300.  begin
  301.     CurrentISOFilename := opendialog1.filename;
  302.     FileImage := TFileImage.Create(CurrentISOFilename);
  303.     CDSize1.MemShaded := FileImage.ISOFileSize;
  304.     BurnForm.CDBurner := CDBurnerList.Items[DriveCombo.ItemIndex];
  305.     BurnForm.Show;
  306.     BurnForm.StartDataWrite(FileImage);
  307.     FileImage.Free;
  308.  end;
  309. end;
  312. procedure TBurnerForm.CDSize1OverBurn(Sender: TObject);
  313. begin
  314.    showmessage('Size of data is too big!');
  315. end;
  318. procedure TBurnerForm.BlankCD1Click(Sender: TObject);
  319. begin
  320.     BurnForm.CDBurner := CDBurnerList.Items[DriveCombo.ItemIndex];
  321.     BurnForm.Show;
  322.     BurnForm.BlankThisCD;
  323. end;
  326. procedure TBurnerForm.ShowReadWriteSpeeds1Click(Sender: TObject);
  327. var
  328.     CapString : String;
  329.     Strings : TStringlist;
  330.     Maxread,maxwrite,curread,curwrite : integer;
  331. begin
  332.    CDBurnerList.Items[DriveCombo.ItemIndex].GetSpeed(Maxread,MaxWrite,curread,curwrite);
  333.    Strings := Tstringlist.create;
  334.    Strings.Add('-- Device Reading Speeds --');
  335.    Strings.Add('       Current Read Speed = ' + inttostr(curread));
  336.    Strings.Add('       Maximum Read Speed = ' + inttostr(Maxread));
  337.    Strings.Add('-- Device Writing Speeds --');
  338.    Strings.Add('       Current Write Speed = ' + inttostr(curwrite));
  339.    Strings.Add('       Maximum Write Speed = ' + inttostr(MaxWrite));
  340.    CapString := Strings.Text;
  341.    Strings.Free;
  342.    Showmessage(CapString);
  343. end;
  346. procedure TBurnerForm.GetCDDVDStructure1Click(Sender: TObject);
  347. var
  348.     Desc : TScsiDVDLayerDescriptorInfo;
  349.     CapString : String;
  350. begin
  351.     Desc := CDBurnerList.Items[DriveCombo.ItemIndex].DiscInfo.DVDescriptor;
  352.     CapString := 'Disk Type     : '+ CDBurnerList.Items[DriveCombo.ItemIndex].DiscInfo.DiscType.DType + #10#13;
  353.     CapString := CapString + 'Capacity : '+ inttostr(CDBurnerList.Items[DriveCombo.ItemIndex].DiscInfo.Capacity) + #10#13;
  354.     CapString := CapString + 'Book Type     : '+Desc.BookType + #10#13;
  355.     CapString := CapString + 'Track Density : '+Desc.TrackDensity + #10#13;
  356.     CapString := CapString + 'Disc Size     : '+Desc.DiscSize + #10#13;
  357.     CapString := CapString + 'Maximum Rate  : '+Desc.MaximumRate + #10#13;
  358.     CapString := CapString + 'Linear Density: '+Desc.LinearDensity + #10#13;
  359.     CapString := CapString + 'Layer Type    : '+Desc.LayerType + #10#13;
  360.     Showmessage(CapString);
  361. end;
  364. procedure TBurnerForm.GetBufferBits1Click(Sender: TObject);
  365. begin
  366.   CDBurnerList.items[DriveCombo.ItemIndex].CDBufferSize;
  367. end;
  371. Procedure TBurnerForm.RefreshTrackList;
  372. Var
  373.  Index : Integer;
  374.  name,Disp : String;
  375.  AudioCDSize, DataSize : Integer;
  376.  AudioTrack : TCDTrackItem;
  377. begin
  378.   TrackListBox.Items.Clear;
  379.   AudioCDSize := 0;
  380.   For Index := 0 to AudioImage.TrackCount -1 do
  381.   begin
  382.     AudioTrack := AudioImage.Tracks[index];
  383.     name :=  AudioTrack.CDTrack.TrackName;
  384.     Disp :=  AudioTrack.DisplayName;
  385.     DataSize := AudioTrack.CDTrack.DataSize;
  386.     AudioCDSize := AudioCDSize + (DataSize div (1024*1024));
  387.     TrackListBox.Items.Add(name + ' : '+ Disp);
  388.   end;
  389.     CDSize1.MemShaded := AudioCDSize;
  390. end;
  393. procedure TBurnerForm.CreateACUEFile1Click(Sender: TObject);
  394. begin
  395.    CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CreateCUEFile('C:Temp.bin','C:TempCUE.cue');
  396.    showmessage('Cue File created');
  397. end;
  400. procedure TBurnerForm.GetCDTEXT1Click(Sender: TObject);
  401. var
  402.  Text : String;
  403. begin
  404.   Text := CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDText.Artist + ' : '+ CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDText.Album + #10#13;
  405.   Text := Text + CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDText.MusicTracks.Text;
  406.   showmessage(Text);
  407. end;
  410. procedure TBurnerForm.GetCDDBIDFromAudioCD1Click(Sender: TObject);
  411. var
  412.   Header : String;
  413.   Index : Integer;
  414. begin
  415.    TrackListBox.Items.Clear;
  416.    Header := CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDDBInformation.Artist;
  417.    Header := Header + '  /  ' + CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDDBInformation.Album;
  418.    ArtistPanel.Caption := Header;
  419.    for index := 0 to CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDDBInformation.Tracks.Count -1 do
  420.       TrackListBox.Items.Add(inttostr(Index+1)+',  '+ CDBurnerList.items[DriveCombo.ItemIndex].DiscInfo.CDDBInformation.Tracks[index]);
  421. end;
  424. procedure TBurnerForm.AddTracktoList1Click(Sender: TObject);
  425. var
  426.      AudioTrack : TCDTrackItem;
  427.      TrackIndex : Integer;
  428. begin
  429.    Opendialog1.FilterIndex := 2;
  430.    if Opendialog1.Execute then
  431.    begin
  432.     for TrackIndex := 0 to Opendialog1.Files.Count -1 do
  433.     begin
  434.        AudioTrack := AudioImage.Add;
  435.        AudioTrack.LoadWaveFile(OpenDialog1.Files[TrackIndex]);
  436.        if not (AudioTrack.CDTrack.PCMFormat = Stereo16bit44100Hz) then
  437.            AudioTrack.CDTrack.ConvertToPCM(Stereo16bit44100Hz);
  438.        RefreshTrackList;
  439.     end;
  440.    end;
  441. end;
  444. procedure TBurnerForm.AddTrackToTrackList1Click(Sender: TObject);
  445. begin
  446.    showmessage('not yet coded');
  447. end;
  449. procedure TBurnerForm.CreateISO9660File1Click(Sender: TObject);
  450. begin
  451.   ISOForm.show;
  452. end;
  454. procedure TBurnerForm.ToolButton11Click(Sender: TObject);
  455. Var
  456.    BinImage : TBinCueImage;
  458. begin
  459.  Opendialog1.FilterIndex := 3;
  460.  if opendialog1.Execute then
  461.  begin
  462.     CurrentCUEFilename := opendialog1.filename;
  463.     BinImage := TBinCueImage.Create(CurrentCUEFilename);
  464.     BinImage.SetupBINCUEImage;
  465.     CDSize1.MemShaded := BinImage.BINFileSize;
  466.     BurnForm.CDBurner := CDBurnerList.Items[DriveCombo.ItemIndex];
  467.     BurnForm.Show;
  468.     BurnForm.StartCUEDataWrite(BinImage);
  469.     BinImage.Free;
  470.  end;
  471. end;
  474. procedure TBurnerForm.ToolButton12Click(Sender: TObject);
  475. begin
  476.   form2.show
  477. end;
  479. end.