Delphi的TValue探索
一、TValue结构
TValue定义在System.Rtti.pas
通过调用Make(...),将任意类型数据转换为TValue通过调用ExtractRawData(...), ExtractRawDataNoCopy(...)将TValue转换为任意数据类型，两者区别是ExtractRawDataNoCopy转换时在堆中申请内存的数据,而ExtractRawData是安全的。GetReferenceToRawData返回数据的指针，也是堆内存 ...
delphi 操作 TEdgeBrowser 获取与设置 Cookie
delphi 11.2 完整源码下载
详情请查看源码,现提供部分代码供大家查看
DELPHI智慧战神-技术群 603146133 原来的群已被查封，请大家加新群
unit uYouYouMgt;
interface
uses
uSimpleBase, uEdgeCls, uIdhttpEx, System.SysUtils, System.StrUtils, uWebView2Horse, WebView2_TLb, uWebView2common,
...
Delphi-UTF8转GBK
/////////////////////////////////////////////function TXml.getValue(str: string): string;//传入的UTF8字符串var s: string;begin if FBase64 then begin s := TNetEncoding.Base64.EncodeBytesToString(TEncoding.ANSI.GetBytes(str)); s := s.Replace(#13#10,''); Result := s;//输出UTF8转GBK后 ...
delphi FastReport 导出报表
FastReport 导出报表
属性和方法
TfrxReport.Export
function Export(Filter: TfrxCustomExportFilter): Boolean;
使用指定的导出过滤器导出报表。
参数
Filter 导出过滤器实例。
当报表组件构建报表并接收到另一个 PrepareReport 或 Export 命令时，它会将其放入延迟命令列表中，并在当前操作完成后才运行命令。在单线 ...
delphi FastReport 常用功能
FastReport 常用功能
属性和方法
TfrxReport.LoadFromFile
function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean;
从给定名称的文件中加载报表。如果文件加载成功，返回True。
参数
FileName 文件的名称。
ExceptionIfNotFound 如果为True，如果文件不存在，函数会产生一个异常 ...
Delphi 论文阅读 Delphi: A Cryptographic Inference Service for Neural Networks
摘要
许多公司为用户提供神经网络预测服务，应用范围广泛。然而，目前的预测系统会损害一方的隐私:要么用户必须将敏感输入发送给服务提供商进行分类，要么服务提供商必须将其专有的神经网络存储在用户的设备上。前者损害了用户的个人隐私，而后者暴露了服务提供商的专有模式。
我们设计、实现并评估了DELPHI，这是一 ...
DELPHI中EXCEL操作
DELPHI中EXCEL组件的使用方法:
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口： ExcelApp.Visible := True;2) 更改 Excel 标题栏： Ex ...
delphi 安装FastReport
安装FastReport
介绍
FastReport包含运行时包和设计时包。 设计时包的包名中有dcl前缀。
每个包都有一个编号，对应Delphi版本。 例如，dclfrx7.dpk 是 Delphi7 的设计时包。
FastReport 使用的包（* 表示 Delphi 版本）：
fs*.dpk dclfs*.dpk FastScript, 主要包
fsDB*.dpk dclfsDB*.dpk FastScript, 数据库类和控件
f ...
delphi 报表控件介绍
报表控件介绍
FastReport VCL
概述
用于生成报告和文档的 VCL 组件集。它提供可视化模板设计器、对最流行数据源的访问、报告引擎、预览、导出过滤器到30多种格式，以及部署到云、网络、电子邮件和打印。
特征
快速可靠的报告生成引擎
以区域为导向的报表生成器。
基于代码的报表。
多页和多模板报表。
交叉表允许从单个数 ...
delphi 弹出选择目录对话框（选择文件夹）
弹出选择目录对话框（选择文件夹）
代码
弹出Windows目录浏览器对话框
uses Vcl.FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
vPath: string;
begin
//默认选择的目录
vPath := 'D:\ceshi';
//sdAllowCreate 显示输入目录名称的编辑框“Directory Name:”
//sdPerformCreate 编辑框中目录不 ...
delphi FireDAC使用ApplyUpdates批量提交数据
简单的设计一下界面,大致如下:
要求:审核或者反审核用户选择的数据
1.正常点审核时,审核=true,审核人=当前用户名
2.反审核时,审核=false,审核人=null
实现代码:
procedure TForm1.UpdateData(flg: Boolean);
var
i, n, Errors: Integer;
PN, ID: string;
begin
if flg then
PN := 'TE ...
delphi类助手helpers，这个NB，省事、大幅提高效率
1、我们会想要能够对一个数据型别进行扩充，而不想继承类别。
2、如果我们想为一个组件类别加入新的方法，为它提供新的功能，而且不想通过继承来做。(如对TFDMEMTable增加方法等，你就得继承做处理，or做成控件进行安装...很繁琐）
那就使用class或者Record助手：
这些特殊用途的数据型别能够延伸现有的 ...
delphi 删除目录（文件夹）
删除目录（文件夹）
代码
调用 RmDir 删除目录
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建测试目录
ForceDirectories('D:\测试目录1\目录1');
ForceDirectories('D:\测试目录1\目录2');
//删除空目录
RmDir('D:\测试目录1\目录1');
//删除非空目录报错
try
RmDir('D:\测试目录1');
...
delphi 创建目录（文件夹）
创建目录（文件夹）
代码
调用 MkDir 创建目录
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建目录
MkDir('D:\测试目录1');
//如果目录存在时引发异常
try
MkDir('D:\测试目录1');
except
ShowMessage(Exception(ExceptObject).Message);
end;
//父目录不存在时引发异常
try
M ...
delphi+FPC一个纯key-value二进制存储
delphi+FPC一个纯key-value二进制存储
适用于DELPHI和FPC。
众所周知，JSON就是典型的key-value存储。
{
"name":"咏南" ,
"url":"www.咏南中间件.com"
}
笔者弄了一个DELPHIkey-value二进制存储。
可用于数据序列/还原、缓存数据，方法参数传递。。。
TSerialize = class
private
fValue: TBytes;
fKey: ...
delphi通过方法名调用方法
delphi通过方法名调用方法
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TFunc = procedure(Param: string) of object; //定义方法原型
TForm1 = cl ...
【最新】Delphi XE7 绿色版下载，亲测可用！
最后更新时间 2017-12-05.
本文整理自2ccc盒子iny的帖子 → 链接到原贴
破解 → 链接
一、绿色版介绍
绿色版除了不包含 FastReport（RAD Studio自带的FastReport为精简版），其它均为完整版，没有做任何的精简，也没有做任何的改动！
绿色版包括了绿化程序1.0版(RADStudioXE7Green.exe)，如有更新，仅仅只需要更新RADSt ...
C#.NET制作DLL供DELPHI调用
因为工作需求，本来想用C#做一个WebService，但是弄了两天没做成。于是想，反正都是我这一台电脑，做个DLL吧。
1 namespace U8Service
2 {
3 public interface IMyFunc
4 {
5 int Jia(int a, int b);
6 int Jian(int a, int b);
7 }
8 [ClassInterface(ClassInterfaceType.None)] ...
mormot2ORM
mormot2ORM
unit mormot.orm.core;
/// root class for defining and mapping database records
// - inherits a class from TOrm, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fill ...
mormot118ORM
mormot118ORM
unit mORMot;
/// root class for defining and mapping database records
// - inherits a class from TSQLRecord, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fille ...
