自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(59)
  • 资源 (61)
  • 收藏
  • 关注

原创 mysql 日志操作

【代码】mysql 日志操作。

2025-04-08 20:34:32 80

原创 mysql 的安装

2、安装方式:在 Windows 上安装 MySQL,通常有两种方式:使用 MySQL Installer 或使用 ZIP 包。

2025-04-06 18:45:41 463

原创 国密算法 SM2(SM3withSM2)

知道SM2加密方式,SM2(SM3withSM2)加个括号不知道干啥了,先SM3在SM2?加密后和java部分的生成的签名对不上,直接SM2能和c#,java生成的签名对上了。SM2的称谓=SM(SM3withSM2)原理SM2签名按国标规范就是SM3withSM2,错略理解Sm2在计算过程中凑杂用到SM3。通过对报文数据筛选、排序和拼接,组成待签名报文数据(参考实现:医保电子凭证中心下发的“(1-24)医保局加解密方法工具类 V1.0” 中的 SignUtil 和 EasyGmUtils)。

2025-03-12 11:55:37 251 1

原创 无类型参数

delphi 中 经常用到var Buffer、const Buf 两个无类型参数的定义 ,一直都当做Pointer类型去用,理解还是肤浅了,处理传递指针还还可以传值,我类型参数可以当做是一段内存。

2025-03-06 15:07:47 177

原创 路径设置jcl run lib

备注下,方便以后查,run路径很重要

2025-03-02 13:16:32 70

原创 4个延时函数

/定时器没有创建成功。showmessage(‘到点了’);//其中的identer是定时器的句柄。1、挂起,不占CPU。2、不挂起,占cpu。4、不占CPU不挂起。

2025-02-21 09:39:21 173

原创 vcl gdi+

Mitov Software:http://www.mitov.comdown:http://www.mitov.com/IGDIPlus.zipdelphi7下可用下载:https://download.youkuaiyun.com/download/ljklxlj/90374466

2025-02-12 21:41:57 328

原创 rdian是一个结构体,pdian=^Rdian,list泛型做什么用?

不明白不让编译的原因,记录下之遇到注意原油。

2025-02-10 23:54:10 269

原创 Left side cannot be assigned to

Delphi XE E2064 Left side cannot be assigned to 错误解决方法-优快云博客

2025-02-10 23:31:04 222

原创 delphi 报错 range check,改属性后,一定要重新builde

2025-02-10 23:26:39 84

原创 判断字符是否是汉字

/ 设置是否包含汉字返回值为true。// 是否包含汉字返回值默认为false。// 设置包含汉字位置。// 是否包含汉字返回值。count := 1;// 包含汉字位置默认为1。// 包含汉字位置递增。// 循环判断每个字符。

2025-01-11 18:41:25 225

原创 PIXEL_FORMAT_RGB_1555‌格式的颜色

‌ 是一种像素格式,每个像素占用16位,其中1位用于alpha通道,5位分别用于红色、绿色和蓝色分量。这种格式通常用于需要节省存储空间的场景,因为它能够以较少的位数表示颜色信息。

2025-01-11 09:28:13 261

原创 很标准但感觉那都不对,这文字越看越迷糊了

UDP服务器设计是指在Pascal语言中实现一个基于用户数据报协议(UDP)的服务器程序,UDP是一种无连接的传输层协议,它不保证数据的可靠传输,但具有较高的传输速度,在Pascal语言中,我们可以使用Indy组件库来实现UDP服务器。当客户端向服务器发送数据时,会触发TIdUDPServer对象的OnUDPRead事件,在这个事件中,我们需要获取客户端发送的数据,并进行相应的处理。设置TIdUDPServer对象的Bindings属性,指定服务器监听的IP地址和端口号。// 处理客户端发送的数据的方法。

2025-01-10 17:43:40 406

原创 ISuperObject操作数组

/输出:{"A":["a","b","c","d"]}//输出:[{"a":1},"b","c","d"]// 输出:["a","b","c","d"]

2025-01-08 11:46:09 275

原创 我的杂记一

/用户消息上加beginend;beginend;end;

2025-01-01 11:12:29 1116

原创 非对称加密使用的是RSA算法

