注意：安装前务必卸载旧版本. XE10.1为例: 1、解压后把UniDAC文件夹直接复制到你专门用来存放第三方控件的地方 2、双击运行Make.bat文件 3、32位操作系统：复制UniDAC\Bin\Delphi24\Win32文件夹里面的所有*.bpl文件到操作系统盘符C:\Windows\system32文件夹中 64位操作系统：复制UniDAC\Bin\Delphi24\Win32文件夹里面的所有*.bpl文件到操作系统盘符C:\Windows\SysWOW64
分类： Delphi
[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
[控件]在捕获视频时画面中叠加自绘内容
RVCamViewer 是 RVMedia 输出视频的对象，它提供了一个 OnPaint 事件，我们可以在其中控制要呈现给用户的内容。 下面的例子，我就在画面的右上角呈现了已经录制的时间，其中用到的 RollupTime 函数，请到 QString.pas 里找。 procedure TfrmVideoRecord.RVCamView1Paint(Sender: TObject; VideoFrame: TBitmap; ACanvas: TCanvas; var CanDrawFrame: B
[Delphi]多版本共存的安装方法
原文作者：专家，特留存，感谢。 Berlin和Tokyo共存(以此为例，3,4,5,6个版本都可以共存，不按此办法，容易反复出现某个版本又提示注册) 一、安装tokyo前先处理berlin 1.建立C:\ProgramData\Embarcadero\10.1目录（例如新建10.1目录，放进去）。 2.转移C:\ProgramData\Embarcadero下的.licenses、.cgb_license、*.slip(这个文件名称可以修改一下，一串数字不好肉眼识别)到第1步建立的C:\Prog
[DLL]Delphi 动态调用DLL代码
静态调用往往不够灵活和影响性能，采取动态调用是上上之选。 不废话上通用代码。 procedure TForm1.btn12Click(Sender: TObject); type TIntFunc = function(n: Integer): Extended; stdcall; var Th: Thandle; Tf: TIntFunc; Tp: TFarProc; begin Th := LoadLibrary(‘dll.dll’); { 装载DLL } if Th > 0 then tr
[FMX]Firemonkey Android 照相自订分辨率测试
在 Delphi 10 Berlin 提供了照相及相册自订分辨率的功能，请见官方网站教学： http://docwiki.embarcadero.com/RADStudio/Berlin/en/Taking_Pictures_Using_FireMonkey_Interfaces Params.RequiredResolution := TSize.Create(2048, 2048); Params.RequiredResolution := TSize.Create(3000, 3000);