自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(706)
  • 资源 (18)
  • 收藏
  • 关注

原创 delphi 主线程sleep

这段Delphi代码实现了一个延时函数Delay(mSecs),通过循环检查系统时间来达到精确延时效果。函数使用GetTickCount获取初始时间t,在循环中调用Sleep(10)降低CPU占用率,并通过Application.ProcessMessages保持

2025-07-10 20:16:24 79

原创 delphi,c++程序 阻止Win11 用户更改系统时间

摘要:该代码实现了Windows服务的重启功能,通过W32Time服务解决用户修改系统时间导致的问题。主要包含四个函数:1)获取服务状态;2)停止服务(含超时等待);3)启动服务;4)核心重启服务功能。使用WinSvc API进行服务操作,包括状态查询、停止、启动等操作,并处理了服务已运行/停止等特殊情况。重启过程先停止后启动,

2025-07-07 20:05:36 110

原创 sqlserver 获取cpu序列号,主板序列号,硬盘序列号

摘要:该文档展示了SQL Server中xp_cmdshell功能的配置与使用说明。首先介绍了如何通过sp_configure命令启用和禁用xp_cmdshell扩展存储过程。随后列举了多个xp_cmdshell的实用示例,包括获取MAC地址、执行ipconfig命令查询网络配置、查询系统进程信息、获取平台版本以及通过PowerShell获取处理器ID等系统信息操作。(94字)

2025-07-01 19:06:09 113

原创 delphi wmi方式获取cpu,硬盘,主板序列号

本文展示了一个Delphi 10.3.2开发的Windows 11硬件信息查看程序。程序包含一个主窗体(Form1)和硬件信息单元(HardwareInfoUnit),通过三个按钮分别获取CPU序列号、硬盘序列号和主板序列号,并将结果显示在Memo控件中。硬件信息获取采用了双重机制:优先通过注册表或WMI查询获取,失败时转为使用API方法。程序特别处理了硬件序列号中的无效字符和特殊值("None"、"To be filled by O.E.M."等),确保返回有效的硬

2025-06-29 12:32:53 42

原创 delphi cef4 google鼠标点击下一页实现翻页

这段代码实现了一个自动翻页功能,首先滚动到页面底部,然后延迟2秒模拟点击"下一页"按钮。点击过程包含平滑滚动定位和坐标计算,并在1秒延迟后执行点击操作。同时启动后台线程监控URL变化,最多检查10次(每次间隔1秒),若URL改变则提示翻页成功并显示新URL。整个过程通过Chromium

2025-06-28 18:56:35 92

原创 delphi 调用deepseek r1 api 并流式返回结果

摘要:本文展示了一个使用Delphi调用DeepSeek API的代码示例,包含两种调用方式:一次性获取结果和流式返回结果。代码实现了完整的API请求处理,包括HTTP客户端设置、JSON数据处理和UI界面交互。其中流式调用通过TStreamReader处理服务器发送事件(SSE),实时更新到TRichEdit控件并保持滚动条位置。文章还提到界面美化优化,为Delphi开发者提供了调用AI服务的实用参考方案。(150字)

2025-06-13 16:42:17 60

原创 delphi ENetHTTPCertificateException with message ‘Server Certificate Invalid or not present‘.

摘要:解决SSL服务器证书校验问题时,可在NetHTTPClient的OnValidateServerCertificate事件中设置Accepted:=True强制接受所有证书。若之后仍出现"Error getting Server Certificate"错误

2025-06-12 14:11:37 221

原创 纯html,js创建一个类似excel的表格

摘要:该系统为基于PHP的员工绩效管理平台,支持数据增删改查操作。主要功能包括:1)员工绩效数据表格化管理,支持按年月查询;2)动态添加/删除员工记录;3)积分

2025-05-29 09:55:15 474

原创 sqlserver2008行专列PIVOT