因为合法的商户已经将自己的公钥配置到微信后台了,当一个调用者将加签名的参数传到微信平台,而微信平台恰好能用这个商户配置的公钥验签通过,说明发请求的人就是持有这个私钥的合法商户,因为只有持这个私钥的商户才能做出这个签名,私钥是保密的,不是每个人都有。满足微信的很多要求,比如商户注册微信商户平台获得商户id、签约相关的支付产品获得appid、给开通的支付产品配置商户的公钥并下载微信的公钥,这样的商户对微信来说才是合法的。签名时,站在被调用方(微信平台)的角度看,微信要求谁调用微信平台,谁使用自己的私钥做签名;

2024-12-30 12:53:11 356

原创 delphi2007-12版本

正如您所看到的,即使是同一个Delphi版本,也可能有不同的版本号。这些可以用不同的更新来解释。有趣的是,根据版本号,Delphi XE6将自己标识为对Delphi XE5的更新,与XE4和XE3相似,同样与Delphi 10.4和11.0相似。不幸的是,似乎没有办法可靠地区分Delphi 2009和2010,这同样适用于Delphi 10 Update 1和10.1。但请注意,当IDE将项目从一个版本升级到下一个版本时,这些列表不一定会正确更改。

2024-12-27 18:22:52 653

原创 System.IOUtils TFile 解读

TFileMode.fmAppend 打开现有文件并把流指针移到文件尾, 如果文件不存在创建新文件.TFile.Replace(source, dest, bak, True);{将覆盖同名的文件}

2024-12-23 17:13:54 783

原创 RSA的公钥私钥

因为合法的商户已经将自己的公钥配置到微信后台了,当一个调用者将加签名的参数传到微信平台,而微信平台恰好能用这个商户配置的公钥验签通过,说明发请求的人就是持有这个私钥的合法商户,因为只有持这个私钥的商户才能做出这个签名,私钥是保密的,不是每个人都有。满足微信的很多要求,比如商户注册微信商户平台获得商户id、签约相关的支付产品获得appid、给开通的支付产品配置商户的公钥并下载微信的公钥,这样的商户对微信来说才是合法的。签名时,站在被调用方(微信平台)的角度看,微信要求谁调用微信平台,谁使用自己的私钥做签名;

2024-12-23 17:11:19 915

原创 System.IOUtils TPath 解读

在您提供的代码注释中,有一些重复和不准确的地方。我将纠正这些错误,并为您提供一个更准确的描述,包括一些额外的信息。

2024-12-23 16:55:37 342

原创 写文件操作

【代码】写文件操作。

2024-12-23 16:33:05 117

原创 转载 delphi 分屏显示

网上找了一圈关于delphi 分屏显示的文字,都说的不怎么详细,复制过来总是没有效果,整理后发布出来,其实分屏很简单,就是把delphi的窗体left属性值设置成主屏分屏率 假设是1366*768 就是设置left:=1366即可。//重点二,需要加上这个语句,不然总是在主屏显示。原文链接:https://blog.youkuaiyun.com/u013051638/article/details/128162646。

2024-12-12 16:29:55 134

原创 webview4/edgewebbrower学习记录——执行js

aResultObjectAsJson 为js执行完毕后的返回结果,可理解为最后一个函数执行完毕的结果,js中如果没有函数调用,或者没有返回值得函数调用,则返回null。webview2可执行js方法:WVBrowser1.ExecuteScript(js, 1003) 参数1为js语句,参数2为命令号,执行完毕,会执行。aExecutionID 对应.ExecuteScript中参数2。aErrorCode 对应执行结果标志,0为成功。

2024-11-22 16:48:10 342

原创 转载TeeChart 安装

此为参考加自己实践安装说明,其中TeeRecompile.exe编译出错因为没安装含源文件的QuickReport导致,摸索了2天,最后网上下载QuickReport,安装后,不再提示,Quick.Report.Professional.v4.07.for.Delphi.7.Full.Source-SSG,非。3.dejoy.teechart.v8.01.FullSource\Sources\Teechart\Delphi7中找到。2、删除Delphi\Bin目录下的DclTee70.bpl;

2024-11-21 09:08:01 797

原创 收集:Ctrl+鼠标左键或者Find Declaration不能定位到源文件

在Delphi代码编辑器中使用Ctrl+鼠标左键可跳转到鼠标下的类所在的定义处,但今天发现一个奇怪的问题,EhLib组件的类无法跳转(包括uses中的pas文件),重新安装也是如此,后来经过验证,发现有些组件可跳转,有些则不可,比如EhLib、ReportMachine不可,但FastReport和有些组件却可以,在Delphi IDE中查看半天,也百思不得其解,希望有知情者高手指教!Library Path我早已加上,用的所有组件都是有源码的,可以打开查看,组件本身可以正常使用。

