address violation 0d1a0000 delphi
delphi 判断字符串里的char是单字节还是双字节的前一位或后一位。
function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / ......
delphi判断进程和杀进程函数
function TMainForm.CheckTask(ExeFileName: string): Boolean; //检测XX进程是否存在函数const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THa ......
: Only one usage of each socket address (protocol/network address/port) is normally permitted.
2023/10/16 19:07:45 tick2023/10/16 19:07:46 dial tcp 7.11.12.26:3309: connectex: Only one usage of each socket address (protocol/network address/port) ......
使用 Docker 在 Linux 上运行 Delphi 应用程序
从 Rad Studio 10.2 Tokyo 开始，可以编译和运行 Linux 服务器应用程序（无用户界面）。我们将使用 Ubuntu 准备一个 docker 映像， 以及通过 PAServer 在 Linux 上运行 Delphi 应用程序所需的一切。使用 Docker，我们可以将这些应用程序在 ......
解决 jmeter 压测Non HTTP response code: java.net.NoRouteToHostException/Non HTTP response message: Cannot assign requested address (Address not available)
针对centos : 先检查下tcp port range 在合理范围内： cat /proc/sys/net/ipv4/ip_local_port_range 1024 65535 上述为centos合理范围，不合理作出修改 解决方法：1. 调低端口释放后的等待时间， 默认为60s， 修改为15~ ......
What causes "Invalid Address specified to RtlValidateHeap"?
Forum Visual C++ & C++ Programming Visual C++ Programming What causes "Invalid Address specified to RtlValidateHeap"? If this is your first visit, be ......
delphi 自定义光标
自定义光标 代码 使用图像的方式 你可以使用两个位图（一个用于普通图像，一个用于遮罩图像）来创建图标，并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But ......
delphi模板开发
delphi模板开发 用模板开发，写代码就是填空题。 让开发变为填空题，这也是AI开发的指导思想。 1）制作模板 /// <author>cxg 2023-10-9</author> unit db.crud; interface uses System.Classes, System.SysUti ......
在ARM架构中，虚拟地址（Virtual Address，VA）与块地址
在ARM架构中，虚拟地址（Virtual Address，VA）与块地址（Block Address）之间存在一定的关系。 虚拟地址是指应用程序或操作系统使用的逻辑地址，用于在虚拟内存中存储和访问数据。虚拟地址到物理地址的映射由操作系统管理和控制，具体实现方式与具体的内存管理单元（MMU）的实现有关 ......
delphi 设置全局级别光标
设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu ......
Converting Virtual Addresses to Physical Addresses
Converting Virtual Addresses to Physical Addresses Most debugger commands use virtual addresses, not physical addresses, as their input and output. Ho ......
Delphi 指定句柄闪烁边框（待完善）
procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w:Integer; pen:integer; i:i ......
delphi中unit单元文件说明
单元(unit)是组成Pascal程序的单独的源代码模块，单元有函数和过程组成，这些函数和过程能被主程序调用。一个单元至少要有unit语句，interface，和implementation三部分，也能可选的包含initialization和finalization两部分： 一、必含部分 1、uni ......
delphi中FormDestroy和FormClose的区别和联系
在Delphi中，FormDestroy 和 FormClose 是用于处理窗体关闭事件的两个不同的事件处理程序。它们有一些区别和联系，下面我将详细解释它们之间的差异和关联： FormDestroy 事件： FormDestroy 事件是一个在窗体销毁时触发的事件。 这个事件通常用于释放在窗体生命周 ......
Delphi dll 传递字符串
//dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp ......
delphi AES CBC 解密
使用CNPACK 的单元来实现AES CBC 解密 CBC PKCS7 解密要注意的点是，如果解密内容不够16位整除要补#0 ar inbase64, outbase64: string; i:integer; Ret:string; TmpAesIv: TAESBuffer; IvStr: Ans ......
delphi泛型模板编程
delphi泛型模板编程 unit TxInfo; interface uses System.Types, System.Classes, System.SysUtils, Generics.Collections; type TPeople = record Name: string; Age: ......
Addressables
异步加载 使用LoadAsync方法：这是最常见的异步加载方式。LoadAsync方法返回一个AsyncOperationHandle对象，该对象可以用于跟踪加载的进度，并在加载完成后获取加载的资源。 使用AsyncOperationHandle的Completed事件：可以为AsyncOperat ......
恢复Delphi工具栏
打开注册表，找到下面项，把Toolbars删除！ 计算机\HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\22.0\Toolbars 重新进入Delphi，恢复默认状态！ 如下图的状态，删除后，恢复了！ ......
Delphi:cxGrid的使用方法
Delphi:cxGrid的使用方法 1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1 ......
delphi Base64转换（加密、解密）
Base64转换（加密、解密） 代码 字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn ......
Delphi XE 时间和时间戳互转换
uses System.DateUtils; function TForm1.Gettamptime(vlen: Integer): string; var ss: string; begin if vlen = 13 then begin ss := DateTimeToTimeStamp(now ......
delphi JSON序列化（四）
{ TDateTimeConverter } function TDateTimeConverter.CanConvert(ATypeInf: PTypeInfo): Boolean; begin Result := True; end; function TDateTimeConverter.Re ......
delphi 操作INI文件
转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客 Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、INI文件的结构：;注释[小节名]关 ......
delphi 修改电脑名称
有多少人是因为SetComputerName无效之后找到这里的?请在评论区报一下名. uses ShellAPI,windows; procedure TForm1.ChangeComputerName(const NewName: string); var Command: string; New ......
Delphi EOL Program
1.语言代码,德语为Windows-1252 Windows-1252 或 CP-1252 是拉丁字母的字元编码，主要用于英文、 爱尔兰语、意大利语、挪威语、葡萄牙语、西班牙语、瑞典语以及德语、芬兰语、冰岛语、法语、荷兰语（除了IJ字符）、斯洛文尼亚语(除了č字符)等西方文字版本 Microsoft ......
GOLANG：调用delphi7编写的dll
0. delphi对winapi有很强的封装，使其更易用。 1. delphi声明dll内函数 需要尽量以此方式： procedure test(data: pchar; count: integer);stdcall; 2.golang 调用方法： str := []byte("abcdedf") ......
Delphi7中单元文件内各个部分的执行顺序
注：本文主要是讨论delphi程序启动时和退出时的执行顺序，期间有些知识来源于Delphi帮助，有些来自《Delphi7程序设计教程》（这本书只告诉我有initialization 和 finalization 这两个关键字，但是没讲明白）（唉，现在的书只讨论框框架架，不讨论细节，写出来的东西让你看 ......
Delphi窗体的close,free,destroy等
[本人baidu博客全部搬家到csdn,baidu博客地址：http://hi.baidu.com/new/miracleconf] Delphi对窗体的关闭有多个函数： HideCloseFreeReleaseDestroyTerminateFreeAndNil()Halt 这些函数的区别是什么呢 ......
delphi json用法详解
在 Delphi 中，使用 JSON（JavaScript Object Notation）可以实现数据的序列化和反序列化，以便在不同系统之间传递和存储数据。下面是使用 Delphi 处理 JSON 的一些常见用法： 创建 JSON 对象： var jsonObject: TJSONObject; ......