Delphi/Pascal论坛 今日: 0|主題: 610|排名: 33 

在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？ 当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行 ...

delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列 Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大 ...

资料来原： 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中， ...

字符串比较函数 列表 方法 说明 大小写 System.SysUtils.TStringHelper.StartsWith 返回是否以给定的字符串开头。 区分大小写 System.SysUtils.TStringHelper.StartsText 返回是否以给定的字符串开头。 不区分大小写 System.SysUtils.TStringHelper.EndsWith 返回是否以给定的字符串结尾。 区分大小写 System. ...

sgcWebSocket 组件作为商业组件，相对比较成熟，今天研究一下，参考官网地址：https://www.esegece.com 服务端 sgcWebSocketServer 属性：Bindings 增加监听socket 配置监听Ip地址和端口 Active 激活监听功能 方法：OnConnect 客户端连接到服务端时触发的方法 OnMessage 收到客户端消息时触发的方法 至此，一 ...

1.新版本将集成Skia4Delphi。 这绝对是有史以来最重要的更新，官方通过深度集成Skia4Delphi，将实现更高质量的界面，更有效率的界面，从此，毛刺现象将成为历史！ 2.C++将集成Visual Assist。 这对于C++用户来说，绝对的福音！ 3.RTL，IDE，Compiler，Platform等质量优化与改进 新版将在这几个方面，继续提高效率与质 ...

获取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:% ...

修改AndroidManifest.template.xml，增加下面标粗的内容： <activity android:name="com.embarcadero.firemonkey.FMXNativeActivity" android:exported="true" android:excludeFromRecents="true" android:noHistory="true" android:windowDisableP ...

  相关资料： 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, ...

一、TValue结构 TValue定义在System.Rtti.pas 通过调用Make(...),将任意类型数据转换为TValue通过调用ExtractRawData(...), ExtractRawDataNoCopy(...)将TValue转换为任意数据类型，两者区别是ExtractRawDataNoCopy转换时在堆中申请内存的数据,而ExtractRawData是安全的。GetReferenceToRawData返回数据的指针，也是堆内存 ...

delphi 11.2 完整源码下载 详情请查看源码,现提供部分代码供大家查看 DELPHI智慧战神-技术群  603146133  原来的群已被查封，请大家加新群 unit uYouYouMgt; interface uses uSimpleBase, uEdgeCls, uIdhttpEx, System.SysUtils, System.StrUtils, uWebView2Horse, WebView2_TLb, uWebView2common, ...

  /////////////////////////////////////////////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后 ...

FastReport 导出报表 属性和方法 TfrxReport.Export function Export(Filter: TfrxCustomExportFilter): Boolean; 使用指定的导出过滤器导出报表。 参数 Filter 导出过滤器实例。 当报表组件构建报表并接收到另一个 PrepareReport 或 Export 命令时，它会将其放入延迟命令列表中，并在当前操作完成后才运行命令。在单线 ...

FastReport 常用功能 属性和方法 TfrxReport.LoadFromFile function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; 从给定名称的文件中加载报表。如果文件加载成功，返回True。 参数 FileName 文件的名称。 ExceptionIfNotFound 如果为True，如果文件不存在，函数会产生一个异常 ...

  摘要 许多公司为用户提供神经网络预测服务，应用范围广泛。然而，目前的预测系统会损害一方的隐私:要么用户必须将敏感输入发送给服务提供商进行分类，要么服务提供商必须将其专有的神经网络存储在用户的设备上。前者损害了用户的个人隐私，而后者暴露了服务提供商的专有模式。 我们设计、实现并评估了DELPHI，这是一 ...

DELPHI中EXCEL组件的使用方法: (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj:    var ExcelApp: Variant;    ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：    ExcelApp.Visible := True;2) 更改 Excel 标题栏：    Ex ...

安装FastReport 介绍 FastReport包含运行时包和设计时包。 设计时包的包名中有dcl前缀。 每个包都有一个编号，对应Delphi版本。 例如，dclfrx7.dpk 是 Delphi7 的设计时包。 FastReport 使用的包（* 表示 Delphi 版本）： fs*.dpk dclfs*.dpk FastScript, 主要包 fsDB*.dpk dclfsDB*.dpk FastScript, 数据库类和控件 f ...

报表控件介绍 FastReport VCL 概述 用于生成报告和文档的 VCL 组件集。它提供可视化模板设计器、对最流行数据源的访问、报告引擎、预览、导出过滤器到30多种格式，以及部署到云、网络、电子邮件和打印。 特征 快速可靠的报告生成引擎 以区域为导向的报表生成器。 基于代码的报表。 多页和多模板报表。 交叉表允许从单个数 ...

弹出选择目录对话框（选择文件夹） 代码 弹出Windows目录浏览器对话框 uses Vcl.FileCtrl; procedure TForm1.Button1Click(Sender: TObject); var vPath: string; begin //默认选择的目录 vPath := 'D:\ceshi'; //sdAllowCreate 显示输入目录名称的编辑框“Directory Name:” //sdPerformCreate 编辑框中目录不 ...

简单的设计一下界面,大致如下: 要求:审核或者反审核用户选择的数据　　 　　1.正常点审核时,审核=true,审核人=当前用户名 　　2.反审核时,审核=false,审核人=null  实现代码:   procedure TForm1.UpdateData(flg: Boolean); var i, n, Errors: Integer; PN, ID: string; begin if flg then PN := 'TE ...