2024-10-26 21:47:20 869

原创 dcef文件下载--程序节排坑二

ChromiumBeforeDownload中如果调用其他窗体文件做show操作,程序关闭时会内存释放错误,改用消息处理:beginSleep(50);end;

2024-10-24 18:40:08 139

原创 dcef—文件下载

在页面中添加一个标志位,判断接收到的取消信号是我们点击保存框的取消按钮发送的,还是我们在下载过程中点击删除按钮发送的。当我们不管是点击保存还是取消,都会执行若干次 OnDownloadUpdated 方法,并且每次都可以获取到下载速度、总大小和已完成大小,即使点击了取消,下载速度等值也是有数据的。因为我们在创建一条下载时将 callback 传递给页面了,所以点击页面上的按钮时,直接调用对应的 callback 的方法就可以实现暂停、继续、取消了。删除下载: 点击删除按钮,删除下载的本地文件。

2024-10-23 19:55:52 449

原创 一段接收串口数据delphi7升级到XE11乱码,注意char的处理

b:Byte;d:DWORD;d1:PDWORD;beginab[0]:=$F0;ab[1]:=$E9;ab[2]:=$89;ab[3]:=$00;end;

2024-10-17 12:38:02 273

原创 AI 已经很好用了

i:Integer;end;end;提示 range check error 哪里有错误呢或怎样优化你在代码中遇到的 “range check error” 通常是因为尝试访问数组的越界元素或变量范围错误。在这个情况中,有几个地方需要关注和优化。

2024-10-13 10:06:34 370

原创 C++ BUILDER 用 PAS

重点:c++ builder 中必须新建工程,如果pas文件中有修改,在原c++buidler 中重新添加pas,不管用,hpp等库不会重新生成,必须新建。c++ builder中新建一个工程,然后在"project"中添加上那个pas文件,build一下就行了,会。看到由pas文件新产生的库,把那个库替换原来的库就行了.

2024-10-09 22:06:40 182

原创 一张图片说明http客户端和tcp服务端的通讯

tcp服务器放http服务器,目的是在http之间进行长连接,这种异类的方式不建议这么用,不管在vs中还是在delphi中都会有一些问题,但有些调用有些厂家的设备接口时就要求这么用,也不知道咋想的,没一点大厂的责任感。

2024-09-30 10:53:59 397

原创 Delphi调用C#dll

Delphi调用C#dll_delphi 调用c# dll-优快云博客

2024-08-23 22:17:08 301

原创 让Delphi组件和C++ Builder共用

2、打开相应版本的Delphi版目录,发现有两个VirtualTreesD和VirtualTreesR两个Delphi安装包,从我们无比幸福的Delphi用户那里,我们可以窃听到一个重要的信息:以R结尾的一般是运行时包,以D结尾的一般是设计期包。同样的经验适用于其它绝大多数Delphi控件,比如Graphics32,但注意你可能需要对最终生成的HPP文件做一些改动,以避免与C++里自带的内容冲突,这个遇到一处改掉一处,就不再缀述了。如果你只装了CB或只装了Delphi,你就重装吧。

2024-08-23 09:16:55 411

原创 让delphi11支持xp

对应修改为4.0,降了2个值,中间值比如5.2应该也可以用,待试。

2024-08-21 19:15:32 291

原创 4个概念讲明白大端和小端格式

当你把char*强制类型转化成int*后,因为int占四个字节,那么p指向@0,并且*p占有的地址是@0@1@2@3,打印的时候 先进行++p操作,那么p指向@4,此时*p占有的地址是@4@5@6@7,根据上面地地址存地位,高地址存高位的解释,那么*p应该等于0x37363534。而 Little endian 则相反,它认为第一个字节是最低位字节(按照从低地址到高地址的顺序存放据的低位字节到高位字节)。若字节序为little-endian,则读出结果为0xcdab3412。

2024-08-14 16:13:37 2788

原创 Modbus-Ascii注意事项

