RAD Studio 五月补丁

RAD Studio 12.3 五月补丁 Readme RAD Studio 12.3 五月补丁是一个累积补丁，它为 12.3 版本提供了质量改进，包括 RAD Studio 12.3 四月补丁中已有的修复，以及四月补丁中缺少 强烈建议所有 RAD Studio 12.3、Delphi 12.3 和 C++Builder 12.3 用户安装此补丁。此累积补丁大小约为 600MB

Delphi RSA签名与验签 国密sm2签名和验签 工具（二）

在上一个集成上添加编码。 最近工作上安排了一个支付接口的项目，我看其中涉及到了RSA签名加解密，提供了Java的代码，delphi RSA算法不会搞， 于是调用Java代码的实现，速度慢不说，出参和入参都不方便，遂项目上线后继续寻找Rsa在delphi下的实现方法。

cnvcl的键盘钩子，大名鼎鼎的cnpack谁都用，cnvcl同样好用，简简单单搞个钩子

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons,GlobalKeyHook; type TForm1 = class(TForm) BitBtn1: TBitBtn; Timer1: TTimer; BitBtn2: TBitBtn; procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure BitBtn1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private procedure MyExecute(Sender: TObject); { Private declarations } public { Public declarations } end; var Form1: TForm1; myhook: TGlobalKeyHook; implementation {$R *.dfm} procedure TForm1.MyExecute(Sender: TObject); begin ShowMessage('我用V了，等30秒在用。')

大华摄像机版被V3.052的delphi的sdk包，由c++头文件转过来 应该是目前网上能看到的最新版了

unit DHNetSdk; interface {$A4} {$Z4} uses Windows; type CtrlType = ( DH_CTRL_REBOOT = 0, DH_CTRL_SHUTDOWN, DH_CTRL_DISK, DH_KEYBOARD_POWER = 3, DH_TRIGGER_ALARM_IN = 100, // 触发报警输入 DH_TRIGGER_ALARM_WIRELESS = 200, // 触发无线报警(IPC产品) DH_MARK_IMPORTANT_RECORD, // 标识重要录像文件 DH_CTRL_DISK_SUBAREA, // 网络硬盘分区 DH_BURNING_ATTACH, // 刻录机控制,附件刻录. DH_BURNING_PAUSE, // 刻录暂停 DH_BURNING_CONTINUE, // 刻录继续 DH_BURNING_POSTPONE, // 刻录顺延 DH_CTRL_OEMCTRL, // 报停控制 DH_BACKUP_START, // 设备备份开始 DH_BACKUP_STOP, // 设备备份停止 DH_VIHICLE_WIFI_ADD, // 车载手动增加WIFI配置 DH_VIHICLE_WIFI_DEC, // 车载手动

gid+delphi7版本

New in Version 8.0.0.126 (released on 2024-08-19) Improved IGPImage.Save and IGPImage.AsBytes implementations allowing providing parameters as simple array IGPImage.GetEncoderParameterList redesigned to return array of parameters Improved GetStringSizeF, and MeasureStringF implementations allowing ACodepointsFitted, and ALinesFilled to be obtained as simple integer output parameters, instead of pointers Improved TIGPMetafile constructors taking parameters as WideString instead of PWChar Added tr

delphi upd通信演示程序client server都有

upd通信通讯中indy两个组件client和server都可以用，不用像tcp那样严格的区分客户端和服务端，发送用client方便 接收用server 方便。

包含170+万个中国常用人名的资源文件，该资源文件涵盖了广泛的中国常用姓名，适用于各种需要中文姓名的应用场景，如数据分析、机器学习、自然语言处理等

包含170+万个中国常用人名的资源文件，该资源文件涵盖了广泛的中国常用姓名，适用于各种需要中文姓名的应用场景，如数据分析、机器学习、自然语言处理等。

字符分割函数，方便分割字符串

function SplitStringXELJK(const Source: string; const Delimiter: string; var arr:TArray<string>):Boolean ; var StartPos: Integer; DelimPos: Integer; stemp:string; i:Integer; begin try i:=0; StartPos := 1; DelimPos := Pos(Delimiter, Source); while DelimPos > 0 do begin stemp:=Copy(Source, StartPos, DelimPos - StartPos); stemp:=trim(stemp); if stemp<>'' then begin Inc(i); SetLength(arr,i); arr[i-1]:=stemp; end;

普通的日期格式转大写日期格式

{by ljk } unit DateToBIG; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons; const sNian: array [0..9] of string = ('〇','一','二','三','四','五','六','七','八','九'); sYue: array[1..12] of string = ('一月', '二月', '三月', '四月', '五月', '六月', '七月', '八月', '九月', '十月', '十一月', '十二月'); sRi: array[1..31] of string = ('一日', '二日', '三日', '四日', '五日', '六

纵向冗余校验（Longitudinal Redundancy Check，简称：LRC）

纵向冗余校验（Longitudinal Redundancy Check，简称：LRC）是通信中常用的一种校验形式，也称LRC校验或纵向校验。它是一种从纵向通道上的特定比特串产生校验比特的错误检测方法。在行列格式中（如磁带），LRC经常是与VRC一起使用，这样就会为每个字符校验码。在工业领域Modbus协议Ascii模式采用该算法。 具体算法如下： 1、对需要校验的数据（2n个字符）两两组成一个16进制的数值求和。 2、将求和结果与256求模。 3、用256减去所得模值得到校验结果（另一种方法：将模值按位取反然后加1）。 例如16进制数据：01 A0 7C FF 02 （16进制计算）　　求和：01 + A0 + 7C + FF + 02 = 21E　　取模：21E % 100 = 1E　　计算：100 - 1E = E2 （10进制计算）　　求和：01 + 160 + 124 + 255 + 02 = 542　　取模：542 % 256 = 30　　计算：256 - 30 = 226