我希望您能够使用字幕API,它需要视频文件的前64kb和后64kb的md5哈希值。我知道如何进行md5哈希,只是想知道如何获取128kb的数据。
以下是Java中解决问题的方法,但我无法在Delphi中实现。 如何在Java中读取视频文件的前64kb和后64kb? 目前我的Delphi代码:
以下是Java中解决问题的方法,但我无法在Delphi中实现。 如何在Java中读取视频文件的前64kb和后64kb? 目前我的Delphi代码:
function TSubdbApi.GetHashFromFile(const AFilename: string): string;
var
Md5: TIdHashMessageDigest5;
Filestream: TFileStream;
Buffer: TByteArray;
begin
Md5 := TIdHashMessageDigest5.Create;
Filestream := TFileStream.Create(AFilename, fmOpenRead, fmShareDenyWrite);
try
if Filestream.Size > 0 then begin
Filestream.Read(Buffer, 1024 * 64);
Filestream.Seek(64, soFromEnd);
Filestream.Read(Buffer, 1024 * 64);
Result := Md5.HashStreamAsHex(Filestream);
end;
finally
Md5.Free;
Filestream.Free;
end;
end;
我在使用Delphi XE8开发时,调用API url ,但是得到的MD5哈希值与官方API不符。