2:数据每个8位的字节被拆分为两个ASCII字符进行发送,所以收到数据后两个字符组成一个16机制字符串,这个字符串转10进制后就是实际收到的数值。3:同样因8位的字节被拆分为两个ASCII字符,在计算LRC时候数据去两个字符组成16进制数据,进行叠加,之后取反加1。(ASCII表示为 0x0D和 0x0A)结尾;所有其他字段传输的数据所允许的十六进制表示字符为的。字符开头(ASCII表示为 0x3A),以回车换行对。

2024-08-13 15:37:20 620

原创 Modbus ASCII

LRC 的计算,对报文中的所有的连续 8 位字节相加,忽略任何进位,然后求出其二进制补码。在 ASCII 模式,LRC 的结果被ASCII 编码为两个字节并放置于 ASCII模式报文帧的结尾,CRLF 之前。接收设备在接收报文时重新计算 LRC 的值,并将计算结果于实际接收到的 LRC 值相比较,如果两个值不相等,则为错误。一个报文必须以一个‘冒号’(:)(ASCII 十六进制 3A)起始,以‘回车-换行’(CR LF)对(ASCII十六进制0D和0A)结束。2.每次接收到“:”字符表示新的报文的开始。

2024-08-12 19:18:30 1699

原创 ModbusRTU

Modbus协议是应用于电子控制器上的一种通用语言。通过此协议,控制器相互之间、控制器经由网络(例如以太网)和其它设备之间可以通信。它已经成为一通用工业标准。有了它,不同厂商生产的控制设备可以连成工业网络,进行集中监控。此协议定义了一个控制器能认识使用的消息结构,而不管它们是经过何种网络进行通信的。它描述了一控制器请求访问其它设备的过程,如果回应来自其它设备的请求,以及怎样侦测错误并记录。它制定了消息域格局和内容的公共格式。

2024-08-12 18:55:53 311

原创 Modbus Tcp数据通讯实测

由于计算机只识别0和1两个信号,即开关量信号,用其来表示数值都是使用数字串来表示,由于计算能力的问题,其数字串不能无限长,即其表达的精度也是有限的,同样的以温度为例,由于数字串限制,其表达温度的精度只能达到0.1度,小于该单位的数值则不能被标称,这样就必须将离散量进行量化,将其变为数字量。综上所述,模拟量就是在某个过程中时间和数量连续变化的物理量,由于在实际的应用中,所有的仪器设备对于外界数据的采集都有一个采样周期,其采集的数据只有在下一个采样周期开始时才有变动,采样周期内其数值并不随模拟量的变化而变动。

2024-08-12 18:50:17 2040

原创 Modbus TCP协议

在modbus中,每一个数据都有一个地址,在数据请求的时候,针对线圈(开关量)都是进行批量请求,所以在接收到服务端返回的数据的时候,需要用户自己来维护。例如,在编程中,你可能会用一个布尔变量来控制一个循环是否继续执行或判断一个条件是否满足,类似地,在Modbus中,线圈可以用来控制一个电机的启停或检测某个开关是否被激活。按照字节来解析,最主要还是需要看转换过程,比如ABCD->DCBA->CDAB 相当于在程序中表达的ABCD字节,在进行modbus传输的时候需要将数据字节顺序转换成CDAB,以此类推。

2024-08-12 18:48:22 4188

gid+delphi7版本

New in Version 8.0.0.126 (released on 2024-08-19) Improved IGPImage.Save and IGPImage.AsBytes implementations allowing providing parameters as simple array IGPImage.GetEncoderParameterList redesigned to return array of parameters Improved GetStringSizeF, and MeasureStringF implementations allowing ACodepointsFitted, and ALinesFilled to be obtained as simple integer output parameters, instead of pointers Improved TIGPMetafile constructors taking parameters as WideString instead of PWChar Added tr

2025-02-12

delphi upd通信演示程序client server都有

upd通信通讯中indy两个组件client和server都可以用,不用像tcp那样严格的区分客户端和服务端,发送用client方便 接收用server 方便。

2025-01-10

包含170+万个中国常用人名的资源文件,该资源文件涵盖了广泛的中国常用姓名,适用于各种需要中文姓名的应用场景,如数据分析、机器学习、自然语言处理等

包含170+万个中国常用人名的资源文件,该资源文件涵盖了广泛的中国常用姓名,适用于各种需要中文姓名的应用场景,如数据分析、机器学习、自然语言处理等。

2024-12-27

字符分割函数,方便分割字符串

