ZylIdleTimer 1.41
ZylIdleTimer 是一个 Delphi / C++Builder 组件，它允许您在指定的系统范围（与整个系统相关）或应用程序（仅与应用程序相关）空闲时间后执行操作，或者检查用户不活动的时间间隔。系统空闲时间...
记录学Delphi安卓编程过程中的一个坑
以下这段代码在win10和在安卓下的执行顺序有区别：abcde为序号：在win中，顺序是abcdef，fs在修改后能保存，在安卓下，顺序是aefbcd，所以fs没能在修改后保存。a: TDialogService.MessageDialog...
fdmemtable 变更转sql脚本
fdmemtable 变更记录 转 sqlfdmemtable.cachedupdates = true然后才能获取{ 转载的 做了细微修改，网址忘了 引用 System.JSON; 函数名称：DBToJSON（TFDMemTable 数据转成SQL脚本更新） 参数：...
FDMemTable 数据保存本地和从本地加载
//保存 procedure TFrm_xxcha.Button4Click(Sender: TObject); var filename:string; begin if SaveDialog2.Execute then begin filename := SaveDialog2.FileName; FDMemTable1.SaveToFile(fil...
DeepSeek 介绍及对外国的影响
DeepSeek 简介DeepSeek（深度求索）是一家专注实现 AGI（人工通用智能）的中国科技公司，2023 年成立，总部位于杭州，在北京设有研发中心。与多数聚焦具体应用（如人脸识别、语音助手）的 AI 公...
Delphi医保接口 【1318】医保目录限价信息查
这个限价不停的更新就需要不停的下载，怎么保证最新呢，只能下载后在sql上想办法。分组取最新日期，其他条件可以自己加。Select * FROM ( SELECT t.*, ROW_NUMBER() OVER (PARTITION BY HILIST_...
合并两个TDateTime的日期和时间为一个新的时间
function CombineDateTime(const dateSource, timeSource: TDateTime): TDateTime; var datePart: TDateTime; timePart: TDateTime; begin datePart := DateOf(dateSource); // 提取日期部分 ti...
Delphi下的HMACSHA1编码及Base64转换
unit jmu1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sLabe...
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窗口分割用SPLITTER分割2个PANEL
在Delphi中放置两个Panel和一个Splitter组件，可以按照以下步骤操作：添加第一个Panel：在Form上添加一个Panel组件。设置第一个Panel的Align属性为alLeft（如果你希望垂直分割）或alTop（如果你...
Delphi中提取某个日期中的年、季、月、日
function DateYear(const ADate: TDateTime): Word; var Month, Day: Word; begin DecodeDate(ADate, Result, Month, Day); end; function DateQuarter(const D: TDateTime): Byte; var Year, M...
delphi实现post请求
delphi实现post请求，前提头部先引用IDHttp组件ContentType := ‘application/x-www-form-urlencoded’;var fhttpRequest: TIdHTTP; PostData : TStringStream; tmpStr : String; begin fhttpRe...
记录学习使用stylecontrols5.8控件的几个坑
坑1：TscListView控件的Bug：当OtherView.ViewStyle:=vsTile后会产生异常，经跟踪代码，是有一处integer溢出导致，具体也不知道是在哪个环节出的问题，加了几行判断代码修正后，不异常了，不知...
Delphi StyleControls之渐变色标题栏
RAD Studio 10.3 测试√【scStyledForm】DWMClientShadow-----------------设置窗体为无边框窗体【下面方法中使用一种即可实现】【scLabel、scPanel、scGPPanel】DragForm---------------------...
Delphi XE2 为 VCL 提供的 14 种样式
其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.在空白窗体上添加 ListBox1 等控件, 测试代码:uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Send...
Delphi12支持全屏显示启动界面的styles.xml
<resources xmlns:android='http://schemas.android.com/apk/res/android'> <style name='AppTheme' parent='@android:style/Theme.Material.Light.NoActionBar'> <item name='a...