ljklxlj-CSDN博客

原创支付宝接口

以上几个参数，都是支付宝再审核通过后，通过邮件发送给商家的，其中RSA的两个公私钥，需要商户自己根据手册自行生成并上传和保存，具体这一步请务必参考支付宝开放平台的说明。Assert(@PEM_read_bio_RSA_PUBKEY <> nil, 'PEM_read_bio_RSA_PUBKEY加载失败');业务平台根据客户端提交的商品信息，生成自己的订单号等内容，并按照第三方支付的要求对订单信息进行拼装组合，并编码和签名。Assert(@rsa_sign <> nil, 'RSA_sign加载失败');

2024-08-08 08:37:43 439

原创带进度条复制文件代替copyfile

ShellExecute(self.Handle,'open',PChar('D:\AD未备份20230619\数据上传.exe'),'','',SW_SHOWNORMAL );CopyFile( '\192.168.0.241\ljk\数据上传.exe','D:\AD未备份20230619\数据上传.exe',False);myFileCopy('C:\芯片\kang.rar','c:\kang.mp4');//关闭主程序，参数名进程的显示名称即exe的名称。//用ProgressBar控件。

2024-08-08 08:26:38 553

原创 ICSTCP控件的使用

【代码】ICSTCP控件的使用。

2024-08-07 19:16:15 344

原创 delphi 枚举类型和字符串的转换

【代码】delphi 枚举类型和字符串的转换。

2024-08-07 19:14:22 41

原创 DELPHI IPV4判断合法

【代码】DELPHI IPV4判断合法。

2024-08-07 19:12:53 68

原创 DELPHI分割字符串

在 Delphi 中，分割字符串可以通过多种方式实现，最常用的方法是使用 TStringList、String.Split 方法（在 Delphi 2009 及以上版本中可用），或者使用正则表达式。如果只需要简单的分隔符分割，TStringList 和 String.Split 是最常用的选择。// 使用分隔符（;如果您使用的是 Delphi 2009 或更高版本，可以使用 String.Split 方法来分割字符串。

2024-08-07 19:10:01 163

原创 DelphiJNI实际调试

1：下载 DelphiJNI：下载地址https://github.com/aleroot/DelphiJNI，版本比较老，没有找到其他，就用这个吧，如朋友有较新的pas文件，请留言下。2：下载jdk，这里下载JDK,这里使用javase-jkd18，也不知道这个版本要不要收费，这里学习用暂时不关新这个。5：运程过程中几经折腾，编译为32不能正常运行，64为依然提示找不到jvm.dll，path中添加路径，6位下正常调用。

2024-08-07 19:05:26 131

原创 java编译错误，找不到包的解决办法

确保在运行 Java 程序时，类路径（classpath）中包含了定义 CryptionUtil 类的 JAR 文件或编译后的类文件。类文件是否在正确的目录结构中（即 com/sltas/front/third/util/CryptionUtil.class）。如果 CryptionUtil 类在某个 JAR 文件中，确保该 JAR 文件没有损坏，并且能够被 JVM 正确读取。确保 CryptionUtil 类文件存在于指定的类路径中。如果它在 JAR 文件中，确保该 JAR 文件在类路径中。

2024-08-07 19:03:06 149

原创 java jdk 设置环境变量

每次安装完jdk，设置home路径，为啥jdk的安装包不默认个path添加到环境变量呢。

2024-08-07 19:00:26 76

原创 JNI Functions

function：jdk_down:分类:

2024-08-07 18:59:02 79

原创 jin版本

Version InformationGetVersionjint GetVersion(JNIEnv *env);Returns the version of the native method interface. For Java SE Platform 21 and later, it returns JNI_VERSION_21. The following table gives the version of JNI included in each release of the Java

2024-08-07 18:57:43 237

原创 javac 提示类文件具有错误的版本 62.0,应为 52.0

