[Delphi]HMACMD5示例

这是一个来自老猫群一个HMACMD5加密的示例,什么是HMACMD5,请自行脑补。 上示例代码: program HMACMD5; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, System.Types, System.Hash; var v: string; const key: array [0 .. 15] of Byte = (32, 10, 43, 13, 56, 76, 34, 65, 3, 99, 56, 231, 8, 6

[控件]7-zip Delphi API

这是老猫整理的一个控件,特此转载,原文地址在此:https://github.com/wang80919/d7zip 官网已经找不到了。 这个地址比较新 https://github.com/zedalaye/d7zip 在这个基础上 融合了 SevenZip.pas BUG修改版 – 20160613 – 堕落恶魔 – 博客园 https://www.cnblogs.com/hs-kill/p/3876160.html 然后再加了一些小的修改。 最后,提供一个比较全面的 例子。 【Delphi

[系统]关于WIN10降级安装WIN7的一个坑

前几天去老婆的商场帮忙重装下一台柜台电脑,WIN10升级不成功导致进入不了系统。 一看CPU等配置不够理想,索性重装WIN7,格式化C盘,重装,还原完后始终提示can not find ntldr。 反复安装都重复出现,修复引导无果。 终于格式化全盘重新分区,并建立分区类型为MBR,到此终于解决。 特此留笔。

[控件]在捕获视频时画面中叠加自绘内容

RVCamViewer 是 RVMedia 输出视频的对象,它提供了一个 OnPaint 事件,我们可以在其中控制要呈现给用户的内容。 下面的例子,我就在画面的右上角呈现了已经录制的时间,其中用到的 RollupTime 函数,请到 QString.pas 里找。 procedure TfrmVideoRecord.RVCamView1Paint(Sender: TObject; VideoFrame: TBitmap; ACanvas: TCanvas; var CanDrawFrame: B