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

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

DVD

开发平台：

Delphi

BurnUnit.pas：源码内容
  1. unit BurnUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Gauges, Devices, Device, scsidefs, Fileimage, AudioImage, BinCueImage,
  8.   ComCtrls;
  10. type
  11.   TBurnForm = class(TForm)
  12.     ListBox1: TListBox;
  13.     Gauge1: TGauge;
  14.     Label1: TLabel;
  15.     Gauge2: TGauge;
  16.     Label2: TLabel;
  18.     StatusBar1: TStatusBar;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     Label5: TLabel;
  22.     Label6: TLabel;
  23.     Gauge3: TGauge;
  24.     procedure copystats(CurrentSector,PercentDone : Integer) ;
  25.     Procedure CDStatus(CurrentStatus:String);
  26.     procedure BufferProgress(Percent : Integer);
  27.     procedure FileBufferProgress(Percent : Integer);
  28.     procedure BufferStatus(BufferSize , FreeSize : Integer);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.     CDBurner : TDevice;
  34.     Procedure StartDataWrite(BurnFileImage : TFileImage);
  35.     Procedure StartCUEDataWrite(BurnFileImage : TBinCueImage);
  36.     Procedure StartAudioWrite(BurnAudioImage : TAudioImage);
  37.     Procedure DumpISOFile(FileName : String);
  38.     Procedure BlankThisCD;
  39.   end;
  41. var
  42.   BurnForm: TBurnForm;
  44. implementation
  47. {$R *.dfm}
  51. Procedure TBurnform.StartAudioWrite(BurnAudioImage : TAudioImage);
  52. begin
  53.     CDBurner.OnCopyStatus := copystats;
  54.     CDBurner.OnCDStatus := CDStatus;
  55.     CDBurner.OnBufferProgress := BufferProgress;
  56.     CDBurner.OnFileBufferProgress := FileBufferProgress;
  57.     CDBurner.OnBufferStatus := BufferStatus;
  58.     CDBurner.QuickSetAudioBurnSettings;
  59.     CDBurner.BurnFromImage(BurnAudioImage);
  60. end;
  64. Procedure TBurnform.StartDataWrite(BurnFileImage : TFileImage);
  65. begin
  66.     CDBurner.OnCopyStatus := copystats;
  67.     CDBurner.OnCDStatus := CDStatus;
  68.     CDBurner.OnBufferProgress := BufferProgress;
  69.     CDBurner.OnFileBufferProgress := FileBufferProgress;
  70.     CDBurner.OnBufferStatus := BufferStatus;
  71.     CDBurner.QuickSetDVDISOBurnSettings;  // for testing
  72.     CDBurner.BurnFromImage(BurnFileImage);
  73. end;
  76. Procedure TBurnform.StartCUEDataWrite(BurnFileImage : TBinCueImage);
  77. begin
  78.     CDBurner.OnCopyStatus := copystats;
  79.     CDBurner.OnCDStatus := CDStatus;
  80.     CDBurner.OnBufferProgress := BufferProgress;
  81.     CDBurner.OnFileBufferProgress := FileBufferProgress;
  82.     CDBurner.OnBufferStatus := BufferStatus;
  83.     CDBurner.QuickSetDAOBurnSettings;
  84.     CDBurner.BurnFromImage(BurnFileImage);
  85. end;
  88. Procedure TBurnform.DumpISOFile(FileName : String);
  89. begin
  90.     CDBurner.OnCopyStatus := copystats;
  91.     CDBurner.OnCDStatus := CDStatus;
  92.     CDBurner.OnBufferProgress := BufferProgress;
  93.     CDBurner.OnFileBufferProgress := FileBufferProgress;
  94.     CDBurner.OnBufferStatus := BufferStatus;
  95.     CDBurner.DeviceReader.RipDiskToISOImage(FileName);
  96.     Showmessage('Copy Finished!');
  97. end;
  101. procedure TBurnForm.copystats(CurrentSector, PercentDone : Integer) ;
  102. begin
  103.   gauge2.progress := percentdone;
  104.   statusbar1.simpletext := 'Sector : '+ inttostr(CurrentSector);
  105.   statusbar1.Refresh;
  106. end;
  110. procedure TBurnForm.BufferProgress(Percent : Integer);
  111. begin
  112.     gauge1.progress := Percent;
  113. end;
  117. procedure TBurnForm.FileBufferProgress(Percent : Integer);
  118. begin
  119.     gauge3.progress := Percent;
  120. end;
  124. procedure TBurnForm.BufferStatus(BufferSize , FreeSize : Integer);
  125. begin
  126.    Label3.caption := 'Burner Buffer Size : '+ inttostr(buffersize div 1024)+ ' kb';
  127.    Label4.caption := 'Burner Free Buffer : '+ inttostr(FreeSize div 1024)+ ' kb';
  128. end;
  132. Procedure TBurnForm.CDStatus(CurrentStatus:String);
  133. begin
  134.    ListBox1.items.Insert(0,CurrentStatus);
  135. end;
  139. Procedure TBurnForm.BlankThisCD;
  141. begin
  142.     CDBurner.OnCopyStatus := copystats;
  143.     CDBurner.OnCDStatus := CDStatus;
  144.     CDBurner.OnBufferProgress := BufferProgress;
  145.     CDBurner.OnBufferStatus := BufferStatus;
  146.  //   CDBurner.BlankCDRom(blanktype,0);
  147.     Showmessage('Blanking Finished!');
  148. end;
  150. end.