该SQL语句将原始数据表(cxt_custom_achievements)转换为员工绩效日明细表,通过PIVOT操作将日期(d)转换为31个列(1号-31号)。原始表包含员工代码(cxtcode)、姓名(staffname)、年份(y)、月份(m)、日期(d)、总分(totalaccount)和当日分(account)字段。转换后形成新表,每行对应一个员工某年某月的绩效记录,包含1-31日的每日绩效值(SUM(account)),便于按日期维度分析员工绩效分布情况。关键点在于使用PIVOT函数将行数据转为列

2025-05-28 09:44:54 156

原创 delphi7 请求.net core web api 返回400错误

在遇到编码解析错误时,通常是由于JSON数据未正确转换为UTF-8格式导致的。正确的做法是将所有JSON数据通过AnsiToUtf8转换后放入TStringStream中。代码示例展示了如何从数据库中获取配料信息,并将其转换为JSON格式后

2025-05-19 17:24:44 151

原创 unigui 监听控件的js事件

本文介绍了如何在Delphi的UniDBGrid组件中处理select、edit和keydown等事件。通过UniDBGrid1AjaxEvent方法,可以捕获并处理Ajax事件,如beforeedit、keydown和select。在keydown事件中,当按下下箭头键时,程序会检查当前列是否为第二列,并自动完成编辑,移动到下一行。此外,UniButton1Click方法用于执行SQL查询并显示结果。UniFormCreate方法则用于设置UniDBGrid的数值编辑器的精度。通过这些方法,开发者可以更好

2025-05-19 13:58:42 39

原创 .net mini api 手动触发校验实体必填信息等

在MVC框架中,实体注解的校验是自动触发的,但在Miniapi中,这一过程需要手动实现。例如,在/PostDishesIngredient的POST请求中,开发者需要显式调用Validator.TryValidateObject方法来校验实体类的必填信息。如果校验失败,系统会返回包含错误信息的400 Bad Request响应。这种方式确保了数据在进入数据库前符合预定义的规则,尽管增加了代码的复杂性,但提供了更高的灵活性和控制力。

2025-05-16 09:02:14 132

原创 delphi dicom服务端

本文介绍了一款使用Pascal语言编写的DICOM工具,支持Delphi 10.3版本,用于模拟发送DICOM文件进行测试。用户首先需要在setup中配置DICOM服务器的IP地址,随后通过echo ok和store dcm文件测试,若返回ok则表明DICOM服务器运行正常。此外,该工具还支持直接在CT或DR设备上进行测试。开发者提供了完整的源代码,有需要的用户可联系获取。

2025-05-13 10:54:13 198

原创 using var connection = connectionFactory.CreateConnection(); using var 是什么意思

在 .NET 中,​​ 确实是自动管理内存的机制,但它 ​​(如类实例、数组等)。然而,对于 ​​(如文件句柄、数据库连接、网络套接字等),垃圾回收机制​​,需要开发者手动管理。

2025-04-30 17:21:00 415

原创 c++ ole直连sqlserver参数化语句防注入

以前写程序,安全性从来没注意过,最近搞web,接触到一些安全的东西。

2025-04-28 17:30:38 114

原创 中国地图坐标查询

【代码】中国地图坐标查询。

2025-04-16 11:23:56 271

原创 最近在学习web搞大屏看板

人到中年,delphi发展越来越不行,就业环境是真差啊,没办法,学呗。

2025-04-16 10:50:17 265

原创 delphi7 edit 提示

d7下生成edit提示文字placeholde,r如上图。

2025-04-14 14:09:36 56

原创 一个python简单的射击游戏

【代码】一个python简单的设计游戏。

2025-04-13 19:51:33 145

原创 python 项目创建项目的私有虚拟包命令

py -m venv .venv

2025-04-12 11:20:22 107

原创 echarts 扇形边框阴影与颜色

【代码】echarts 扇形边框阴影与颜色。

2025-04-11 14:14:57 468

原创 echarts 柱状图x,y轴线条颜色,文字颜色设置

【代码】echarts 柱状图x,y轴线条颜色,文字颜色设置。

