自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(43)
  • 资源 (5)
  • 收藏
  • 关注

原创 扩展FMX下TGRID的TPopupColumn

FMX下的TGrid,通过扩展TPopupColumn显示枚举字段数据

2022-07-12 00:08:56 209

原创 (原创) Delphi中LiveBinding 绑定非数据库类数据的时候显示字段自定义名称(二)

DELPHI 10.4版本后,有关Bind的源代码修改了,原来的适用于10.3.3以前的方法不适用了,再来分析下10.4版本以后适用的方法。

2022-06-17 02:21:25 98

原创 (原创) Delphi中LiveBinding 绑定非数据库类数据的时候显示字段自定义名称(一)

DELPHI默认下,Grid控件通过TAdapterBindSource绑定到一个TObjectList<TObject>列表时,Grid的Header显示的是TObject的属性名称。不能像绑定数据集时显示自定义名称,我们来看看其是怎么实现的。Grid是如何绑定数据的,通过Grid的绑定类TLinkGridToDataSource,追踪到单元Data.Bind.Grid.pas。TCustomLinkGridToDataSource本身没什么相关的方法,其父类是TCustomLinkGri

2022-05-11 19:45:25 201

原创 Firemonkey Control的TabStop处理

Firemonkey Control TabStop

2022-03-11 00:00:39 257

原创 FireMonkey Control的Paint顺序

写FMX控件时,在追踪控件的绘制调用顺序的时候,研究FMX的源代码,老是看不出控件的Paint顺序,TControl的源代码里,只能追踪到源头PaintInternal(),并且PaintInternal()是不可覆盖的,然后代码里就没有看到哪里有调用PaintInternal()的地方(PaintTo(),ApplayEffect()等方法也调用了PaintInternal(),但是这个只是特别的应用Effect的调用,不是通用的调用),而且在TControl的下断点调试比较麻烦,会被其它的控件和FORM

2022-02-13 21:26:21 145

原创 openssl 几个函数运用注意

