捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
Magic.CD.DVD.Burner 1.23.1 Full Source 增强修改版
关键字:burn,cd,,iso,刻录,烧录
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:中级 完成时间:2008/8/24
发布者:laihongbo 发布时间:2008/8/24
编辑器:DELPHI7 语  种:简体中文
分 类:杂项 下载浏览:1944/12215
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
Magic.CD.DVD.Burner 1.23.1

修改:风铃夜思雨
主页:Http://Www.SkyGz.Com
日期:2008-08-22

说明:该控件由于很久没更新了,一直停留在1.23版本,而BUG一大堆,唯一的是简单容易上手,有源码方便修改。
所以本人对该控件进行了全面升级修正。

新增 TDeviceNotifier 类,设备监视

TMCDBurner 类
新增属性
NoUseLowerFile   是否允许文件名小写字母  True=不允许 Flase=允许
NoUseISOVersionNumber  是否省略ISO9660版本号  True=不省略 Flase=省略
MediumType   设置介质类型   mt_185MB, mt_210MB, mt_650MB, mt_703MB, mt_791MB, mt_870MB, mt_1_4GB, mt_2_8GB, mt_3_95GB, mt_4_7GB, mt_8_5GB, mt_9_4GB
UseDosCharset   是否使用DOS字符集  True=使用 Flase=使用
ISOLevel   文件名格式   ISOLevel01=DOS(8.3) ISOLevel02=Windows/Unix(31) ISOLevel_1999=Max(211)
BootPlatform   引导光盘系统类型  btpPC80_86, btpPowerPC, btpMac
BootImageType   引导映像文件类型  biAuto=自动识别 biNoEmulation=不模拟 biFloppy1_20MB=模拟1.2M的软盘 biFloppy1_44MB=模拟1.44M的软盘 Floppy2_88MB=模拟2.88M的软盘 HardDisc=模拟硬盘
JolietExpand110   Joliet文件格式扩展  True=扩展110 Flase=标准64
Optimized   是否优化储存   True=优化 Flase=不优化

新增函数
HiddenFileOrDir      隐藏文件或目录
Function HiddenFileOrDir(
 SourceDir,      光盘源目录
 SourceFileOrDir: String;    光盘源文件名或目录名
 IsDir: Boolean;     SourceFileOrDir 是否为目录
 FileAttributes: TFileAttributes   fa_Normal=正常 fa_Hidden=隐藏 fa_AdvHidden=高级隐藏 fa_All=隐藏+高级隐藏
 ): Boolean; Overload;

HiddenFileOrDir      隐藏文件或目录
Function HiddenFileOrDir(
 SourceDir: PDirEntry;    光盘源目录
 SourceFileOrDir: String;    光盘源文件名或目录名
 IsDir: Boolean;     SourceFileOrDir 是否为目录
 FileAttributes: TFileAttributes   fa_Normal=正常 fa_Hidden=隐藏 fa_AdvHidden=高级隐藏 fa_All=隐藏+高级隐藏
 ): Boolean; Overload;


ControlDevice      打开或关闭光驱设备
Function ControlDeviceDoor(
 DriveLetter: Char;     光驱设备盘符
 Status: TDevice_Status    cr_Open=打开 cr_Close=关闭
 ): Boolean;

SaveISOBootimageToDisk      保存ISO中的引导文件到磁盘
Function SaveISOBootimageToDisk(
 ISOFileName,     ISO映像文件
 BootOutputFileName: String   引导文件输出文件名
 ):Boolean;

RipDiskToISOImage     抓取光盘数据到ISO映像文件
Function RipDiskToISOImage(
 ISOFileName: String;    ISO映像文件
 BackupISO: Boolean = false   是否备份已存中的ISO映像文件再继续执行
 ): Boolean;

RipAudioTrack      抓取音频CD光盘指定索引音频到指定目录
Function RipAudioTrack(
 TrackIndex: Integer;    要抓取音频的Track 索引号
 TracksOutPath: String    输出目录
 ): Boolean;

RipAllAudioTracks     抓取音频CD光盘全部音频到指定目录
Function RipAllAudioTracks(
 TracksOutPath: String    输出目录
 ): Boolean;

GetFileSize      获取文件大小
Function GetFileSize(
 Const FileName: String    要获取大小的文件
 ): Int64;

StrToSpeed      转换Str到速率
Function StrToSpeed(
 SpeedStr: String    速率字符串,结合下面的函数使用
 ): Word;

GetSupportWriteSpeedList    获取支持的写速度列表
Function GetSupportWriteSpeedList(
 Strings: TStrings;
 DefaultItemIndex: Integer
 ): Integer;

新增事件
OnOptimizProgress  优化储存进度
OnRipDiskProgress  抓取光盘数据进度

修正 引导功能不能正常引导的BUG
修正 文件排序会引起部份可引导光盘不正常
修正 当引导属性开启后快速保存为ISO时的BUG
修正 区段排列方式,以完全兼容ISO文件格式,与UltraISO类软件保存的进行对比一模一样
修改 SaveToISOFile方法 增加是否备份现有ISO映像文件的参数
修正 ImportSession方法 含有中文文件名时缺少部份字符
其它细微修改就不一一描述了。
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论4条 当前显示最后4条评论
hunterfall 2008/9/10 16:50:33
可以刻录CD吗?
能刻几个音轨?
liucanwei 2008/9/18 10:30:36
大哥,你能不能顺便把它的刻录速度也给改改呢,这个控件在刻盘时刻录速度是有bug,+r只有2.4x,-r只有1x,可是明明都是8x的光盘
risingsoft 2009/4/15 10:07:39
兄弟你好,这个控件有个BUG,刻录出来的光盘不符合ISO9660规范
ISO9660规范要求:
1、目录后不用加任何后缀(这个满足)
2、带扩展名的文件后不加任何后缀(这个满足)
3、不带扩展名的文件后加".;1"后缀,而这个控件固定加的是";1"能否加QQ讨论:552009600
sjzwcs 2010/11/22 16:24:04
抓取cd音轨  不成功呀  好像不能用 不知道作者 测试没
QQ 976809488
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表