2025-04-11 11:40:49 1295

原创 js合并数组中的对象,如果是数值则累加

【代码】js合并数组中的对象,如果是数值则累加。

2025-04-10 11:42:23 129

原创 快速解决windows软件多国语言乱码问题,无需修改代码

对于设计时就已经跨语言的,那没问题,首先创建要开机启动的软件的快捷方式。下面是qt代码实现多国语言。那如何不改软件使用呢?如何快速适应,使用?

2025-04-09 11:57:08 568

原创 delphi idtcpserver 搭建tcp ,ssl协议服务端

如果想用indy idtcpserver实现tcp ssl,那么正是你需要的。caroot.crt 其实就是复制ca.crt。idtcpserver 用的三个证书

2025-04-08 21:05:04 422

原创 delphi 对象与json互转

【代码】delphi 对象与json互转。

2025-04-08 14:56:55 150

原创 html 列表循环滚动,动态初始化字段数据

【代码】html 列表循环滚动,动态初始化字段数据。

2025-03-31 17:52:06 363

原创 对.net 的改变

这种mes系统,别人都开源了,上手就能撸业务,权限其他的基础东西,人家都搞好了。以前有点鄙视.net,因为在winform下,确实有的不如delphi 写的应用,妈蛋,好爽啊,和php一样,比php环境配置还简单,调试也方便,眼拙了。但最近解除到.net core 写 网站,对他的看法有了改变,而且界面全由前端的能力高低,界面很漂亮,mvc模式也很好理解,生态太重要了,.net 搞网站真的资源太多了,

2025-03-28 16:37:28 185

转载 TP6简单的Hello World