1、HASH的几个函数 md5(),sha1(),sha256()等几个函数,不能直接独立拿来用!这系列函数是库内部用的。实际运用中的HASH,要用openssl的摘要算法:EVP_DigestInit(EVP_MD_CTX *ctx, const EVP_MD *type) int EVP_DigestUpdate(EVP_MD_CTX *ctx, const void *data, size_t count) int EVP_DigestFinal(EVP_MD_CTX *ctx, unsigned

2021-10-29 11:25:22 76

原创 VCL 窗体 Z-ORDER

现在基本都是在做FMX运用,最近一个项目本来也是用FMX来做,但是在做初步规划的时候发现,FMX比较麻烦,因为要和下位机通信,并且实时显示下位机送上来的数据(SOCKET通信,各种传感器的数据),波形图显示方面的控件,FMX下没找到好用的,VCL下倒是有IOCOM等工控控件可以用。决定还是用VCL来做,而且也只在WINDOWS下运用。搞习惯了FMX的界面布局,在VCL没有LAYOUT控件真感觉不方便啊。回到正题,在一个ShowModal窗体上再弹出ShowModal窗体,如果这个窗体不是需要满屏显示

2021-05-05 17:33:05 51

原创 Delphi DataSnap/Rest 的重定向处理

DataSnap 服务器如果需要特别的重定向请求,比如:如果客户端(不管是浏览器还是客户端App)通过特别的URL请求服务器,则可以在DataSnap的WebModule模块的Actions列表的DefaultAction(向导字段生成的)事件:procedure TWebModule1.WebModuleDefaultAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolea.

2021-04-22 11:31:51 245

原创 Delphi Android 下的定时对话框

一个很普通的定时对话框,比如自动更新的确认对话框,网上找了好久竟然没有,(Delphi Android下的, JAVA的一大堆,比如这个 https://github.com/MZCretin/AutoUpdateProject ,是国人写的,看着就不错,虽然看不懂)。安卓是一个很奇怪的系统,窗体都是异步的非模态的,这样实现阻塞对话框很麻烦。有人提过不要用TForm来实现对话框,用TFrame来实现,我感觉用TFrame来做也是很麻烦。看过一个高手写的DEMO,是自己“画”的,看着累。偶然看到一个帖

2021-04-15 23:08:24 109

原创 DSRestConnection的超时设置

DSRestConnection的超时设置新版本的delphi的DSRestConnection的属性HTTP是基于 THttpClient的,所以,超时设置就这样:DSRestConnection.Http.ConnectionTimeout := 5000还有个ReadTimeout,相当与THttpClient的的ResponseTimeout...

2021-03-29 20:49:15 82

转载 DataSnap的Session问题

DataSnap的Session问题DataSnap系统中,如果服务端重启或者某种原因错误,会引起客户端的Session超时错误。如果不处理,只能是客户端重启,这样不好。这里有一个帖子提到了:https://stackoverflow.com/questions/58989507/datasnap-session-has-expiredDatasnap session has expiredI've been using client server application using d

2021-03-29 20:11:04 166

原创 关于类构造器的注意点

DELPHI的类构造器class constructor 注意点。class constructor 的一般行为和initialization 行为一样,但有一点区别,就是不能在class constructor中注册自己,在initialization 中可以,见示例:unit Unit2;interfaceuses System.SysUtils, System.Cl...

2019-03-22 10:50:46 191

转载 解决delphi客户端用TIDhttp POST 传参中文乱码问题(转)

用Tidhttp post方法向服务器传参,碰到中文乱码的问题。1、delphi传中文到Java是乱码。上代码:procedure TForm18.Button1Click(Sender: TObject);var userName : String ; userPwd : String ; Url: String ; Params : TStringLis...

2019-03-18 22:27:06 4723

转载 Delphi中强制IdHTTP使用HTTP1.1(转)

Delphi中强制IdHTTP使用HTTP1.1(转)标签:delphiwindows工具server2011-07-18 07:46952人阅读评论(0)收藏举报分类:Delphi IdHttp控件(29)前两天帮人写程序用IdHTTP控件往一网站发包如下:Delphi代码IdHTTP1.Request.Connection:='Keep-A...

2019-03-18 22:15:45 1719

原创 Delphi中的观察者模式运用

delphi message

2017-10-30 15:31:17 1013

转载 量子计算

https://www.zhihu.com/question/26933442

2017-10-23 19:48:33 210

转载 Window版本

http://blog.csdn.net/wjkaola123/article/details/51721348 GetVersionEx, 该方法在WIN8.1以后无效  参看: https://msdn.microsoft.com/en-us/library/ms724451.aspxmicrosoft提供的版本帮助https://msdn.micros

2017-08-12 13:56:05 425

原创 FMX从TCustomXXX继承控件的子控件,无法同时显示的问题

这个问题,我在盒子发了,也没有满意的结果。(http://bbs.2ccc.com/topic.asp?topicid=535134)模仿FMX的标准TPanel控件(这个控件没有什么实现的代码),自己写了个Panel,可以实现改变颜色及Stroke等属性,就是增加这几个属性:    //Appreance    property Fill;    pr

2017-07-31 01:49:33 718

原创 任意改变FMX的TPanel控件的颜色

FMX的控件的外观以Style为主,但是也有不方便的地方,比如要任意改变TPanel的颜色,只能写代码,摸索了几天,初步实现了unit FMX.JKPanelEx;interfaceuses System.SysUtils, System.Classes, System.Types, System.UITypes, FMX.Types, FMX.Controls, FMX.Ob

2017-07-17 02:00:35 2877

原创 FMX的Style中的Effects的注意问题

delphi中,当我们在IDE的窗体中添加控件时,会自动把相关单元加入uses的,所以一般不用考虑这个问题。但是,如果你在设计Style时,在Style里用了Effects(不是自带控件Style里的effects),程序运行时,会出现找不到你所修改的effect类的致命错误。这是因为uses缺少了FMX.Effects 和  FMX.Filter.Effects 这两个单元,但是delp

2017-07-15 19:42:45 1160

转载 Python图像处理库(2)

1.4 SciPySciPy(http://scipy.org/) 是建立在 NumPy 基础上,用于数值运算的开源工具包。SciPy 提供很多高效的操作,可以实现数值积分、优化、统计、信号处理,以及对我们来说最重要的图像处理功能。接下来,本节会介绍 SciPy 中大量有用的模块。SciPy 是个开源工具包,可以从http://scipy.org/Download 下载。1.4.1

2017-06-09 22:05:07 558

转载 Python图像处理库(1)

第 1 章 基本的图像操作和处理本章讲解操作和处理图像的基础知识,将通过大量示例介绍处理图像所需的 Python 工具包,并介绍用于读取图像、图像转换和缩放、计算导数、画图和保存结果等的基本工具。这些工具的使用将贯穿本书的剩余章节。1.1 PIL:Python图像处理类库PIL(Python Imaging Library Python,图像处理类库)提供了通用的图像处理功

2017-06-09 22:03:33 1115

原创 访问受保护的属性

偶尔翻Marco Canto的书,看到这个小技巧,记下来,老是忘记这个小技巧。比如要访问TDBGrid的Col和Row属性,这两个属性是Protected,一般不能直接访问,可以这样加个套:type  TFakeDBGrid = class(TDBGrid);然后:TFakeDBGrid(dbgrid1).Col; TFakeDBGrid(dbgrid1).Row;

2016-07-24 17:03:36 604

原创 indy httpserver 接收URL包含中文参数乱码的问题

在测试TIdHttpServer的时候,发现浏览器提交的URL包含中文时会乱码,我用的是XE7 UPDATE1,INDY是10。procedure TForm1.idhtpsrv1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;  AResponseInfo: TIdHTTPResponseInfo);

2016-07-06 23:53:37 4091 1

原创 关于线程的停止、挂起、退出(修改)

原来的实现:http://blog.csdn.net/jankercsdn/article/details/8874469 有许多不完善的地方,使用中进行了一些改动和完善,unit uHardWorkThread;interfaceuses Windows, Messages, Classes, SysUtils, SyncObjs;const WM_QUIT_HARD_T

2016-05-05 16:03:39 2322

转载 SQL Server 中Inner join 和where的效率差异

SQL Server 中Inner join 和where的效率差异总结出来时说:对小数据量(如是有了如下比较结果(均在查询分析器中查询和计时):语句(1)declare @operatorName nvarchar(50)set @operatorName = '%'select distinct item.* from item , cu

2016-03-03 15:44:16 735

转载 解析sql语句中left_join、inner_join中的on与where的区别

解析sql语句中left_join、inner_join中的on与where的区别

2016-03-03 15:41:51 246

原创 百度地图信息提示框的修改

一个小项目,百度地图的定制,电脑用的是触摸屏,支持手写输入,中文输入直接调用系统的虚拟键盘,手写输入是参考网上高手写的一个控件。百度的信息提示框里的搜索框里要输入查询地址,就是去哪里,到哪里那个地址输入框,要解决的问题是怎么把虚拟输入键盘的内容赋值到这个地址输入框,并要判断当前是哪个输入框。一般运用信息提示框是调用这个库“http://api.map.baidu.com/library/S

2015-04-30 12:08:55 9341

原创 raize控件的安装注意

重装电脑了,又要折腾DELPHI的安装了,目前用XE6,几个控件是必装的,DEV,RAIZE,TMS,FASTREPORT等。一般安装顺序是DEV,RAIZE,TMS,FASTREPORT,装完DEV后,启动DELPHI,正常,接着装RAIZE,启动,提示找不到BPL了,重装,填加路径等等,均不行,网上找原因,收藏里找相关记录,没找到,唉,折腾人。。。。。。。。原来安装也有碰到过这个问题,

2015-01-21 09:59:42 4060

原创 关于窗体透明的注意事项

窗体透明,控件不透明,简单有2种方法:1:OnCreate中

2014-11-19 09:45:32 422

原创 FastReport的动态页面设置

新版本的(4.xx)的FastReport有发很大改动,在动态设置页面时,有个地方纠结了好久,特记录下:var p:TfrxReportPage;begin p:=TfrxReportPage(frxrptFitting.Pages[1]); p.PaperSize:=DMPAPER_A4; p.TopMargin:=PageMarginFitting.Top; p.

2013-06-24 15:28:21 3894

原创 关于TVrScope的显示问题

项目里用到了TMS的工控控件TMS Instrumentation Workshop ,其中TVrScope简单波形显示控件的波形显示老是不理想,程序里怎么设置也不对,只好看控件源码了,创建显示点的函数procedureTVrScope.CreateGraph;调用了取显示值函数functionTVrScope.GetPlotValue(var S: string): Integer;func

2013-05-22 11:52:59 599

原创 关于线程的停止和挂起

在用线程的时候经常要启动和挂起,原来d7的时候可以用resume和suspend(但是,建议不要用这2个方法,因为这2个方法在操作系统层面会造成死锁),现在版本的TThread里已经把这2个方法声明为deprecated(我用的是xe2,具体不知道从哪个版本起)。原来在D7的时候要挂起线程,也没用suspend,也是自己实现。参考置顶帖(现在好象没了,只有推荐了,见 http://bbs.cs

2013-05-02 10:15:00 3970

原创 关于枚举电脑串口的一个小问题

一直在用Cport控件,也用了它带的一个枚举电脑串口的函数EnumComPorts(),原代码如下:procedure EnumComPorts(Ports: TStrings);var KeyHandle: HKEY; ErrCode, Index: Integer; ValueName, Data: string; ValueLen, DataLen, ValueTy

2013-04-25 10:51:56 888

原创 修正TiAnlogDisplay显示的问题

原来在DELPHI7下的程序移到XE2下,修修改改,总算行了。一直没注意这个TiAnlogDisplay控件,界面上用了好多这个控件,运行,显示为空,也不报错。看设计界面,也是空的,本来应当显示初始值的。用的是6.0.4 for xe2(网友自己改的),相同的源码在D7下没问题,这就奇怪了。再放个TiAnlogOuput控件(父类是TiCustomEdit),显示也没问题。这2个控件都继承自TiC

2013-02-25 13:43:22 540 1

原创 关于"ComponentDesigner.dcu"

今天又碰到了这个找不到"ComponentDesigner.dcu",源头是引用了dxsbar,它又引用了"Designwindows","Designwindows"引用了ComponentDesigner,但是delphi7默认不认识这个单元原来dev的组件是用低版本的,没这个问题,现在升级新版本,支持皮肤设计(估计的)原来的解决办法是去了这个'dssbar',不用皮肤网上找到了一个前

2012-09-19 10:52:41 919

原创 delphi xe2学习笔记(2)

又中断了,杯具的代码维护.继续白皮书。这下先专注提供数据库服务的DataSnap。按照白皮书的例子做好的服务端,然后接着做客户端,按照白皮书的顺序,先做只读的客户端,TDataSource->TClientDataSet->TDataSetProvider->TSQLServerMethod->TSQLConnection,这种连接方式中,TClientDataSet只要"Prov

2012-09-13 15:16:25 1824

转载 关于常量参数

摘自肯图的书Constant parametersWhile it works as expected for most types, for class and dynamic array parameters, const doesn’t actually prevent thesource object or array from being modified:uses Sy

2012-08-10 11:07:48 631

原创 delphi xe2学习笔记(1)

原有的一个项目准备扩展成多层应用。这个项目本来是个单机版的数据采集系统,delphi7+ACCESS开发的,已经在试运行(感觉良好,_~~_)。原本这个程序只是一个简单的数据采集显示系统,不过随着试用过程,客户要求也越来越多了,现在的程序和刚开始试用时比起来已经面目全非了。采集点扩展了,从原来的单串口扩展到现在支持16个串口,程序也从单个后台采集线程扩展到多个采集线程和管理线程(嗯,有2个线程

2012-07-31 10:35:11 1098 1

原创 找出数据库中的某个域最接近给定值的上、下值

//摘自网上function GetNearValue(tblName,fldName,confldName,confldValue:string; GivenValue:Double;                      var LowValue, HighValue:D

2011-07-22 09:11:40 540

DialogTimeout.rar

一个Demo,开始是为自动升级写的,后来做成通用的。比较简单啊,纯delphi实现的。 真机在红米9A下测试过,其它机型未测试。delphi版本是10.4.2

2021-04-15

TSC_TE344.rar

控制TSC 标签打印机的源码(D7 开发,高版本可以直接用),测试过 G310,TE344 打印机。代码带TSCLIB.DLL, 实际测试时请安装打印驱动。

2020-04-05

DelphiForBaiduPictureTextRecognition.rar

delphi 百度云图片文字识别,利用Indy调用百度云API接口进行在线识别,源代码,但是KEY要首先申请才能运行。

2019-12-06

win32中的串口通信(英文)

这篇文档不错,说的比较详细,英文的,凑合着看吧

2010-03-03

MRPII原理

MRPII比较完整的文档

2007-08-08

空空如也

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

TA关注的人

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