分享：酷狗Krc歌词解析 Delphi版
library GetKrc;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
System.SysUtils,
System.Classes,
System.ZLib,
System.RegularExpressionsCore;
const
miarry:array [0..15] of Char=(
'@','G','a','w','^','2','t','G','Q','6','1','-','?','ò','n','i');
function KrcToLrc(filename: PChar): PChar;stdcall;
function ZDecompressStr2(const s: TBytes): UTF8String;
var
BIn,BOut: TBytes;
begin
BIn := s;
ZDecompress(BIn, BOut);
Result := TEncoding.UTF8.GetString(BOut);
end;
function ToTime(timebuff: string): string;
var
maketime:string;
min,sec,hsec:string;
begin
timebuff:=Copy(timebuff,2,pos(',',timebuff)-2);
maketime:=IntToStr(strtoint(timebuff) div 1000);
hsec:=IntToStr(strtoint(timebuff) mod 1000);
min:=IntToStr(strtoint(maketime) div 60);
sec:= IntToStr(strtoint(maketime) mod 60);
if StrToInt(min)<10 then min:='0'+min;
if StrToInt(sec)<10 then sec:='0'+sec;
Result:='['+min+':'+sec + '.' +Copy(hsec,1,2)+']';
end;
var
Stream:TFileStream;
Top:array [0..3] of Byte;
k,j,l:Integer;
lrc_str:UTF8String;
reg:TPerlRegEx;
zip_byte:TBytes;
begin
Stream:=TFileStream.Create(filename,fmOpenReadWrite);
try
j :=Stream.Size;
SetLength(zip_byte,J-4);
Stream.read(Top,4);
Stream.Read(zip_byte,J-4);
for k := Low(zip_byte) to High(zip_byte) do
begin
l:=k mod 16;
zip_byte[k]:=zip_byte[k] xor Byte(miarry[l]);
end;
lrc_str:=ZDecompressStr2(zip_byte);
reg:=TPerlRegEx.Create();
try
reg.Subject:=lrc_str;
reg.RegEx:='(\<\d+\,\d+\,\d+\>)+';
reg.Replacement:='';
reg.ReplaceAll;
lrc_str:=reg.Subject;
reg.Subject:=lrc_str;
reg.RegEx:='(\[\d+\,\d+\])+';
while reg.MatchAgain do
begin
reg.Replacement:=ToTime(reg.Groups[0]);
reg.Replace;
end;
finally
Result:=PChar(UTF8ToString(reg.Subject));
reg.Free;
end;
finally
Stream.Free;
end;
end;
exports KrcToLrc;
begin
end.
