自定义博客皮肤VIP专享

*博客头图：

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

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

博客底图：

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

栏目图：

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

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览 取消 提交

自定义博客皮肤

-+
上一步保存

csm2432的专栏

  • 博客(8)
  • 资源 (16)
  • 收藏
  • 关注
排序：
按最后发布时间
按访问量
RSS订阅

原创 QT 编程点滴

类定义后面要加";"函数的实现部分,如果定义部分有void,则实现部分不能少;检查include文件有无少;error: request for member `show in `((MainWindow*)this)->MainWindow::rightform, which is of non-class type `RightForm*|"->"与"."问题函数"()"

2009-11-09 17:19:00 10645 1

原创 FireMonkey下类似手机QQ侧滑菜单的实现

侧滑菜单效果图：{*------------------------------------------------------------------------------ 侧滑菜单实现 @author 清幽傲竹(fjfzcsm@qq.com) @version 2016/04/09 1.0 Initial revision. @todo 侧滑菜

2016-04-17 19:14:04 2015

原创 VGScene(firemonkey前身)布局设置

VGScene，其实就是firemonkey的前身,两者的设计逻辑其实是差不多的，看完这篇希望会对firemonkey的设计有所帮助，以下的截图就是最终的布局设计结果(listbox控件), 我懒得一一截图了。设计过程请看附件中的“VGScene布局设置.doc”,VGScene好像只能在D7环境下安装,xe10倒有一个dxsense升级版本，控件名改掉了,但用法是一样的

2016-04-17 17:34:21 1406

原创 delphi通过OLE对word进行单元格合并操作

上图为最终结果，直接上代码： uses comobj, word2000procedure TForm1.Button2Click(Sender: TObject);var WordApp, WordDoc,table: OleVariant; fileName : string;begin WordApp := CreateOleObj

2012-06-27 13:16:26 3515

原创 delphi中通过CreateOleObject操控Word

上图为最终的WORD内容，看似简单，实则不易(研究了一天才得出所要的结果)。在开发的过程中，请配合Word中的宏与VBA帮助文档(Microsoft Office\OFFICE11\2052\VBAWD10.CHM)开发环境：delphi7+xp+word2003    uses comobj, word2000;procedure TForm1.Button1Clic

2012-06-26 12:32:14 7078 1

原创 DbgridEh本地过滤与多列排序功能

要实现下拉过滤或排序的功能,下面的步骤并不可少;1、uses EhLibMTE, EhlibADO; 2、DBGridEh.STFilter.Visible := True; 3、DBGridEh.STFilter.Local = True;(客户端过滤); 4、增加TDataSource、TMemTableEh、TDataSetDriverEh、TAdoQuery,TDBGr

2011-10-20 18:11:12 6089 1

原创 控制台中解析用户输入的命令行参数(argc argv)

命令行解析：argc argv 解析例子： tail -l20 -e123 或 tail -l 20 -e123*.h:#define COMMAND_LINE_LENGTH 2048#ifdef WIN32#include "windows.h"#define strtok_r( _s, _sep, _lasts ) / ( *(_lasts) = strtok( (_s), (_sep) ) )#else#endif*.cpp: QString tmp

2011-01-26 11:02:00 2809

原创 解决Delphi XML-RPC 中文乱码、结构/数组等没有解析I4项BUG

 最近要用XML-RPC机制实现delphi程序与Qt程序之间的通信,从开源网站http://sourceforge.net/projects/delphixml-rpc/下载Delphi XML-RPC 后发现中文字符串会出现乱码,跟踪代码后发现XML-RPC默认的字符编码是UTF-8,而且QT也都是用UTF-8编程,故把传输字符串改为UTF-8就行了，修改方法：一、单元XmlRpcTypes.pas     1、修改TRpcFunction类中的三个函数：GetRequestXML、GetRespons

2010-12-30 21:38:00 2310 1

FireMonkey下类似手机QQ侧滑菜单的实现2
FireMonkey下类似手机QQ侧滑菜单的实现FireMonkey下类似手机QQ侧滑菜单的实现FireMonkey下类似手机QQ侧滑菜单的实现FireMonkey下类似手机QQ侧滑菜单的实现

2016-04-17

FireMonkey下类似手机QQ侧滑菜单的实现
FireMonkey下类似手机QQ侧滑菜单的实现

2016-04-17

VGScene(firemonkey前身)自定义布局帮助说明
VGScene布局设置说明

2016-04-17

kbmmw例子 V2.0 (unidac+mssql)[2012-08-15]
winxp+delphi7+kbmmw4.0.3+unidac+mssql2000+dbgrideh 基本实现xalion中所说的功能并加上自己的一些编写经验 1、远程方法调用 2、取图像(流的使用) 3、查询数据 4、编辑数据：增、删、改(如果操作错误会进行相应的提示) 5、存储过程使用方法(存储过程参数自动创建) 6、动态创建数据集并执行Insert操作 7、命名查询(namedQuery) 8、事务操作(直接写SQL语句更新表的事务操作，有个重要的属性要设置，否则会更新不成功) 9、使用的数据库：sqlserver 2000，请到服务器的FDM单元把连接参数改下 10、数据库kbm_test结构参见：kbm_test.sql 11、安装kbmMw时请把配置文件 kbmMWConfig.inc中 {$DEFINE KBMMW_UNIDAC_SUPPORT} // UNIDAC support. 前面的//去掉 12、使用delphi7 2012年8月新增功能与说明 1、客户端断线重连：kbmMWTCPIPIndyClientTransport1.MaxRetries := 2;//重连一次 2、对象传输 3、JSON传输(利用kbmmw带的json库实现) 4、客户端断开代码： if FDM.kbmMWSimpleClient1.Transport.IsConnected then begin //memo1.Lines.Add('程序已有300秒没有进行操作，断开连接'); FDM.kbmMWSimpleClient1.Disconnect; end; 5、新增远程过程调用函数(直接SQL语句操作数据库): startTran:启动事务 commitTran:提交事务 rollbackTran:回滚事务 openSql:打开SQL语句 execSql:执行SQL语句 注openSql、execSql两个函数体代码使用对象连接池技术,无对象创建与释放，以提高系统效率， 具体能提高多少，未实测 6、增加HTTP协议例子(参考资料：kbmMW_and_AJAX.pdf)，提供http-get的功能，http-post的功能可参照http-get方法实现 7、提供数据集转json与json转数据集 (CDSFromJSon(CDS:TClientDataSet;JsonStr:string):Boolean)单元：uDBJson.pas 参照代码可自行把json转kbmmwQuery kbmmw编译unidac方法： 修改单元kbmMWUNIDAC.pas，本人在数据库中很少用到blob字段，所以在代码里屏蔽掉blob字段的处理， 经测试数据库表字段类型为Text时，程序可以正常处理 报OLE DB error occured. CoInitialize has not been called (server)错误解决: unidac41src\Source\UniProviders\SQLServer\OLEDBAccessUni.pas constructor TOLEDBConnection.Create; begin inherited; CoInitialize(nil);//加此句 FCommand := nil; ... end; destructor TOLEDBConnection.Destroy; begin Disconnect; FCommand.Free; CoUninitialize;//加此句 inherited; end; 作者：chensm@vip.qq.com kbmmw开发交流群：209321818

2012-08-15

kbmmw+unidac+sqlserver2000例子
winxp+delphi7+kbmmw+unidac+mssql2000+dbgrideh 基本实现xalion中所说的功能并加上自己的一些编写经验 1、远程方法调用 2、取图像(流的使用) 3、查询数据 4、编辑数据：增、删、改(如果操作错误会进行相应的提示) 5、存储过程使用方法(存储过程参数自动创建) 6、动态创建数据集并执行Insert操作 7、命名查询(namedQuery) 8、事务操作(直接写SQL语句更新表的事务操作，有个重要的属性要设置，否则会更新不成功) 9、使用的数据库：sqlserver 2000，请到服务器的FDM单元把连接参数改下 10、数据库kbm_test结构参见：kbm_test.sql 11、安装kbmMw时请把配置文件 kbmMWConfig.inc中 {$DEFINE KBMMW_UNIDAC_SUPPORT} // UNIDAC support. 前面的//去掉 12、使用delphi7 kbmmw编译unidac方法： 修改单元kbmMWUNIDAC.pas，本人在数据库中很少用到blob字段，所以在代码里屏蔽掉blob字段的处理， 经测试数据库表字段类型为Text时，程序可以正常处理

2012-04-06

数据库转sqlite数据库
access库转sqlite库 1、可以转换access表中的主键、自增长字段、字段类型、字段长度、索引等 2、因sqlite不支持表属性(表描述)、字段描述， 程序会把这些信息存入access_table,access_column表中以供参考 3、如果access库中 自增长的字段autoId不是为主键，而name字段为主键 在sqlite中，如果字段为自增长，则必须为主键，碰到这种情况，程序是这样处理的 字段autoId: 因为是自增长字段，必须设置为主键 字段name:去掉主键属性，加上一个唯一索引 4、插入数据时，有启用sqlite的事务处理 5、实测,access库中有33张表，总共45万多条数据(有张表334613条记录)，所花时间1243.078秒 电脑配置：cpu:E7500,内存2G 6、导入数据时，是一次性打开access表的，并循环一条条插入，如果有太多的数据，如百W，则没测试过 没启用成批插入数据，不知启用成批插入数据，性能会不会成倍的提升。 7、sqlite下，默认是区分大小写的，而access没有，故把字符类型的字段的Collate设置为NOCASE 8、开发所用时间：一周左右(业余时间) 9、开发环境：delphi6+xp

2012-03-25

access库转sqlite库
access库转sqlite库 1、可以转换access表中的主键、自增长字段、字段类型、字段长度、索引等 2、因sqlite不支持表属性(表描述)、字段描述， 程序会把这些信息存入access_table,access_column表中以供参考 3、如果access库中 自增长的字段autoId不是为主键，而name字段为主键 在sqlite中，如果字段为自增长，则必须为主键，碰到这种情况，程序是这样处理的 字段autoId: 因为是自增长字段，必须设置为主键 字段name:去掉主键属性，加上一个唯一索引 4、插入数据时，有启用sqlite的事务处理 5、实测,access库中有33张表，总共45万多条数据(有张表334613条记录)，所花时间1243.078秒 电脑配置：cpu:E7500,内存2G 6、导入数据时，是一次性打开access表的，并循环一条条插入，如果有太多的数据，如百W，则没测试过 没启用成批插入数据，不知启用成批插入数据，性能会不会成倍的提升。 7、sqlite下，默认是区分大小写的，而access没有，故把字符类型的字段的Collate设置为NOCASE 8、开发所用时间：一周左右(业余时间)

2012-03-25

kbmMw(ver 7.13.00)简单例子.rar
参考xalion博客：http://www.cnblogs.com/xalion/tag/delphi/ 基本实现xalion中所说的功能并加上自己的一些编写经验 1、远程方法调用 2、取图像(流的使用) 3、查询数据 4、编辑数据：增、删、改(如果操作错误会进行相应的提示) 5、存储过程使用方法(存储过程参数自动创建) 6、动态创建数据集并执行Insert操作 7、命名查询(namedQuery) 8、事务操作(直接写SQL语句更新表的事务操作，有个重要的属性要设置，否则会更新不成功) 9、使用的数据库：sqlserver 2000，请到服务器的FDM单元把连接参数改下 10、数据库kbm_test结构参见：kbm_test.sql 11、安装kbmMw时请把配置文件 kbmMWConfig.inc中 //$DEFINE KBMMW_ADOX_SUPPORT} // ADO Express support. 前面的//去掉，ADOX就是Delphi中的ADO(adoquery,adoconnection)

2012-03-11

解决Delphi XML-RPC 中文乱码、结构/数组等没有解析I4项BUG
最近要用XML-RPC机制实现delphi程序与Qt程序之间的通信,从开源网站http://sourceforge.net/projects/delphixml-rpc/ 下载Delphi XML-RPC 后发现中文字符串会出现乱码,跟踪代码后发现XML-RPC默认的 字符编码是UTF-8,而且QT也都是用UTF-8编程,故把传输字符串改为UTF-8就行了。

2011-01-04

Delphi XML-RPC 中文乱码解决方法
此资源不要下载，请下载最新的 最近要用XML-RPC机制实现delphi程序与Qt程序之间的通信,从开源网站http://sourceforge.net/projects/delphixml-rpc/下载Delphi XML-RPC 后发现中文字符串会出现乱码,跟踪代码后发现XML-RPC默认的字符编码是UTF-8,而且QT也都是用UTF-8编程,故把传输字符串改为UTF-8就行了

2010-12-30

解决Delphi XML-RPC 中文乱码
此资源不要下载，请下载最新的 最近要用XML-RPC机制实现delphi程序与Qt程序之间的通信,从开源网站http://sourceforge.net/projects/delphixml-rpc/ 下载Delphi XML-RPC 后发现中文字符串会出现乱码,跟踪代码后发现XML-RPC默认的 字符编码是UTF-8,而且QT也都是用UTF-8编程,故把传输字符串改为UTF-8就行了，

2010-12-30

StarUML修正版 5.0.3.1617
starUml修正版5.0.3.1617 安装旧版后覆盖即可

2010-09-28

QT项目中的qss代码
本人实际项目中写的的qss, 皮肤图片是从delphi三方控件businessskin皮肤中切来的

2010-09-16

delphi调用javascipt
用delphi代码调用javascript中的代码 大家也可以直接去万一博客去下载

2010-09-16

javascript调用delphi中的函数
用javascript代码调用delphi写的函数

2010-09-16

利用Qt中的WebKit与网页中的javascript进行交互
利用Qt中的WebKit与网页中的javascript进行交互; Demo中实现用javascript代码调用Qt中的函数,用Qt中的代码调用javascript中的函数; 测试网页：myjstest.html

2009-05-18

空空如也

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

TA关注的人

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