Base64 URL Safe Url 安全的编码 函数
function Base64Encode(const Input: TIdBytes): string; begin Result := TIdEncoderMIME.EncodeBytes(Input); Result := StringReplace(Result, '+', '-', [rfReplaceAll]); Result := String...
HMAC-SHA1 算法 加密字符串函数
function EncryptHMACSha1(Input, AKey: AnsiString): TIdBytes; var Key: TIdBytes; begin with TIdHMACSHA1.Create do try Key := ToBytes(AKey); Result := HashValue(ToBytes(Input)); fina...
Windows系统 获取当前程序的版本号 函数
procedure GetBuildInfo(var V1, V2, V3, V4: word); var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: PVSFixedFileInfo; begin VerInfoSize := GetFileVersionInfo...
Delphi FMX 获取程序版本
在 Delphi FMX 中，可以通过以下方法获取当前应用程序的版本号：使用 IFMXApplicationService 接口delphi复制uses FMX.Platform; procedure GetAppVersion; var AppVersion: string; begin AppV...
Delphi 11 HMACSha512 函数
备用，是否正确待测其一 需要opensll ,其二不需要uses IdHMACSHA1, System.Hash,IdCoderMIME, IdGlobal; function EncryptHMACSha512(Input, AKey: String): String; var SHA512 : TIdHMACSHA51...
⬇️【控件】TChromeTabs 一个Chrome风格的Tab控件
Delphi 控件包TChromeTabs 是一个全面实现 Google Chrome 标签页功能的开源项目。无论你是 Delphi 开发者还是 FreePascal/Lazarus 用户，TChromeTabs 都能为你提供一个高效、美观的标签页解决方...
DELPHI窗口分割用SPLITTER分割2个PANEL
在Delphi中放置两个Panel和一个Splitter组件，可以按照以下步骤操作：添加第一个Panel：在Form上添加一个Panel组件。设置第一个Panel的Align属性为alLeft（如果你希望垂直分割）或alTop（如果你...
key.val.pas
unit key.val; // cxg 2024-12-19 key-value list // fit (fpc+delphi) {$ifdef fpc} {$mode delphi}{$H+} {$endif} { example: procedure TForm1.Button2Click(Sender: TObject); var kv, kv2:...
delphi tcolor 颜色 转成 网页颜色 格式
procedure TForm3.ToolButton9Click(Sender: TObject); // 字体颜色 function ColorToHtml(DColor:TColor):string; var //delphi tcolor 颜色 转成 网页颜色 格式 tmpRGB : TColorRef; begin tm...
delphi中的变量初始值
在Delphi中，变量的初始值取决于变量的类型和声明中是否指定了显式的初始值。对于整数类型（如Integer、Int64等），默认的初始值为0。对于浮点数类型（如Double、Extended等），默认的初始值为...
StyleControl 漂亮的按钮UI 代码 第二弹
编辑框01object BmEdt: TscGPDBEdit AlignWithMargins = True Left = 130 Top = 15 Width = 552 Height = 35 HelpKeyword = 'PrimaryEdt' Margins.Left = 5 Margins.Top = 10 Margins.Bottom = ...
StyleControl 漂亮的按钮UI 代码
直接复制下面的代码，然后回到Delphi IDE 在你的 Form 窗体上 粘贴 即可object scGPButton1: TscGPButton AlignWithMargins = True Left = 433 Top = 11 Width = 204 Height = 45 Margins.L...
Delphi 漂亮的图表 源码
以下图表均使用Delphi自带的 TChart 实现无需任何第三方图表外面的边框是用 StyleControl 实现的。代码如下（第一个）：代码如下（第二个）： 代码如下（第1个）：代码如下（第2个）：代码如...
Delphi APP运行强制竖屏（或横屏）显示
在开发电视广告机的时候，电视是竖着放的，所以要app竖屏运行，我的电视没有自动旋转功能，就加入如下强制竖屏运行：procedure SetScreenOrientation; var ScreenService: IFMXScreenService; b...
一个跨平台的、获取设备信息的单元 uGetDeviceInfo.pas
感谢群友 流浪 提供//convert pas to utf8 by ¥ unit uGetDeviceInfo; interface uses SysUtils, FMX.DeviceInfo, {$IFDEF MSWINDOWS} Winapi.Windows, Winapi.ShellAPI, {$ENDIF} {$IFDEF IOS...