a)httpd.conf 启用 LoadModule rewrite_module modules/mod_rewrite.so (去掉前面的#)原文链接:https://blog.csdn.net/u012764444/article/details/106905916。c)在public下的.htaccess文件中(内容不用修改,默认生成的就是这样)// 禁止URL访问的应用列表(自动多应用模式有效)// 应用映射(自动多应用模式有效)// 域名绑定(自动多应用模式有效)// 应用的命名空间。

2025-03-25 10:07:39 65

原创 fastapi+playwright爬取google搜索1-3页的关键词返回json

【代码】fastapi+playwright爬取google搜索1-3页的关键词返回json。

2025-03-23 19:49:32 190

原创 delphi12.3更新内容

修复了CRJSON之间模棱两可的错误。在VirtualTable组件的LoadFromFile方法中增加了对JSON文件格式的支持。在Windows平台的Lazarus组件编辑器中增加了对语法高亮显示的支持。在Oracle 23及更高版本中增加了对BOOLEAN数据类型的支持。在组件编辑器中增加了对TurboPack SynEdit包的支持。修复了在数据集中更新具有TEXT类型关键字段的记录的错误。增加了在设计时在SQL生成器中使用只读字段的功能。修复了当使用连接池时卸载OpenSSL库的错误。

2025-03-21 08:37:40 1012

原创 Delphi 12.3 精简绿色版下载

Delphi精简绿色版基于原版安装,去掉了InterBase、法语、德语、日语,只保留了Delphi Windows 32和Delphi Windows 64桌面开发,其余部分未做任何修改。Delphi精简绿色版不含任何破解,仅供学习和研究,24小时后请自行删除,如需继续使用Delphi,请购买正版。绿色版基于原版安装,未做任何精简和修改。绿色版不含任何破解,仅供学习和研究,24小时后请自行删除,如需继续使用RAD Studio,请购买正版。

2025-03-20 10:00:56 1796

原创 AI里的RAG到底是什么?

AI大模型如deepseek本地部署的成本相对较低,如果要训练,微调大模型,则需要非常多的显卡,与很多时间,那一般企业无法投入那么多钱去买显卡,怎么办?通过RAG与本地部署来提升大模型的专业知识RAG(Retrieval-Augmented Generation,检索增强生成)是一种将与结合的AI技术范式,通过动态引入外部知识提升大模型输出的准确性和时效性。

2025-03-19 21:14:38 847

转载 WPF MaterialDesign 开源免费UI组件的介绍和简单使用

Material Design是一款简单好用的WPF样式和控件库,其详细介绍请参考官网。Material Design是一个很好用的WPF样式库和控件集,对于稍微有点WPF基础的开发者非常友好。简单好用是我的第一感:直接使用NuGet就可以获取到资源包,通过其官方的DemoApp(MaterialDesignDemo)很容易使用控件和样式,上手贼快。

2025-03-11 17:31:05 221

原创 delphi 正则提取html中的内容

...

2025-03-10 20:31:01 269

转载 理解OAuth 2.0

在详细讲解OAuth 2.0之前,需要了解几个专用名词。它们对读懂后面的讲解,尤其是几张图,至关重要。(1):第三方应用程序,本文中又称"客户端"(client),即上一节例子中的"云冲印"。(2):HTTP服务提供商,本文中简称"服务提供商",即上一节例子中的Google。(3):资源所有者,本文中又称"用户"(user)。(4)User Agent:用户代理,本文中就是指浏览器。(5):认证服务器,即服务提供商专门用来处理认证的服务器。(6)

2025-03-08 22:49:03 66

原创 支付宝当面付java,php,sdk下载

在解压的当面付 Demo 中,找到 properties 配置文件,将其中的 appid、pid、private_key、public_key 的值替换为开发者申请的相关值。为了帮助开发者调用开放接口,支付宝提供了开放平台服务端 SDK,包含 Java、PHP、NodeJS、Python 和 .NET 等语言版本,DEMO 中封装了签名 & 验签、HTTP 接口请求等基础功能。Visual Studio 2010 及以上+ .NET framework 3.5 及以上。php5.5 及以上。

2025-03-08 11:11:04 407

原创 delphi cef4获取google搜索页面保存本地文件

1,cef4的bin文件可以自定义存放。4,cef4 将html 存到本地文件。3,cef4取消窗口置顶。

2025-03-03 21:38:53 110

转载 string、const char*、 char* 、char[]相互转换(全)

3、 char*变constchar*容易,const char*变char*麻烦。//char[]类型转const char* 类型。//const char*类型转char*类型。

2025-02-28 15:46:51 204

原创 Fdog-Kit挺漂亮的qt开源界面

挺漂亮的开源界面最新版本:V.0.6目前仅支持windows,有问题,请提Issues。如果对您有帮助,帮忙点一个小小的star!

2025-02-27 18:03:08 585

如题,一个java写的escpos 虚拟打印服务,可以接收软件发过来的打印命令,并保存到文件,源码

如题,一个java写的escpos 虚拟打印服务,可以接收软件发过来的打印命令,并保存到文件,源码

2025-03-25

GSmartControl 是smartctl的图形界面(来自smartmontools),用于查询和控制现代硬盘驱动器和sSD.上的SMART数据 它允许您检查驱动器运行状况并运行各种测试

GSmartControl 是smartctl的图形界面(来自smartmontools),用于查询和控制现代硬盘驱动器和sSD.上的SMART数据。它允许您检查驱动器运行状况并运行各种测试。

2025-03-25

wppay是一个wordpress的插件源码,可以设置文章付费显示某些内容,或付费下载,亲测可用支付宝

wppay是一个wordpress的插件,可以设置文章付费显示某些内容,或付费下载,亲测可用,wordpress博主们的福音, php开发,源码,支持支付宝,已测试成功

2025-03-19

sqlserver查询分析器独立版单exe文件,支持2008,2012

sqlserver查询分析器2000,可在win10.2012,win7上运行,一个exe,4M

2023-11-09

delphi VGScene for xe版本

delphi fmx的前世,只支持delphi7,这个支持xe等高版本,有需要的可以付费下载

2022-05-27

航天金税最新接口3.0

航天金税最新数据接口,发票导入,导出,xml格式,最新最新

2016-07-04

redis客户端delphi版

歼10兄的redis客户端驱动,支持delphi7到xe,支持发布订阅等

2016-08-10

超靓扁平化图标1000多个打包下载

win8,win10等扁平化图标,超好看,应该有1000多个,方便制作漂亮的ui

2016-05-16

delphi 真正透明panel ,使用简单

delphi7正常使用,可以放在任何容器内,依旧透明

2016-05-18

delphi 自定义消息窗口和进度条窗口,使用方便

和showmessage一样好用,定时自动关闭提示窗口, 进度条窗口也可以各种自定义,很cool

2016-06-15

jpg,bmp,png批量互转工具

jpg转bmp,bmp转jpg,png转bmp,bmp转png,批量多线程gf

2016-05-21

jpg,bmp,png批量互转工具,非常好用

jpg转bmp,bmp转jpg,png转bmp,bmp转png,批量多线程

2016-05-21

delphi Mqtt服务端和客户端源码

应该是老外写的,偶尔看到就下下来了,通讯用的是ics,我一并打包进去了,希望大牛能集成到开源的diocp里

2016-12-07

Qrbtree delphi7 红黑树

qdac里的红黑树 改了下,delphi7能用,还有哈希列表,不错

2018-05-25

delphi ado 数据库连接池

自己的项目一直用着,delphi7,xe7都可以用,做服务端开发必备

2016-05-05

delphi 窗口文件ImeName输入法清空工具,遍历所有子目录

遍历所有子目录,带进度条,把ImeName里的输入法自动清空, 方便使用

2016-06-12

windows下微软mpi 并行编程组件,包含头文件,安装包,sdk,动态库等,及demo

windows下微软mpi 并行编程组件,包含头文件,安装包,sdk,动态库等,及demo

2020-12-29

武希松大牛的dll Hook单元,delphi源代码加demo

delphi-hook-library, wr960204武稀松.2012.2 主页 http://www.raysoftware.cn 通用Hook库. 支持X86和X64. Get 使用了开源的BeaEngine反汇编引擎.BeaEngine的好处是可以用BCB编译成OMF格式的Obj, 被链接进Delphi的DCU和目标文件中.不需要额外带DLL. BeaEngin引擎 http://www.beaengine.org/ 限制: 1.不能Hook代码大小小于5个字节的函数. 2.不能Hook前五个字节中有跳转指令的函数. 希望使用的朋友们自己也具有一定的汇编或者逆向知识. Hook函数前请确定该函数不属于上面两种情况. 另外钩COM对象有一个技巧,如果你想在最早时机勾住某个COM对象, 可以在你要钩的COM对象创建前自己先创建一个该对象,Hook住,然后释放你自己的对象. 这样这个函数已经被下钩子了,而且是钩在这个COM对象创建前的.

2016-05-05

jpg与bmp批量互转工具,非常好用

jpg图片与bmp图片批量互转的工具

2016-05-21

delphi scalemm2

比fastmm更快的内存管理 支持 delphi7 ScaleMM is faster and scales a lot better than FastMM in multithreaded scenarios. I started with this project by making proof-of-concept to see if I could make a simple and very small and compact MM, which is not as bloated (or difficult to understand) as FastMM. And of course it must scale on multi core CPU's. I failed on the first goal (ScaleMM2 is not easy to understand, because MM's are not easy!) but succeeded on the latter.

2018-04-27

delphi7 SSL 控件 SecureBlackbox

delphi版,包含源码,文档,demo,安装方法,此控件支持indy,rtc,等ssl安全通讯,无需限任何dll,安全性极高,脱离openssl的漏洞百出

2016-05-09

路由器压力测试工具

警告:不能用来做坏事 运行程序后会发送大量UDP包 发布本软件的目的是为了测试局域网的网络环境, 无线路由器可以测试无线频点干扰及无线吞吐量 测试路由器的性能 运行后打开任务管理器-联网 运行ping 192.168.1.1 -t 测试响应速度

2016-05-07

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除