码农的笔记

Delphi虽好，但已不流行； 博客真好，可以做笔记
博客园 首页 新随笔 联系 订阅 管理

随笔分类 -  delphi

1 2 3 4 5 6 下一页

记性不好，博客园真是个好地方
Delphi中XML创建和读取
摘要：开发环境Delphi XE11.3 没有使用第三方控件 有的代码是抄来的！ <![CDATA[价格区间：100 < 预算 < 500]]> 的生成才是我想测试的. 测试这个<![CDATA[]]>的生成 Unit unit Unit1; interface uses Winapi.Windows, 阅读全文
posted @ 2025-03-14 14:04 码农的笔记 阅读(128) 评论(0) 推荐(0)

Delphi对接微信人脸支付Windows SDK
摘要：开发环境Delphi XE11.3 只有部分代码，做个笔记；这个只有调人脸识别(Windows SDK)代码，只有部分代码 {微信刷脸支付} unit UWX_PayFaceSDK; interface uses System.SysUtils, System.DateUtils, System.J 阅读全文
posted @ 2024-12-05 16:49 码农的笔记 阅读(120) 评论(0) 推荐(0)

Delphi 检测HTTPS证书有效期
摘要：开发环境Delphi XE11.3 仅仅是测试 Unit unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphic 阅读全文
posted @ 2024-09-10 11:15 码农的笔记 阅读(57) 评论(0) 推荐(0)

Delphi打开软键盘osk.exe
摘要：开发环境Delphi XE11.3 Unit unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl 阅读全文
posted @ 2024-08-07 09:42 码农的笔记 阅读(104) 评论(0) 推荐(0)

Delphi换行_这里只换一行
摘要：开发环境DelphiXe11； 这个代码不适用于Delphi7,一般不适用于Delphi2009之前的版本； 这个图片：12个字(汉字)换行；2数字和2字母认为等于1汉字； 这个换行不大行，全是小写的字母占占用的位置比较少，如果要效果好的，请自己写； --Unit-- unit Unit1; int 阅读全文
posted @ 2024-07-03 17:16 码农的笔记 阅读(136) 评论(0) 推荐(0)

Delphi ShellExecute为应用程序传递多个参数
摘要：开发环境Delphi Xe11.3 调用的程序 procedure TForm2.Button1Click(Sender: TObject); begin //某个参数包含空格时(用""),如下面这行 ；这里传递过去是3个参数 ShellExecute(handle,'open',pchar( 'C 阅读全文
posted @ 2023-08-07 15:48 码农的笔记 阅读(504) 评论(0) 推荐(0)

Openssl进行RSA加密解密(libeay32.dll)
摘要：开发环境：DelphiXE11.3 做个笔记 链接1： 链接2 链接1是某位大佬的源码，被俺收藏了； 链接2是本人从链接1中提取一部分，改了一点点东西；(比如下面的代码 fRSAOpenSSL.PublickEncrypt(aRSAData,memPubKey.Text); //公钥加密（公钥是字符 阅读全文
posted @ 2023-07-31 11:18 码农的笔记 阅读(456) 评论(0) 推荐(0)

Delphi中特征(Attribute)
摘要：开发环境Delphi XE10 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics 阅读全文
posted @ 2022-12-21 18:42 码农的笔记 阅读(231) 评论(0) 推荐(0)

Delphi中IdHttp调用接口，返回值乱码
摘要：开发环境是Delphi XE10 这里要说的是BUG问题， var respStream : TStringStream; respStream.DataString有问题，中文部分乱码！ 解决方法也在代码当中 1 unit u_Main; 2 3 interface 4 5 uses 6 Wina 阅读全文
posted @ 2022-05-27 20:17 码农的笔记 阅读(1482) 评论(0) 推荐(0)

Delphi中idHttpServer
摘要：Delphi7中测试idHttpServer，自带的idHttpServer 仅放上测试的部分代码，便于自己查看 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphi 阅读全文
posted @ 2022-05-07 14:14 码农的笔记 阅读(1120) 评论(0) 推荐(0)

Delphi数据库备份
摘要：此处代码只是测试代码，仅仅是测试 //环境：D7+SQL Server 2008 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fo 阅读全文
posted @ 2022-04-21 18:06 码农的笔记 阅读(144) 评论(0) 推荐(0)

Delphi集合增删的另一种操作
摘要：D7 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 阅读全文
posted @ 2022-04-08 11:04 码农的笔记 阅读(79) 评论(0) 推荐(0)

Delphi之不可思议
摘要：1. 不可思议的函数调用--开始- 开发环境D7 1 function TForm1.GetssA: string; 2 begin 3 Result:=Result+'AA'; 4 end; 5 6 procedure TForm1.Button1Click(Sender: TObject); 7 阅读全文
posted @ 2022-04-08 10:58 码农的笔记 阅读(79) 评论(0) 推荐(0)

Delphi查看浮点类型内存中实际保存的数据（IEEE 754）
摘要：IEEE 754了解可以参考https://www.cnblogs.com/gyunf/p/12816817.html 浮点数的内存方式以及由内存转化为浮点数_chenchaoflight的专栏-CSDN博客 https://blog.csdn.net/chenchaoflight/article/ 阅读全文
posted @ 2022-03-15 17:32 码农的笔记 阅读(327) 评论(0) 推荐(0)

Delphi遍历MainMenu
摘要：开发环境D7 获取所有菜单的Caption 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, Std 阅读全文
posted @ 2022-03-09 16:36 码农的笔记 阅读(319) 评论(0) 推荐(0)

Delphi中控制台程序和创建窗体并响应事件(不使用VCL创建窗体)
摘要：直接复制过来的，做个笔记 1.创建窗口并响应事件（不使用VCL） 1 program WindowDemo; 2 3 //{$APPTYPE CONSOLE} 4 5 uses Windows, Messages; 6 7 // 窗口函数，窗口接到消息时被Windows所调用 8 function 阅读全文
posted @ 2022-03-07 18:00 码农的笔记 阅读(280) 评论(0) 推荐(0)

Delphi中把字符串存储成各种编码的txt文档
摘要：//资料来源 ：一个把字符转换成各种编码文件的delphi2010函数. - textbox - IT博客 http://www.cnitblog.com/textbox/archive/2011/03/03/72913.aspx 1 procedure SaveFile(const FileNam 阅读全文
posted @ 2022-01-10 14:55 码农的笔记 阅读(496) 评论(0) 推荐(0)

Delphi中Json之superobject
摘要：superobject版本为1.2 开发环境D7 太容易忘记了，做个笔记 //1. Json的数组添加和赋值 1 var 2 Ijson,Ijson_01:ISuperObject; 3 s:string; 4 i:Integer; 5 begin 6 Ijson:=superobject.SO(' 阅读全文
posted @ 2022-01-08 11:46 码农的笔记 阅读(2813) 评论(0) 推荐(0)

Delphi中StringGrid删除
摘要：开发环境D7只是部分代码StringGrid1事先固定了行数为20，固定了一行为标题行 实现单行删除内容(StringGrid1事先固定了行数为20，固定了一行为标题行),没有固定多少行的时候请适当改写，这个是本人测试代码 1 var 2 i:Integer; 3 begin 4 if String 阅读全文
posted @ 2022-01-07 14:43 码农的笔记 阅读(1205) 评论(0) 推荐(0)

Delphi中Self问题和方法赋值问题
摘要：开发环境Delphi7 self报错问题 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdC 阅读全文
posted @ 2021-12-14 17:10 码农的笔记 阅读(187) 评论(0) 推荐(0)

1 2 3 4 5 6 下一页