delphi Base64转换（加密、解密）
Base64转换（加密、解密）
代码
字符串加密、解密
uses System.NetEncoding;
procedure TForm1.Button1Click(Sender: TObject);
var
str1, str2: string;
begin
//加密
str1 := TNetEncoding.Base64.Encode('测试数据');
Memo1.Lines.Add('加密数据 ' + str1);
//解密
str2 := TNetEncoding.Base64.Decode(str ...
delphi 操作INI文件
转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客
Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。
一、INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个 ...
delphi json用法详解
在 Delphi 中，使用 JSON（JavaScript Object Notation）可以实现数据的序列化和反序列化，以便在不同系统之间传递和存储数据。下面是使用 Delphi 处理 JSON 的一些常见用法：
创建 JSON 对象：
var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.Create;
try
jsonObject.AddPair('name', 'John');
jsonObje ...
Delphi 数据类型
在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型：
1. 整数类型：
- `Byte`：无符号8位整数。
- `Shortint`：带符号8位整数。
- `Word`：无符号16位整数。
- `Smallint`：带符号16位整数。
&nbs ...
delphi FireDAC 分页查询
FireDAC 分页查询
代码
分页查询
procedure TForm1.Button1Click(Sender: TObject);
begin
//设置每页返回的记录数（获取的最大记录数）
FDQuery1.FetchOptions.RecsMax := 20;
//获取第1页的数据（从0开始，相当于SELECT * FROM tceshi LIMIT 20 OFFSET 0）
FDQuery1.FetchOptions.RecsSkip := 0;
//查询数据
...
delphi截取字符串心得
在Delphi的日常开发中，确实经常需要截取字符串来满足不同的需求。Delphi自身提供了一些字符串处理函数，但有时候这些函数可能不够用或者使用起来不够方便。下面我将分享一个自己在Delphi开发中用于截取字符串的进一步封装的函数。
/////////////////////////////////////
//提取字符串中指定子字符串前的字符串
fu ...
delphi orm
delphi orm
以计量单位为例。
1）定义单位data-model，实际项目，为了加快开发速度，会使用工具从数据表自动生成data-model。
生成的计量单位data-model
unit danwei.model;
/// <author>cxg 2023-8-30</author>
interface
type //定义 数据模型(data-model)
Tdanwei = record
unitid: string;
uni ...
delphi FastReport 预览设置
FastReport 预览设置
属性和方法
TfrxPreviewOptions.AllowEdit
property AllowEdit: Boolean;
启用或禁用已完成的报表编辑。默认值为 True。
TfrxPreviewOptions.AllowPreviewEdit
property AllowPreviewEdit: Boolean;
在报表预览中启用就地编辑器。允许用户在没有报告报表设计器的情况下编辑准备好的报表文本和其他属 ...
delphi FastReport 打印设置
FastReport 打印设置
属性和方法
TfrxPrintOptions.Copies
property Copies: Integer;
默认可打印份数。默认值为 1。
TfrxPrintOptions.Duplex
property Duplex: TfrxDuplexMode;
全局双工设置。仅在准备报表后设置。
TfrxPrintOptions.PrintMode
property PrintMode: TfrxPrintMode;
打印模式。默认值为 pmDefault。
Tf ...
Delphi应用EXCEL（3） 使用OLEOBJECT
1、创建EXCEL的方法
首先创建 Excel 对象，使用单元ComObj :
Var
ExcelApp : Variant ; begin
ExcelApp := CreateOleObject ( '' Excel.Application '' ) ;
使用OLEOBJECT创建的EXCEL应用程序是一个Variant类型，所以DELPHI不能自动补充语句，也没有帮助文件，需要到visual basic中去寻求帮助，完成功能语句的调用。 ...
delphi应用EXCEL（2） 使用delphi控件
Delphi的excel控件在servers面板中，有些版本的DELPHI中未打开这些控件，但都是安装了的，手动去打开即可。
在servers控件选项页面中，选择ExcelApplication、ExcelWorkbook和ExcelWorksheet这3个控件。
ExcelApplication：用于启动/关闭EXCEL应用程序。
ExcelWorkbook：用于连接工作薄。
ExcelWorksheet：用于连接工作表 ...
使用Delphi编写DLL劫持内存补丁
在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？
当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行 ...
delphi常用函数大全
delphi常用函数大全（转）
Abort函数引起放弃的意外处理
Abs函数绝对值函数
AddExitProc函数将一过程添加到运行时库的结束过程表中
Addr函数返回指定对象的地址
AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列
Align属性使控件位于窗口某部分
Alignment属性控件标签的文字位置
AllocMem函数在堆栈上分配给定大 ...
delphi如何把json传递过来的base64值转成图片
资料来原：
https://blog.csdn.net/red_eye/article/details/129634709 delphi如何把json传递过来的base64值转成图片
https://blog.csdn.net/zisongjia/article/details/103423915 Delphi 读取PNG base64编码文件生成图片
delphi如何把json传递过来的base64值转成图片
在Delphi中， ...
delphi 字符串比较函数
字符串比较函数
列表
方法
说明
大小写
System.SysUtils.TStringHelper.StartsWith
返回是否以给定的字符串开头。
区分大小写
System.SysUtils.TStringHelper.StartsText
返回是否以给定的字符串开头。
不区分大小写
System.SysUtils.TStringHelper.EndsWith
返回是否以给定的字符串结尾。
区分大小写
System. ...
WebSocket-scgWebSocket For Delphi
sgcWebSocket 组件作为商业组件，相对比较成熟，今天研究一下，参考官网地址：https://www.esegece.com
服务端
sgcWebSocketServer
属性：Bindings 增加监听socket 配置监听Ip地址和端口
Active 激活监听功能
方法：OnConnect 客户端连接到服务端时触发的方法
OnMessage 收到客户端消息时触发的方法
至此，一 ...
Delphi 12 最新消息
1.新版本将集成Skia4Delphi。
这绝对是有史以来最重要的更新，官方通过深度集成Skia4Delphi，将实现更高质量的界面，更有效率的界面，从此，毛刺现象将成为历史！
2.C++将集成Visual Assist。
这对于C++用户来说，绝对的福音！
3.RTL，IDE，Compiler，Platform等质量优化与改进
新版将在这几个方面，继续提高效率与质 ...
delphi 获取MD5
获取MD5
代码
uses
System.Hash;
procedure TForm1.Button1Click(Sender: TObject);
var
vStream: TMemoryStream;
vBytes: TBytes;
I: Integer;
begin
//获取字符串的MD5值
Memo1.Lines.Add(THashMD5.GetHashString('测试数据'));
//获取文件的MD5值
Memo1.Lines.Add(THashMD5.GetHashStringFromFile('C:% ...
Delphi实现禁止与允许App截屏
修改AndroidManifest.template.xml，增加下面标粗的内容：
<activity
android:name="com.embarcadero.firemonkey.FMXNativeActivity"
android:exported="true"
android:excludeFromRecents="true"
android:noHistory="true"
android:windowDisableP ...
Delphi-Delphi通过管道执行外部命令行程序（cmd）并获取返回结果
相关资料：
https://www.shuzhiduo.com/A/gGdXxNGmd4/ Delphi通过管道执行外部命令行程序（cmd）并获取返回结果
实例代码：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, ...
