- 博客(83)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 TcxRichEdit发送消息移动到行尾
PostMessage(CxRichEdit1.InnerControl.Handle, WM_VSCROLL, SB_BOTTOM, 0);
2022-11-16 10:32:00
186
1
原创 视频敏感内容的采样检测/multipart的应用(用微信api)
1.视频图片采样2.对图片采样进行检测:检测代码如下(微信敏感图片检测):const cntURL = 'https://api.weixin.qq.com/wxa/img_sec_check?access_token=%s';var sURL : string; sResult, sIniFilePath : string; jResult : ISuperObject;/superobject vData : TMultipartFormData;//Syste
2021-07-23 10:15:40
393
原创 DELPHI XE 匿名函数的应用(同h5编程中js的调用)
unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;type TForm2 = class(TForm) BitBtn1: TBitBtn; pr.
2021-07-13 20:41:39
281
原创 DataSetConverter4Delphi
源码主页:https://gitee.com/lim417/DataSetConverter4Delphi?_from=gitee_search功能:dataset转json(TObjectJson)
2021-04-22 14:36:55
229
原创 cxGrid表头合并
cxGrid1DBBandedTableView1.optionview.header := false;原理: band是可以堆叠的.隐藏column.每个column绑定一个band性别和年龄的绑定的postion设置为个人信息(实现堆叠效果)下图为未隐藏标题栏的效果.隐藏标题栏后的效果:...
2021-03-18 09:48:44
536
1
原创 delphi 获取本机IP和MAC列表(win10下测试)
网上找到,补充了一个IPTOMAC的函数.unit LGetAdapterInfo;interfaceuses Windows, SysUtils, Classes, winsock;const MAX_HOSTNAME_LEN = 128; { from IPTYPES.H } MAX_DOMAIN_NAME_LEN = 128; MAX_SCOPE_ID_LEN = 256; MAX_ADAPTER_NAME_LENGTH = 256; MAX_ADAPTER
2021-02-07 15:56:15
680
原创 两种常用SuperObject的遍历
memo1.text := {"MYGUID":"s3","存款金额":30000.,"规格表示":null}例子1:var item, jo: ISuperObject;begin jo := SO(Memo1.Text); for item in jo do begin Memo2.Lines.Add(item.AsJSon(False, False)); end;end;例子2:var jo: ISuperObject; item: TSuperAvlE.
2021-02-04 23:10:46
1126
原创 腾讯短信签名方法 v3 delphi版本源码:
文档中心>API 中心>云服务器>调用方式>签名方法 v3:https://cloud.tencent.com/document/api/213/30654#Java腾讯短信签名方法 v3 delphi版本源码:var host: String; httpRequestMethod: String;// = "POST"; canonicalUri : String;//= "/"; canonicalQueryString : Str...
2020-11-04 17:35:54
625
2
原创 delphi 做错了什么?
第一罪:自由散漫的编程风格. delphi号称面向对象Pascal,但实际写代码时,都是以窗体为中心;窗体即数据,或者tdataset即数据,并无真正的业务对象. 因为封装的不彻底,导致delphi开发中,代码可读性低,可维护性低,大多数delphi开发公司,处于处于较低的开发层次.小型程序优秀,大型程序最终都会因为维护成本或者二次开发成本太高,最终跟不上时代的步伐,被其他软件公司淘汰.第二罪:多层的编程中, 主体数据的传输,没有采用json或者xml这些通用的互联网数据标准.数据是编程的核..
2020-10-08 17:59:54
117
原创 怎么理解项目,怎么理解三层?
三层无处不在,数据层是三层的核心.三层是数据+业务逻辑+数据展示.三层中数据贯穿了全部.不仅宏观构架上有三层,微观构架上也有三层.微观到处理上,有数据寄存器(数据层)和cpu命令(逻辑层),输出显示设备(层).如果说纲举目张的话,抓住数据就抓住了纲.大数据局时代如果抓住了数据就抓住了互联网的核心.如果做最简单的一个项目,抓住了数据,就抓住了项目的核心.对于逻辑层独立来讲,它也有自己的数据层(in),表现层(out),内存业务逻辑....
2020-08-09 18:31:24
327
转载 FDMemTable让虚字段变得可以读写
select '' as temp,flag=0,sql返回的虚拟字段，以前clientDataSet可以修改，FDMemTable里不能改了。ClientDataSet1->FieldByName("flag")->AsString="1";但是FDMemTable不能改了。怎么办？以前的这种虚拟字段的方式挺好用啊。解决办法：设置属性TFDMemTable.UpdateOpt...
2019-08-06 16:51:20
427
原创 FDMemtable中如何在已有的字段数据集上加入字段
//在原有数据集上是加不进去的。可以再做一个FDMemtable，然后 FDMemTable_新数据集.FieldDefs.Assign(DataSet_原数据集.FieldDefs); FDMemTable_新数据集.FieldDefs.Add('新加字段', ftFloat); FDMemTable_新数据集.CreateDataSet; //建立数据集 ...
2019-08-06 16:48:01
1187
转载 透明数据加密解密
——–加密函数———–CREATE FUNCTION dbo.EncryptByPassPhrasePwd(@password nvarchar(50))RETURNS varbinary(max)ASBEGINdeclare @pwd varbinary(max)SELECT @pwd = EncryptByPassPhrase(‘1234567’,@passwo...
2019-03-05 12:32:01
1488
原创 superobject自关联会导致IInterface计数错误，从而导致内存泄漏
var a: ISuperObject;beign a := so; a.s['name'] := '张三'; a.o['data'] := a; end;如上代码，这是一个自关联的代码，接口引用计数会错误，从而导致内存泄漏。...
2018-10-25 10:25:01
345
转载 bcc校验(delphi版本异或校验方法)
function BytesXor(buffer:array of byte):Integer;var i:integer;begin Result:=$0; for i:=Low(buffer) to High(buffer) do begin result:=result xor buffer[i]; end;end;-------------------...
2018-10-10 09:22:09
1727
原创 delphi application的对话框为什么跑到主窗口后面 ?
很多人纳闷,delphi写的程序,有时候对话框会跑到主窗口后面,怎么调整都不好,以为delphi天生的缺陷,经过我的研究后终于发现了问题所在:原来很多人做循环处理的时候,常常在循环体内加入application.processmessages,这会使长时间的循环处理的时候,界面看起来不像卡死.但是这时候如果点击了其他界面,最前端的窗口就不是当前程序的application了;这是因为app...
2017-09-04 09:20:40
1703
原创 如何解决dxBarManager上面编辑框录入内容不能立刻生效的问题(光标移开,而不是tab,会导致内容revert)
dxBarManager1.AlwaysSaveText = true就可以解决.
2017-06-27 11:45:21
404
转载 InstantObjects是delphi上的一个不错的ORM框架，可以实现类似hibernate的功能。
ORM框架是数据库和类或者record之间快速转换的一个技术(猜的),很有用的技术.InstantObjects是delphi上的一个不错的ORM框架，可以实现类似hibernate的功能。具有如下优点* 将数据表间关系转化成了对象和对象的关系，简单直观。* 可以自动创建数据库，简化了部署的和安装的过程。* 支持多种数据库，方便了程序的移植。* 便于进行测试
2017-01-16 22:12:21
1114
原创 delphi如何无源码调用bpl?
摘要: 如果需要动态编译,在编译时必须有dcp(可以获取类和变量信息),运行期必须有bpl. 如果需要静态编译,需要dcu文件就可以.正文:delphi开发中,link with runtime packages(delhpi 7版本叫build with runtime packages),常常给大家带来很多困惑,下面特此全面说明一下关于这个编译开关的...
2016-12-21 11:15:09
2551
转载 zt我的Delphi开发经验谈
我的Delphi开发经验谈--------开发环境-------- Delphi 7是一个很经典的版本，在Win2000/XP下推荐安装Delphi 7来开发软件，在Vista下推荐使用Delphi 2007开发软件。安装好Delphi 7后，应立即安装Delphi 7 Update Pack 1，Delphi 2007则建议尽量安装最新的版本。工欲善其事，必先利其器，为
2015-09-03 05:52:30
1115
原创 CLR程序集-怎么把一个dll注册到SQL SEVER
{ 关于SQL中部署CLR程序集的方法，网上一搜一大把，需要了解的自行查阅，呵呵。 SQL中处理字符串实在是太弱了，连数组都不能处理，就更别说json字符串了，好吧，它不能处理，我就给它加个处理程序集（还好2005已经加入了这个功能）。 首先对于CLR我也不太懂，而且到现在我也没搞懂怎么把一个dll注册到SQL，俺是直接用VS2010新建一个sql
2015-08-06 20:46:39
1054
原创 在delphixe7 编写dll中发现的问题s
1.传入application.handle还不能解决mdi窗体的创建问题.最后只能用application来"解决"这个问题.更恶心的是传入了一个form指针.2.dev Express控件在放入dll后,必须将运行期包编译到dll里面.也就是说dll和宿主程序不能共享devExpress的bpl.求解决方法.3.原来传入_connection作为共享的链接,后来不成功了(留待以后破解这
2015-06-01 01:15:35
1633
转载 delphi低版本升高版本问题
首先声明，本帖更新时间不固定。另外，只愿意使用d7者勿入。为了节省篇幅，d7之前的就不提了。d7之后，对升级影响比较大的版本有这些：delphi2009，xe2以及xe5。2009开始string默认为unicode，xe2引入firemonkey，xe5支持手机开发。高版本的其它一些新特性，比如泛型，闭包，增强的rtti，dbexpress，helper等
2015-05-26 00:05:38
1216
转载 关于string和pchar
Delphi 中字符串的操作很简单，但幕后情况却相当复杂。Pascal 传统的字符串操作方法与Windows 不同，Windows吸取了C语言的字符串操作方法。32位Delphi中增加了长字符串类型，该类型功能强大，是Delphi 确省的字符串类型。字符串类型 在Borland公司的Turbo Pascal和16位Delphi中，传统的字符串类型是一个字符序列，序列的头部是一个长度字节
2015-05-26 00:02:38
2236
转载 cxgrid使用小结（3）：分组
订单号 商品名 单价 数量 金额001 aa 11.00 2 22.00001 bb 2.00 2 4.00001 cc 3.00 3 9.00----------------------合计 7 35.00002 ee 11.00 2 22.00002 bb 3.00 2 6.00002 cc 3.00 3 9.00------------------
2015-05-26 00:01:16
2218
转载 cxGrid 部分使用方法(2)
激活内置编辑控件1) .Controller.EditingController.ShowEdit(); 2) .Controller.EditingController.StartEditShowingTimer(); 3) .Controller.EditingItem := ; 4) .Editing := True;隐藏内置编辑控件 .Controller.
2015-05-25 23:59:29
921
转载 SQL Server创建存储过程 [转]
什么是存储过程？q 存储过程（procedure）类似于C语言中的函数q 用来执行管理任务或应用复杂的业务规则q 存储过程可以带参数，也可以返回结果q 存储过程可以包含数据操纵语句、变量、逻辑 控制语句等 存储过程的优点(1)执行速度快。存储过程创建是就已经通过语法检查和性能优化，在执行
2015-05-25 23:57:58
367
转载 cxGrid 部分使用方法(1)
ExpressQuantumGrid4的cxGrid的一些使用方法和经验 1.简单介绍：cxGrid右下方的cxGrid1Level1是表示Grid表的层，cxGrid可以有多层，这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2，右击
2015-05-25 23:57:47
2569
转载 什么是MES?
MES即制造执行系统，能通过信息传递，对从订单下达到产品完成的整个生产过程进行优化管理。当工厂中有实时事件发生时，MES能对此及时作出反应、报告，并用当前准确的数据对它们进行约束和处理。这种对状态变化的迅速响应使得MES能够减少企业内部那些没有附加值的活动，有效地指导工厂的生产运作，同时提高了工厂及时交货的能力、改善了物料的流通性能，提高生产回报率。MES还能通过双向的直接通讯在企业内部和整个产品
2015-05-25 21:51:59
2671
转载 Delphi/Free pascal 终极流化技术
流化技术，有些编程语言中也称为序列化技术，亦即把一个对象的状态保存到一个文件中，也可以逆向从文件中读取内容以初始化这个对象。 Object Pascal语法提供不完全流化的能力，仅支持对Published属性的流化/反流化操作，对private、public及protected属性则无能为力。 在Delphi/Free pascal的VCL类库体系中，处于金字塔次顶
2015-05-25 21:49:24
1565
转载 Delphi数据库的拼音检索(查询)方案-汉字转换成拼音
Delphi数据库的拼音检索(查询)方案-汉字转换成拼音 昨夜看到一篇文章，可以用Delphi将汉字->拼音，可是将拼音转换成汉字又该如何操作哪？我的数据库：通讯录软件缺少用拼音查找功能.结果，搞到12点还是无果！唉！ 中午找到输入拼音可以检索汉字，可是在数据库中怎样实现哪？2个小时，无果！ 今天实现: 1.首先建立字库；2.检索：先从数据库读出
2015-05-25 21:46:35
1916
原创 delphi 两个有意思的函数
此函数可以用variant返回多个字段的值function TDataSet.GetFieldValue(const FieldName: string): Variant;var I: Integer; Fields: TList;begin if Pos(';', FieldName) begin Fields := TList.Create
2015-05-25 19:24:58
506
转载 轻松实现DBGrid的多表头
轻松实现DBGrid的多表头 hj0791（原作） 关键字 多表头 用法： 设置DBGrid的Column的Caption属性 例如：Column1的Caption为111|222 Column2的Caption为111|333 那么Column1和Column2公用一个表头111unit
2015-05-25 19:21:57
2658
转载 Delphi 怎样 把TParams 或 record写到流里面
type TRec=Record msg:string; pic:TMemoryStream;end;procedure TForm2.BitBtn1Click(Sender: TObject);var ms:TMemoryStream; Rec1,Rec2:TRec; cc:tmemorystream; jpg:TJP
2015-05-25 19:14:03
1125
转载 如何将TParams类型转为Variant？[转]
如何将TParams类型转为Variant？InParam :TParams;提供的函数为function ExecProc(const ProcName: AnsiString; const InParam: Variant): Integer;如果直接调用ExecProc('SP_Name', InParam)编译通不过如何将InParam转为Variant?
2015-05-25 19:05:42
616
原创 [DCC Error] E2161 Error: RLINK32: Error opening file "_____.drf"
关于这个问题：有两种解决方法（本人用两种方法都解决过这两个问题，不过比较偏向于后一种解决问题本质）1.修改build control 为 Explicit rebuid2.清除环境变量里面的多余的路径：
2015-05-25 19:01:56
2105
转载 深刻理解TNotifyEvent [转]
function OnButton1Click(Instance, Sender: TObject);begin showMessage(Instance.ClassName); showMessage(Sender.ClassName);end;var event: TNotifyEvent;TMethod(event).Data := Button1;T
2015-05-25 18:59:09
449
转载 StarTeam client compare 设置
StarTeam supports integration with third-party Compare and Merge tools. To use Guiffy with StarTeam: 1) Select Tools\Workstation Options from the menu bar. The Workstation Options dialog opens. 2)
2015-05-25 18:58:19
503
原创 我的云设计
我开发的风控计算服务程序和高速行情服务中，无意中已经有了云的雏形。 1.有了分片计算的概念。分片计算中，特殊点1是对访问结束点的判断，结束点判断有两种：一种是计数器判断法，一种是复杂逻辑判断法。2是队列的使用，3是分片任务的优先级的控制。计算任务可能是不停的在分解的，有时候子任务无穷分解时，会产生很多中间数据，这些中间数据如果不迅速处理掉，会耗尽系统资源；所以这时候就得考虑子任务的优先级
2015-05-25 18:51:02
462
“狐狸” 可编程串口调试工具
2018-10-16
“花豹”代码高亮专家
2018-10-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人