function SplitStringXELJK(const Source: string; const Delimiter: string; var arr:TArray<string>):Boolean ; var StartPos: Integer; DelimPos: Integer; stemp:string; i:Integer; begin try i:=0; StartPos := 1; DelimPos := Pos(Delimiter, Source); while DelimPos > 0 do begin stemp:=Copy(Source, StartPos, DelimPos - StartPos); stemp:=trim(stemp); if stemp<>'' then begin Inc(i); SetLength(arr,i); arr[i-1]:=stemp; end;

2024-12-27

普通的日期格式转大写日期格式

{by ljk } unit DateToBIG; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons; const sNian: array [0..9] of string = ('〇','一','二','三','四','五','六','七','八','九'); sYue: array[1..12] of string = ('一月', '二月', '三月', '四月', '五月', '六月', '七月', '八月', '九月', '十月', '十一月', '十二月'); sRi: array[1..31] of string = ('一日', '二日', '三日', '四日', '五日', '六

2024-12-27

纵向冗余校验(Longitudinal Redundancy Check,简称:LRC)

纵向冗余校验(Longitudinal Redundancy Check,简称:LRC)是通信中常用的一种校验形式,也称LRC校验或纵向校验。它是一种从纵向通道上的特定比特串产生校验比特的错误检测方法。在行列格式中(如磁带),LRC经常是与VRC一起使用,这样就会为每个字符校验码。在工业领域Modbus协议Ascii模式采用该算法。 具体算法如下: 1、对需要校验的数据(2n个字符)两两组成一个16进制的数值求和。 2、将求和结果与256求模。 3、用256减去所得模值得到校验结果(另一种方法:将模值按位取反然后加1)。 例如16进制数据:01 A0 7C FF 02 (16进制计算)  求和:01 + A0 + 7C + FF + 02 = 21E  取模:21E % 100 = 1E  计算:100 - 1E = E2 (10进制计算)  求和:01 + 160 + 124 + 255 + 02 = 542  取模:542 % 256 = 30  计算:256 - 30 = 226

2024-11-01

VMware win7系统安装补丁

无法安装VMware Tools,且虚拟机图标显示为灰色,把cd,软驱改为“自动检查”,把开机启动关闭,如安装后提示“驱动安装失败,需要手动安装”,打里面的补丁。

2024-10-07

JDK添加环境变量工具

每次JDK配置环境变量很简单但很烦,又记不住,每次网上搜,用这个工具一键完工方便些。 cmd 进入本目录,执行,编译后把生成的class放exe文件夹里面。 javac Test.java javac Testd.java JDK环境配置: 如jdk(java虚拟机)没有安装过,先安装jdk(jdk-18_windows-x64_bin),安装后如java不能正常运行,进行如下配置 设置环境变量 变量名:JAVA_HOME 变量值:C:\Program Files\Java\jdk-18.0.2 (即jdk安装的位置) 变量名:Path (这个变量名已在系统变量中存在,现只需在这个值的前面添加以下变量值就可以了) 变量值:%JAVA_HOME%\bin;%JAVA_HOME%\jre\bin; 变量名:CLASSPATH 变量值:.;%JAVA_HOME%\lib\tools.jar;%JAVA_HOME%\lib\dt.jar (.;一定要设置上) 没有jre,进入java安装目录运行: C:\Program Files\Java> bin\jlink.exe --m

2024-07-29

Delphi11 中通过JNI调用 Java 函数

procedure TForm1.FormCreate(Sender: TObject); var Options: array [0 .. 4] of JavaVMOption; VM_args: JavaVMInitArgs; ErrCode: Integer; begin { 创建 Java 虚拟机 } FJavaVM := TJavaVM.Create(JNI_VERSION_1_8); Options[0].optionString := PAnsiChar(AnsiString('-Djava.class.path=' + ExtractFilePath(ParamStr(0)) + 'classes')); VM_args.version := JNI_VERSION_1_8; VM_args.Options := @Options; VM_args.nOptions := 1; VM_args.ignoreUnrecognized := True; ErrCode := FJavaVM.LoadVM(VM_args); if ErrCode < 0 then begin

2024-07-29

Delphi RSA签名与验签 国密sm2签名和验签 工具

最近工作上安排了一个支付接口的项目,我看其中涉及到了RSA签名加解密,提供了Java的代码,delphi RSA算法不会搞, 于是调用Java代码的实现,速度慢不说,出参和入参都不方便,遂项目上线后继续寻找Rsa在delphi下的实现方法,1、使用 通常OpenSSL类库实现,确实也很方便,但对应libeay32.dll库不好确定,在delphi7下调试通的在xe下就又不好试了,继续 寻找方式2、使用cnpack的加密单元,看介绍cnpack不依赖任何三方库,确实挺好。

2024-07-25

TThread.CreateAnonymousThread()匿名开线程demo,同步和异步都有

TThread.CreateAnonymousThread()匿名开线程demo,同步和异步都有,线程同步也只是说明使用方法,进水采用同步去支持线程。

2024-07-01

delphi的键盘和鼠标钩子

键盘和鼠标钩子 procedure TForm1.BitBtn1Click(Sender: TObject); begin InstallKeyboardHook(nil); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin InstallMouseHook(nil); end; end.

2024-03-25

y=aX+b中求AB值采用最小二乘拟合ab

y=aX+b ,最小二乘法求ab值,excel中应该用的是这个算法。

2024-02-02

Git TortoiseGit

git 三件套,git、TortoiseGit-2.15.0.0-64bit、TortoiseGit-LanguagePack-2.15.0.0-64bit-zh_CN、有安装说明

2024-02-02

数组保存为二进制文件和逆过程

procedure TForm1.BitBtn1Click(Sender: TObject); var arr: TMyDoubleArray; i: Integer; begin // 初始化数组 SetLength(arr, 5); for i := 0 to Length(arr) - 1 do arr[i] := i*100 + 1.11111; // 保存数组为二进制文件 SaveArrayToBinaryFile('array.bin', arr); // 从二进制文件加载数组 self.Memo1.Clear; arr := LoadArrayFromBinaryFile('array.bin'); for i := 0 to Length(arr) - 1 do begin self.Memo1.Lines.Add( FloatToStrF(arr[i],ffNumber,5,4 ) ); end; self.Memo1.Lines.Add('----')

2024-01-19

考勤机通过telnet连接打开FTP文件夹工具

考勤机实用工具,考勤机通过telnet连接打开FTP文件夹工具。

2024-01-14

mqtt for delphi7

delphi 7下可用用的mqtt //连接MQTT服务器 procedure TfrmMain.btnConnClick(Sender: TObject); begin MQTTClient.Port := StrToIntDef(edtPort.Text, 1883); MQTTClient.Host := edtHost.Text; MQTTClient.Activate(true); btnClearClick(Sender); //清空计数器 end; //断开MQTT服务器 procedure TfrmMain.btnDisConnClick(Sender: TObject); begin MQTTClient.Activate(false); end; //发布消息 procedure TfrmMain.btnPublishClick(Sender: TObject); var i : Integer; begin for i:=1 to edtLoop.Value do begin MonLed.Brush.Color :

2024-01-14

delphi mqtt客户和服务端

delphi中使用的mqtt,有demo,不知道哪位大神搞的,xe11下整理下。MQTT 协议实现的消息订阅客户端、消息发布客户端、及消息服务器, Finish Retain *) (* Web Sites http://www.alphaworks.ibm.com/tech/rsmb http://www.mqtt.org Permission to copy and display the MQ Telemetry Transport specification (the "Specification"), in any medium without fee or royalty is hereby granted by Eurotech and International Business Machines Corporation (IBM) (collectively, the "Authors"), provided that you include the following on ALL copies of the Specification, or por

2024-01-06

使用vlc styles改变opendialog

delphi11中使用style,dialog中list和edit类不失效,使用style扩展类可以解决。 procedure TForm1.BitBtn10Click(Sender: TObject); var Dialog: TFileOpenDialog; begin UseLatestCommonDialogs := false; Dialog := TFileOpenDialog.Create(nil); Dialog.DefaultFolder:='c:\'; try Dialog.Options := Dialog.Options + [fdoPickFolders]; // 设置对话框选项,只显示文件夹选项 if Dialog.Execute then begin // 用户选择了文件夹 ShowMessage(Dialog.FileName); // 显示所选文件夹路径 end; finally Dialog.Free; end; end; procedure TForm1.

2024-01-04

delphi中使用FastScript执行pascal脚本的demo

FastScript独一无二的特性是能支持多种语言(PascalScript, C++Script, Jscript以及BasicScript),做脚本引擎好使。 uses FastScript, FastScriptUtils, Windows; procedure TForm1.Button1Click(Sender: TObject); var ScriptEngine: TfsScript; DLLHandle: HMODULE; AddFunc: function(a, b: Integer): Integer; stdcall; begin ScriptEngine := TfsScript.Create(nil); try // 加载 DLL DLLHandle := LoadLibrary('YourDLL.dll'); if DLLHandle <> 0 then begin try // 获取函数地址 @AddFunc := GetProcAddress(DLLHa

2024-01-04

OmniThreadLibrary学习笔记

OmniThreadLibrary,简称OTL,为使用多线程开发应用,提供一个强大而高效的开发方法,使开发者完全基于任务(Task)开发应用。什么是任务呢,个人理解,就是要在线程执行中的逻辑代码。下面来看看,官方Wiki中的说明: 在OTL中,开发者不用创建线程(Thread)而是任务,任务即可以新建的线程中执行,也可以在一个现有的线程中运行,还可以放到线程池(ThreadPool)中去运行。 利用CreateTask函数来创建一个任务,CreateTask有一个参数,可以是一个全局的过程,一个方法,一个TOmniWorker的子类的实例或者一个匿名方法(delphi 2009以后版本)。查看CreateTask代码,可以看到作者实现了四个CreateTask函数来支持上面的四种建立任务的方法。

2023-12-09

海康摄像机二次开发sdk和demo

海康摄像机二次开发sdk和demo

2023-11-03

老古董delphi6企业版update2补丁包

老古董delphi6的程序,编译必备升级包,不好找了,传一份上来。

2023-11-01

iocomp 访问 opc

使用BCB和DELPHI可以快速开发出OPC客户端程序,用于小型的监控系统。我们需要以下控件包: iocomp For Delphi BCB 当前的版本为 3.0.2。它有多余60个控件,包括各种样式的文字,实时曲线控件,流向棒图,风闸状态图,opc数据写入等等。它可以设置所有控件的界面主题(类似与windows xp的主题桌面),它甚至提供了clx控件安装(我还没有在Linux下用过)。最重要的是,他的所有动态控件的各种属性可以直接绑定到opc上,可以不用写一行代码完成对opc数据的读出与写入。

2023-10-24

c# tcp udp 通信实例代码

c# 实现upd 和tcp 的通信 server client部分都有。

2023-10-12

系统安装后开启休眠方法

win10安装后只有关机和重启按钮没有休眠,这里是开启休眠方法。

2023-09-23

delphi安装及常用控件安装实录

1、 delphi 安装,管理身份运行安装程序,中间勾选两个“path添加到系统环境”,我安装按10.2后,安装11.2,截止今日最高版本为11.3. 2、 CnWizards 专家包,这个包必须安装,安装后会将delphi使用搞得非常丝滑,当前最新版本为“CnWizards_1.2.6.1126 ”下载后放置到“D:\ D11.0控件”,安装完成后进行下面3和4项的调整。 ......

2023-05-07

简易浏览器,简单当然也不做任何个人信息的收集,安全

简易浏览器,delphi+WebView2制作。

2023-04-29

Raize-KonopkaControls-280-7.0.8 for Delphi 11

Raize更名为KonopkaControls,此版本delphi11下可用,delphi10下应该也可以用,没试。

2023-04-26

opencv模板匹配、图片比较

opencv模板匹配、图片比较

2023-04-22

Ctrl-C/Ctrl-V热键替换工具 复制粘贴键替换

Ctrl_C/Ctrl_V替换工具,方便进行复制粘贴操作。

2023-04-22

富奥通 FWS微型气象传感器命令

富奥通 FWS微型气象传感器命令

2023-04-19

文件夹智能同步工具源码

文件夹智能同步工具源码

2023-04-13

webView4组件,可以做支持VIEW4的网页浏览

比自带TEdgewebbrower好用,比Twebbrower好用。

2023-04-13

delphi 泛型学习实录

delphi 泛型及原生泛型列表、栈、队列、数组。

2023-04-13

unidac9 delphi10下可用

delphi xe10下可用版本

2023-04-03

采用RealThinClient+UniDAC实现三层框架演示

轻量级三层代码,轻量但好用。

2023-04-03

防止系统进入休眠的单元

防止系统进入休眠的单元

2023-03-22

delphi10 indy10.6可用的ssl库和indy提交表单的演示代码

indy10 提交 https 表单

2023-03-13

Iocomp-delphi11 有 demo

Iocomp在delphi11下可用

2023-02-01

空空如也

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

TA关注的人

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