您遇到的错误提示 "类文件具有错误的版本 61.0, 应为 52.0" 表示您正在尝试运行一个使用较新版本的 Java 编译的类文件，而您的 Java 运行环境（JRE）版本较旧。您遇到的错误提示 "类文件具有错误的版本 62.0, 应为 52.0" 表示您正在尝试运行一个使用较新版本的 Java 编译的类文件，而您的 Java 运行环境（JRE）版本较旧。安装新版本的 JDK 后，确保将 JAVA_HOME 环境变量指向新安装的 JDK 目录，并将 JDK 的 bin 目录添加到系统的 PATH 中。

2024-08-07 18:43:33 182

原创 delphi opencv

一直用2.4版本，今天发现laex有跟新到4.7。

2024-08-07 18:26:47 95

原创 jvm执行代码注释部分

MessageBox(Handle, PChar(Format('JavaClassForDelphiTest.goTest Result: %s', [strResult])), 'Delphi 10.3 调用 Java Class', MB_OK OR MB_ICONINFORMATION);2、Java内部字符串String用得都是是Unicode编码，所以Java内部的字符串可以说是没有编码的，// 参数类型，返回值类型。

2024-08-07 18:25:33 199

原创创建 Java 虚拟机JVM中的参数说明

1、上一篇创建虚拟机的代码加参数备注varbegin{ 创建 Java 虚拟机 }//这个选项设置 Java 类路径，指定 JVM 应该在哪里查找用户定义的类文件。您可以将其设置为包含您的 Java 类的目录//JNI version java接口的版本号//给虚拟机参数赋值//Options数组的个数//忽略无法识别的选项begin。

2024-08-07 18:24:24 301

原创 delphi调用Java类

MessageBox(Handle, PChar(Format('JavaClassForDelphiTest.goTest Result: %s', [strResult])), 'Delphi 10.3 调用 Java Class', MB_OK OR MB_ICONINFORMATION);MessageBox(Handle, 'Create Java Env Error', 'Delphi 10.3 调用 Java Class', MB_OK OR MB_ICONERROR);

2024-08-07 18:23:15 736

原创 jdk的安装

变量值：JDK文件的路径，如果是默认的话，应该是C:\Program Files\Java\jdk1.8.0_241。4.往下翻，找到【java下载页面】，点击【Download Java now】进入JDK下载界面。1.键盘【win+R】，打开【运行】，输入【cmd】回车，进入命令行窗口。1.按照【计算机】-右键【属性】-往下拉【高级系统设置】-【环境变量】2.输入【java -version】（注意java后面有一个空格）2.在【系统变量】里面【新建】3.在【系统变量】里面【新建】

2024-08-07 18:20:30 297

原创 Delphi RSA签名与验签国密sm2签名和验签

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

2024-07-29 21:25:49 175

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

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

空空如也

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

TA关注的人

JDK添加环境变量工具

Delphi11 中通过JNI调用 Java 函数

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

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

delphi的键盘和鼠标钩子

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

Git TortoiseGit

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

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

mqtt for delphi7

delphi mqtt客户和服务端

使用vlc styles改变opendialog

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

OmniThreadLibrary学习笔记

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

老古董delphi6企业版update2补丁包

iocomp 访问 opc

c# tcp udp 通信实例代码

系统安装后开启休眠方法

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

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

Raize-KonopkaControls-280-7.0.8 for Delphi 11

opencv模板匹配、图片比较

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

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

文件夹智能同步工具源码

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

delphi 泛型学习实录

unidac9 delphi10下可用

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

防止系统进入休眠的单元

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

Iocomp-delphi11 有 demo

手机生产和识别二维码，d11下调试通过

功能完备的手机店进销存管理系统

java常用面试有讲解

delphi11.1 zxing扫码

常用数学函数的解析可以自由组合公式

TeeChart form d7-d11

嵌套三方EXE到自己的程序

空空如也

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

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