dephi实战
关注
分享
扫一扫
文章平均质量分 69
qq_18932003
编程爱好者
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
使用 FireDAC 分页查询
FireDAC 原生支持分页查询，不用写分页查询SQL，只要设置 FetchOptions.Recskip (跳过的行数）和 RecsMax(分页大小）允许通过结果集进行分页。打开游标后，将跳过第一个RecsSkip。其余的记录，最多RecxMax将被获取。当 Prepared 后，更改RecsSkip 和 RecsMax属性值不起作用。因此，在获取下一行页之前，该命令必须未准备，然后再次执行。例如： // 分页大小为 20，查询第一页 FDQuery1.FetchOptions...转载 2021-01-17 20:01:24 · 560 阅读 · 0 评论 -
DELPHI vcl fmx访问restful服务器(客户端+服务端)
//delphi 调用代码 只演示了简单查询的代码，分页查询代码类似procedure Tform1.button1Click(Sender: TObject);var jo:ISuperObject;json,_message:string;_result:string;_msg,_res:string; reqData, resData:Tstringstream;vHttp: Tnethttpclient;ja:iSuperArray;begin jo:=SO...原创 2021-01-16 22:45:01 · 570 阅读 · 0 评论 -
Delphi FMX上传图片至asp.net Core服务器
//delphi客户端源码uses IdMultipartFormData;procedure TForm1.Button1Click(Sender: TObject); //上传var ABitmapCodecSaveParams:TBitmapCodecSaveParams; ASuperObject:ISuperObject;MS: TStringStream;postStream : TIdMultiPartFormDataStream;begin FFileName...原创 2021-01-16 22:44:15 · 303 阅读 · 0 评论 -
delphi https和http的post发送总结
https和http的post发送总结需要转发数据到客户的https的服务器上出现一系列问题总结如下:1.因为是https首先考虑到用最新的控件NetHTTPClient（只有在XE8以上才有）。2.客户的服务器需要先登录例如:域名/authentication?account=admin&password=001 Method: POST return: 200:成功 404:不存在 606:自定义错...原创 2021-01-16 22:42:11 · 3824 阅读 · 0 评论 -
delphi nethttpclient post 下载图片
原创 2021-01-16 21:26:15 · 679 阅读 · 0 评论 -
delphi 取当前cxGrid
useSmartGridvaraGridView: TSmartGridDBBandedTableView;aGrid: TcxGrid;begin..//当前Grid(多个Grid时)if Self.ActiveControl is TcxGridSite thenbeginaGridView := TcxGridSite(Self.ActiveControl).ViewInfo.GridView as TSmartGridDBBandedTabl...转载 2020-05-31 12:25:16 · 363 阅读 · 0 评论 -
delphi 图片压缩，存储方法
实际代码，成功unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, RzButton,...原创 2020-03-28 13:47:22 · 1542 阅读 · 0 评论 -
DELPHI 汉化DevExpress
现在的DevExpress组件包提供了TcxLocalizer，拖一个放到Form上。然后设置相关的属性：即可完成汉化了！怎么样，够简单！！！需要DevChs.ini文件的朋友，点击链接加入群聊【delphi多层开发交流】：https://jq.qq.com/?_wv=1027&k=5OnKKBF感谢朋友df007告诉我这个方法，截图都是他的。/...转载 2020-03-24 13:02:03 · 1465 阅读 · 0 评论 -
一秒可生成500万ID的分布式自增ID算法—雪花算法 (Snowflake，Delphi 版)
概述 分布式系统中，有一些需要使用全局唯一ID的场景，这种时候为了防止ID冲突可以使用36位的UUID，但是UUID有一些缺点，首先他相对比较长，另外UUID一般是无序的。有些时候我们希望能使用一种简单一些的ID，并且希望ID能够按照时间有序生成。 而TWitter的snowflake解决了这种需求，最初TWitter把存储系统从MySQL迁移到Cassan...转载 2020-03-24 12:58:34 · 878 阅读 · 0 评论 -
Delphi 在DLL中使用DevExpress的问题
在DLL中封装了Form时使用了Devexpress控件.在程序运行时,主Exe程序可以显示使用的皮肤。可是，调用DLL中的窗口时无法显示皮肤的样式。还是原始的Windows窗口样式。方法:在dll窗体中加入skincontrol控件,然后uses ..., dxGDIPlusAPI,然后在窗体代码文件的后面加入下列代码initialization dxInitializeGDIPl...原创 2020-01-29 10:31:34 · 640 阅读 · 0 评论 -
datasnap 下载文件直接调接口，不要对接口进行再封装
下载文件直接调接口，不要对接口进行再封装原创 2019-12-28 10:58:17 · 195 阅读 · 0 评论 -
delphi 加解密及支付
红领巾QQ 648437169原创 2019-12-28 10:56:11 · 511 阅读 · 0 评论 -
delphi 界面图示
原创 2019-12-28 10:53:49 · 677 阅读 · 0 评论 -
delphi 工作流 流程图
我直接用的tms的Workflow这个是Dev里面的一个flowchar控件做的，，按钮是通过设计器自己画的。上下两块都是pagecontrol 和中间是tile 控件DEV tile控件支持渐变 Devexpress TileNavPane 控件的使用...原创 2019-12-28 10:52:00 · 2351 阅读 · 1 评论 -
delphi 文件转Base64
文件转Base64原创 2019-12-28 10:48:49 · 930 阅读 · 0 评论 -
DELPHI求发票的下一个号码
求出下一个发票号，如FP001的下一个为FP002,FP 001 X的下一个为FP 002 X,FP 001 XN 002的下一个号码为FP 002 XN 002总是取出第一个数字并加一，但是不足的位数要补零函数如下：function GetNextFp(curNo:string):string;variNum:LongInt;sPre,sLast,sTemp,sNum:st...转载 2019-12-18 16:05:19 · 152 阅读 · 0 评论 -
Delphi使用outputdebugstring调试程序和写系统日志
delphi使用outputdebugstring调试程序和写系统日志procedure TForm1.btn1Click(Sender: TObject);begin OutputDebugString('dddddd'); OutputDebugString('11');end;procedure TForm1.btn2Click(Sender: TObject);...原创 2019-12-18 15:55:24 · 461 阅读 · 0 评论 -
dev18.1.3 编译bpl或者exe文件报错解决方法
可能是这个原因，编译安装时，源码和编译的bpl不在同一个目录造成的1. bpl目录2.源码目录临时解决办法，删除源码目录的源码文件最好的解决办法是，卸载控件，重新编译安装，将bpl和源码输出到同一个目录...原创 2019-11-25 18:38:14 · 306 阅读 · 0 评论 -
【Delphi】支付宝RSA签名之Delphi实现
Delphi有个很大的问题就是，厂商的不作为(没有封装标准的Cipher类库)，让大家自己造轮子。今天的轮子就是RSA签名，由于Delphi没有封装Cipher类库，所以只的自己写了。因为要在Firemokey中实现RSA算法，用于手机端，心里有二个方案： 1. 实现RSA算法 2. 通过Java封装一个实现了RSA的包，通过Delphi来调用当然结果通过了1实现，参考了网...原创 2019-11-24 17:26:05 · 577 阅读 · 0 评论 -
DELPHI微信支付代码
不管是微信支付还是支付宝支付， 3个最棘手的问题是：1，如何生成签名2，支付请求如何提交3, 如何验证签名下面就围绕这二个问题来讲。我使用的是XE3.先看微信支付：1，微信支付的签名生成uses IdHashMessageDigest, NatvieXml; //我使用的是NativeXml4.07function TMicroPayParamBuilder.GetSi...转载 2019-11-24 17:02:27 · 355 阅读 · 0 评论 -
DELPHI XE BPL整合成一个包
(小弟拙见,QQ805162676 有更好的方法或BUG麻烦发份我)发布时只需将用到的系统BPL加上你整合的包发布即可. 方法如下：第一步，建立工程，加入用到的三方控件.第二步，设置第三步: 在设置好的dcu目录下,可以看如图所示的dcu文件.第四步,新建一个BPL工程,将DCU文件加进去,同时编译.第五步,设置工程带包编译,只加入建立的BPL包与系统包即...原创 2019-11-24 16:15:13 · 1174 阅读 · 0 评论 -
ERP应用与实施
https://www.cnblogs.com/Bonny.Wong/category/21121.html ERP应用与实施https://www.cnblogs.com/Bonny.Wong/category/19690.htmlERP理论原创 2019-11-23 19:26:09 · 217 阅读 · 0 评论 -
Delphi控件备份工具
https://www.cnblogs.com/dreamszx/p/3585548.html转载 2019-11-20 18:35:32 · 272 阅读 · 0 评论 -
合并Dev BPL教程
一、准备工具1.Devexpress vcl 14.2.2下载地址http://download.youkuaiyun.com/user/rfjbco，共用个包，下载后解压,程序目录已带有DxAutoInstaller2.DxAutoInstaller最新版下载地址http://developer.team/delphi/17716-dxautoinstaller-216.html二...转载 2019-11-20 18:27:25 · 651 阅读 · 0 评论 -
Delphi BPL包合并图文教程 IDEWiz tangram-plugin-framework
Delphi BPL包合并图文教程 Framework IDEWiz tangram-plugin-frameworkelphi IDE 本身就是一个插件模式的工具，插件的好处不用多说。运行包的BPL，其实就是众多单元的集合，因此可以再次重新组合，只要你将各个BPL包用到的单元再组合一次！本文以http://code.google.com/p/tangram-plugin-frame...原创 2019-11-20 18:26:21 · 845 阅读 · 0 评论 -
雪花算法(snowflake)delphi版
雪花算法简单描述：+ 最高位是符号位，始终为0，不可用。+ 41位的时间序列，精确到毫秒级，41位的长度可以使用69年。时间位还有一个很重要的作用是可以根据时间进行排序。+ 10位的机器标识，10位的长度最多支持部署1024个节点。+ 12位的计数序列号，序列号即一系列的自增id，可以支持同一节点同一毫秒生成多个ID序号，12位的计数序列号支持每个节点每毫秒产生4096个ID序号。...转载 2019-11-12 08:02:19 · 317 阅读 · 0 评论 -
delphi中如何实现模糊查找文件
procedure GetFilenames(sPath, sFilename: String; AList: TStrings);//功能描述: 列出sPath目录中(不含子目录)所有文件名符合sFilename规则的文件名//入口参数:// sPath - 目录路径// sFilename - 文件名//出口...原创 2019-11-11 23:04:53 · 662 阅读 · 0 评论 -
delphi 设置开机自动启动函数
有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考procedure TMainForm.SetAutoRun(ok: boolean);var Reg:TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg:=TRegistry.Create; try...原创 2019-11-11 23:03:21 · 144 阅读 · 0 评论 -
delphi与sqlite
file:0 前言 本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。file:1 准备工作part1 delphi版本:delphi2007 for win32 update3。任意安装版本即可。 sqlite dll版本:3.5.3。目前最新版本的sqlite引擎。[h...原创 2019-11-11 23:01:47 · 391 阅读 · 0 评论 -
基于DELPHI实现PC机与PLC的串行通讯
https://wenku.baidu.com/view/7f11c4dcd05abe23482fb4daa58da0116c171fc4.html基于DELPHI实现PC机与PLC的串行通讯https://item.taobao.com/item.htm?spm=a230r.1.14.8.58d8614e2FXLhh&id=564710669198&ns=1&ab...原创 2019-11-14 09:51:41 · 1395 阅读 · 0 评论 -
delphi 包引用
编译控件 可以指定编译文件的到指定目录中指定控件的DCP,DCU所在目录bplcommon包引用其他包原创 2019-10-29 08:15:07 · 520 阅读 · 0 评论 -
Delphi自动生成编码
原文地址：Delphi自动生成编码作者：Halu小红unit CreateOrderNum;interfaceusesWindows,SysUtils,ADODB,StrUtils,Messages,Dialogs;Function Create_OrderNum(BH_FieldName,TableName,RQ_FieldName,orderFirst:string):...原创 2019-10-16 08:16:22 · 725 阅读 · 0 评论 -
rzpagecontrol通用打开窗体过程
原文地址：rzpagecontrol通用过程作者：xxhh在MainForm上放了一个RzPageControl1点击菜单动态创建RzPageControl1页，同时动态创建相应窗体并显示在新建的RzPageControl1页上，点击菜单时首先判断相应窗体是否已显示在RzPageControl1页上，如果是则激活该页，否则创建新页并将新创建的窗体显示在该页上。procedure...原创 2019-10-16 08:15:58 · 456 阅读 · 0 评论 -
通过字符串，类的引用，创建窗体
原文地址：通过字符串，类的引用，创建窗体作者：xxhh//控件单元。 {* 单元说明： 创建模式窗口，和非模式窗口的类，保证非模式窗口只创建一次。 作者 ： 笔名：易 一 英文名：yeeyee E-Mail ：jane1437@163.com 创建时间： 2005年5月20日 及最后修改时间： 修改人修改时间及： 修改说明： 版权声明： 版权所有，转载请注...原创 2019-10-16 08:16:42 · 189 阅读 · 0 评论 -
delphi依据变量值来打开相应的Form
原文地址：delphi依据变量值来打开相应的Form作者：xxhh当我们只知道Formname的名称，如何动态依据名称来打开相应的Form呢？首先：调用界面必须Use所有需要打开的Form单元。第二：被调用的Form必须经过初始经，才可被GetClass打开。// 主界面Formprocedure TForm1.CreateForm(AClassName: string);...原创 2019-10-16 08:15:47 · 586 阅读 · 0 评论 -
POS小票打印
// 向LPT口打印一个文本文件procedure TPosFrm.PrintFile(AFileToPrint: string);varPort, FileToPrint: TextFile;ALine: string;beginAssignFile(FileToPrint, AFileToPrint);Reset(FileTopr...原创 2019-10-29 08:16:21 · 342 阅读 · 1 评论 -
Delphi使用spcomm串口通信 串口号大于10出错的解决办法 spcomm error opening&nbs
如果你已经会使用SPCOMM且出现10个以上的串口问题请改一下串口名COM1.CommName='//./com18';就这样加'//./'就行了我也不知道什么回事.......比如Comm1.CommName := '//./'+ComboBox1.Text;//./com18是windows里边的SymbolLinkName，这个在WINAPI...原创 2019-10-15 07:38:44 · 583 阅读 · 0 评论 -
用于区分ID卡读取出来的数据和一般人手录入的数据
ID卡的读取方式其实是模拟一个键盘的录入而已，很简单，现在这个ID卡读取方法是为了在任何情况下把它正确读取出来的方法，例如你在tedit控件里面，当读取了ID卡时，会和其它数据混在一起，而我这种方法，能正确地读取出ID卡的正确数据，如果你同时快速按键盘又同时读取ID卡时，它是不会读出数据的，这样是为了防止读出来的数据不正确。不多说，下面是代码，还有测试用的代码一起的，我就不改了，大家可参考一下：...原创 2019-10-15 07:38:30 · 241 阅读 · 0 评论 -
检测ID卡的输入或者是其它卡的输入
由于ID卡或者是其它的一些不同类型的卡，它们只是负责模拟键盘的录入，但是，它们在录入的时候没有一个很好的标识位可以让我们知道当前输入的是客户手工录入的字符串还是ID卡读入的字符串，我相信，很多人在做这样的开发时应该都遇到过这种郁闷的事，有些人的做法呢，就是在特定的位置录入字符串就算是ID卡的读取了，我想，这样的方法很多人都不喜欢的了，感觉很不科学。因此，这模块就是应这种要求而设计的，可以让你在任何...原创 2019-10-15 07:36:41 · 216 阅读 · 0 评论 -
Delphi 最小化程序到任务栏托盘 增加右键PopMenu
http://blog.youkuaiyun.com/yangjian900109/article/details/51043094 在做中间层时，中间层往往不需要点击关闭时立刻关闭，而是最小化到托盘。故而特意隐藏关闭按钮功能。 1）隐藏退出功能 用PopMenu退出菜单代替 1.增加popMenu退出菜单，绑定到窗体 2...原创 2019-10-15 07:35:51 · 299 阅读 · 0 评论