风神的头像-Delphi 大神网
管理员超级版主
开发语言只是一把刀,能做出什么样的东西,取决于拿刀的人
Base64 URL Safe Url 安全的编码 函数-Delphi 大神网

Base64 URL Safe Url 安全的编码 函数

function Base64Encode(const Input: TIdBytes): string; begin Result := TIdEncoderMIME.EncodeBytes(Input); Result := StringReplace(Result, '+', '-', [rfReplaceAll]); Result := String...
1个月前
447
HMAC-SHA1 算法 加密字符串函数-Delphi 大神网

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...
1个月前
5514
Windows系统 获取当前程序的版本号 函数-Delphi 大神网

Windows系统 获取当前程序的版本号 函数

procedure GetBuildInfo(var V1, V2, V3, V4: word); var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: PVSFixedFileInfo; begin VerInfoSize := GetFileVersionInfo...
1个月前
396
Delphi FMX 获取程序版本-Delphi 大神网

Delphi FMX 获取程序版本

在 Delphi FMX 中,可以通过以下方法获取当前应用程序的版本号:使用 IFMXApplicationService 接口delphi复制uses FMX.Platform; procedure GetAppVersion; var AppVersion: string; begin AppV...
1个月前
457
Delphi 11 HMACSha512 函数-Delphi 大神网

Delphi 11 HMACSha512 函数

备用,是否正确待测其一 需要opensll ,其二不需要uses IdHMACSHA1, System.Hash,IdCoderMIME, IdGlobal; function EncryptHMACSha512(Input, AKey: String): String; var SHA512 : TIdHMACSHA51...
⬇️【控件】TChromeTabs 一个Chrome风格的Tab控件-Delphi 大神网

⬇️【控件】TChromeTabs 一个Chrome风格的Tab控件

Delphi 控件包TChromeTabs 是一个全面实现 Google Chrome 标签页功能的开源项目。无论你是 Delphi 开发者还是 FreePascal/Lazarus 用户,TChromeTabs 都能为你提供一个高效、美观的标签页解决方...
1个月前
11312
⏩【视频 安装控件教程系列】02 安装控件教程之如何安装现代风格的UI控件StyleControls-Delphi 大神网
Delphi 实现 Web 风格的 统计面板02 (源码)-Delphi 大神网

Delphi 实现 Web 风格的 统计面板02 (源码)

本源码使用 StyleControl  控件实现源码如下
1个月前
10612
DELPHI窗口分割用SPLITTER分割2个PANEL-Delphi 大神网

DELPHI窗口分割用SPLITTER分割2个PANEL

在Delphi中放置两个Panel和一个Splitter组件,可以按照以下步骤操作:添加第一个Panel:在Form上添加一个Panel组件。设置第一个Panel的Align属性为alLeft(如果你希望垂直分割)或alTop(如果你...
1个月前
6011
key.val.pas-Delphi 大神网

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:...
1个月前
288
delphi tcolor 颜色 转成 网页颜色 格式-Delphi 大神网

delphi tcolor 颜色 转成 网页颜色 格式

procedure TForm3.ToolButton9Click(Sender: TObject); // 字体颜色 function ColorToHtml(DColor:TColor):string; var //delphi tcolor 颜色 转成 网页颜色 格式 tmpRGB : TColorRef; begin tm...
1个月前
508
delphi中的变量初始值-Delphi 大神网

delphi中的变量初始值

在Delphi中,变量的初始值取决于变量的类型和声明中是否指定了显式的初始值。对于整数类型(如Integer、Int64等),默认的初始值为0。对于浮点数类型(如Double、Extended等),默认的初始值为...
1个月前
758
StyleControl 漂亮的按钮UI 代码 第二弹-Delphi 大神网

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 大神网

StyleControl 漂亮的按钮UI 代码

直接复制下面的代码,然后回到Delphi IDE  在你的  Form 窗体上 粘贴 即可object scGPButton1: TscGPButton AlignWithMargins = True Left = 433 Top = 11 Width = 204 Height = 45 Margins.L...
Delphi 漂亮的图表  源码-Delphi 大神网

Delphi 漂亮的图表 源码

以下图表均使用Delphi自带的  TChart 实现无需任何第三方图表外面的边框是用 StyleControl 实现的。代码如下(第一个):代码如下(第二个): 代码如下(第1个):代码如下(第2个):代码如...
1个月前
11210
Delphi 实现 Web 风格的 统计面板 (源码)-Delphi 大神网

Delphi 实现 Web 风格的 统计面板 (源码)

效果如图全部使用 StyleControl 控件实现代码如下:    
1个月前
1187
Delphi APP运行强制竖屏(或横屏)显示-Delphi 大神网

Delphi APP运行强制竖屏(或横屏)显示

在开发电视广告机的时候,电视是竖着放的,所以要app竖屏运行,我的电视没有自动旋转功能,就加入如下强制竖屏运行:procedure SetScreenOrientation; var ScreenService: IFMXScreenService; b...
黑夜杀手 出品的超牛逼的编程工具大全-Delphi 大神网

黑夜杀手 出品的超牛逼的编程工具大全

群友 黑夜杀手 开发的,语言Delphi,大家多点赞哈 
1个月前
1056
专家出品安卓64位必备工具-aab2apk-Delphi 大神网
一个跨平台的、获取设备信息的单元 uGetDeviceInfo.pas-Delphi 大神网

一个跨平台的、获取设备信息的单元 uGetDeviceInfo.pas

感谢群友 流浪 提供//convert pas to utf8 by ¥ unit uGetDeviceInfo; interface uses SysUtils, FMX.DeviceInfo, {$IFDEF MSWINDOWS} Winapi.Windows, Winapi.ShellAPI, {$ENDIF} {$IFDEF IOS...
1个月前
7013