捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：KRC, QRC, TRC, KSC, LRC歌词转换
moneysonok 592006 2017/4/24 16:54:17
现在QRC的转换不了，是否有版本更新？或者其他解决方法？
h860055873 591710 2017/3/19 13:41:49
转换完的文件放在根目录文件夹里。比如你转成KSC格式的，就打开这个文件夹就看到了。
非常好用，本人亲测，解决我大问题了，感谢站长、作者。
aimmai 584606 2016/8/22 1:54:08
歌词在ConvertLyrics文件夹中，不懂找不到歌词的看哪里去了？
676568512 582627 2016/7/10 18:41:35
转换成功了  找不到歌词呢  MD也没谁了
xinyuan13 580436 2016/6/24 10:39:15
显示转换成功，但找不到文件转在哪。
fannie06 537458 2016/1/16 12:44:54
KRC转换KSC后，文件到哪里去了？在哪个文档里？
ying32 186554 2014/9/18 12:00:06
楼上几位， QRC转换不成功的原因是因为QRC格式已经变了，当初我写的时候，用的那个QQ播放器还是使用的XML的格式的， 前段时间别人反馈我去看了下， 格式已经完全变了
koolan 97863 2014/4/11 18:02:36
QRC歌词显示转换成功，找不到歌词。。
why123000 71619 2013/12/8 23:00:01
下载使用了，KRC转换没问题，但是QRC歌词怎么显示转换成功，但找不到歌词呢。。
ying32 62106 2013/10/4 20:31:07
刚发现少上传一个单元，现在补上
{**********}
{          }
{       功能：Zip压缩与解压          }
{       名称：ZpZip.pas          }
{       版本：          }
{       环境：Win7 Sp1 32bit          }
{       工具：Delphi XE2          }
{       日期：2013/9          }
{       作者：ying32          }
{       QQ  ：396506155          }
{       MSN ：ying_32@live.cn          }
{       E-mail：yuanfen3287@vip.qq.com          }
{       Website：          }
{       版权所有 (C) 2012-2013 ying32.tk All Rights Reserved          }
{          }
{----------}
{          }
{       备注：Zip压缩与解压          }
{          }
{          }
{          }
{**********}

unit ZpZip;

interface

uses
 Classes, ZLib;

type
  TZip = class
    //解压缩
    class procedure UnCompressionStream(SrcStream, OutStream: TMemoryStream);
    //压缩流
    class procedure CompressionStream(SrcStream, OutStream: TMemoryStream; Level:TCompressionLevel = clDefault);
  end;

implementation

{ TZip }

class procedure TZip.CompressionStream(SrcStream, OutStream: TMemoryStream; Level: TCompressionLevel);
var
  nTmpStream: TCompressionStream;
begin
  SrcStream.Position := 0;
  OutStream.Clear;
  try
    //开始压缩
    nTmpStream := TCompressionStream.Create(Level, OutStream);
    try
       SrcStream.SaveToStream(nTmpStream);
    finally
      nTmpStream.Free;//释放后nDestStream才会有数据
    end;
    OutStream.Position := 0;
  except
  end;
end;

class procedure TZip.UnCompressionStream(SrcStream, OutStream: TMemoryStream);
var
  {$IFNDEF VER230}
  nTmpStream: TDecompressionStream;
  nBuf: array[0..511] of Byte;
  nSrcCount: integer;
  {$ENDIF}
begin
    SrcStream.Position := 0;
    OutStream.Clear;
    {$IFNDEF VER230}
    nTmpStream  := TDecompressionStream.Create(SrcStream);
    {$ENDIF}
    try
        try
        {$IFNDEF VER230}
          repeat
          //读入实际大小

          nSrcCount := nTmpStream.Read(nBuf, SizeOf(nBuf));
          if nSrcCount > 0 then
          OutStream.Write(nBuf, nSrcCount);

          until (nSrcCount = 0);
        {$ELSE}
          ZDecompressStream(SrcStream, OutStream);
        {$ENDIF}
        except

        end;
        OutStream.Position := 0;
    finally
        {$IFNDEF VER230}
        nTmpStream.Free;
        {$ENDIF}
    end;
end;

end.
第一页 上一页 下一页 最后页 有 10 条纪录 共1页 1 - 10
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表