Delphi：对TMemoryStream.Memory错误的理解

2017年02月06日 59 阅读

Delphi：对TMemoryStream.Memory错误的理解2013-12-12TMemoryStream 的 Position 变化后, 我曾经认为它的 Memory 属性也会变化; 只怪不看源码, 只想当然！procedure TForm1.FormCreate（Sender: TObject）;varStream1,Stream2: TMemoryStream;pw: TPtrWrapper;beginStream1 := TStringStr...

Delphi FireDAC 下的 Sqlite（一） 前言

2017年02月06日 68 阅读

Delphi FireDAC 下的 Sqlite（一） 前言2015-02-13很长时间没静下心来写博客了, 现在回来, 是 Delphi 不断地进步让我感动、振奋.Delphi XE5 并入了 FireDAC, 第一印象非常好, 恐怕 dbExpress 等等都要靠边站了.让我最高兴地是 FireDAC 对 Sqlite 的支持！优秀的 Sqlite 早就有很多 Delphi 的包装（, 从 https://code.google.com/ 等还能搜到更...

Delphi FireDAC 下的 Sqlite（二） 第一个例子

2017年02月06日 65 阅读

Delphi FireDAC 下的 Sqlite（二） 第一个例子2015-02-13为了方便测试, 我把官方提供的 C:UsersPublicDocumentsEmbarcaderoStudio14.0SamplesdataFDDemo.sdb 复制了一份到 C:TempFDDemo.sdb.{新建一个 VCL Forms Application, 然后添加如下控件（建议按 Ctrl + . 后用键盘输入添加）:}TFDPhysSQLiteDriverL...

Delphi FireDAC 下的 Sqlite（三） 获取数据库的基本信息

2017年02月06日 56 阅读

Delphi FireDAC 下的 Sqlite（三） 获取数据库的基本信息2015-02-13在空白窗体上添加: TFDConnection, TFDPhysSQLiteDriverLink, TFDGUIxWaitCursor, TMemoprocedure TForm1.FormCreate（Sender: TObject）;varList: TStrings;V: Variant;beginFDConnection1.Open（"DriverID=...

Delphi FireDAC 下的 Sqlite（四） 创建数据库

2017年02月06日 68 阅读

Delphi FireDAC 下的 Sqlite（四） 创建数据库2015-02-13建立数据库的代码:{建立内存数据库的一般代码:}beginFDConnection1.DriverName := "SQLite"; //同 FDConnection1.Params.Add（"DriverID=SQLite"）;// FDConnection1.Params.Add（"Database=:memory:"）; //可省略这行, FireDAC 的源码显示...

Delphi FireDAC 下的 Sqlite（五） 数据的插入、更新和删除

2017年02月06日 59 阅读

Delphi FireDAC 下的 Sqlite（五） 数据的插入、更新和删除2015-02-13先在空白窗体上添加: TFDConnection、TFDPhysSQLiteDriverLink、TFDGUIxWaitCursor、TFDQuery、TDataSource、TDBGrid（并在设计时关联好）.你也可以复制下面文本框中的内容, 然后直接往窗体上贴, 以快速完成以上的添加过程: object DBGrid1: TDBGrid Left = 16...

Delphi FireDAC 下的 Sqlite（六） 加密

2017年02月06日 77 阅读

Delphi FireDAC 下的 Sqlite（六） 加密2015-02-13主要就是设置 TFDConnection 的两个链接参数: Password, NewPassword, 非常简单.constdbPath = "C:TempSQLiteTest.sdb";{建立加密数据库, 密码是 mm123}procedure TForm1.FormCreate（Sender: TObject）;conststrTable = "CREATE TABLE ...

Delphi FireDAC 下的 Sqlite（七） 备份、优化和事务（Transaction）

2017年02月06日 57 阅读

Delphi FireDAC 下的 Sqlite（七） 备份、优化和事务（Transaction）2015-02-13用 TFDSQLiteBackup 控件, 两三行代码即可完成 Sqlite 数据库的备份.procedure TForm1.Button1Click（Sender: TObject）;begin{先初始化目标}FDConnection1.DriverName := "SQLite";FDConnection1.Params.Add（"Da...

Delphi FireDAC 下的 Sqlite（八） 自定义函数

2017年02月06日 62 阅读

Delphi FireDAC 下的 Sqlite（八） 自定义函数2015-02-13Sqlite 本身没有这个功能, FireDAC 通过 TFDSQLiteFunction 增加了该功能; 尽管通过某些 SQL 语句或通过视图也可以达到类似效果, 但函数会更灵活些.本例先建了一个成绩表, 然后通过两个 TFDSQLiteFunction 实现了 "总分" 与 "平均分" 的计算.你可以复制下面文本框中的内容, 然...

Delphi FireDAC 下的 Sqlite（九） 关于排序

2017年02月06日 61 阅读

Delphi FireDAC 下的 Sqlite（九） 关于排序2015-02-13SQLite 内部是按二进制排序, 可以支持 ANSI; FrieDAC 通过 TFDSQLiteCollation 支持了 Unicode 排序, 并可通过其 OnCompare 事件自定义排序.下面的例子, 测试了这两种排序的不同.可把下面代码直接贴在空白窗体上, 以快速完成窗体设计: object DBGrid1: TDBGrid Left = 0 Top = 0 W...

Delphi FireDAC 下的 Sqlite（十） 使用 R-Tree 搜索

2017年02月06日 57 阅读

Delphi FireDAC 下的 Sqlite（十） 使用 R-Tree 搜索2015-02-13R-Tree 主要用于三维空间的搜索, 据说这种搜索算法非常之快, 哪怕百万条记录也是眨眼间的事！SQLite 支持 1-5 维, FireDAC 也提供了 TFDSQLiteRTree 控件以方便定义回调函数. 为了简单, 我用二维表进行了成功的测试.建立 R-Tree 表（索引）时需要使用特定语法, 譬如: FDConnection1.ExecSQL（"...

Delphi FireDAC 下的 Sqlite（十一） 批量提交 SQL 命令的测试

2017年02月06日 65 阅读

Delphi FireDAC 下的 Sqlite（十一） 批量提交 SQL 命令的测试2015-02-13可把下面代码直接贴在空白窗体上, 以快速完成窗体设计: object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 265 Height = 338 Align = alLeft DataSource = DataSource1 TabOrder = 0 TitleFont.Charset = DEFAULT_CH...

Delphi FireDAC 下的 Sqlite（十二） 备忘录

2017年02月06日 66 阅读

Delphi FireDAC 下的 Sqlite（十二） 备忘录2015-02-13该话题的继续延伸主要就是 SQL 的语法了, 草草收场的原因是现在的脑筋已经进入了 IntraWeb 的世界.相关备忘会随时补充在下面://连接多个数据库的参考代码:FDConnection1.ExecSQL（"ATTACH ""c:hr.sdb"" AS hr"）;FDConnection1.ExecSQL（"ATTACH ""c:cust.sdb"" AS cust"）...

Delphi中如何备份数据表为insert 脚本

2017年02月06日 58 阅读

Delphi中如何备份数据表为insert 脚本2015-02-13unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB,Datasnap.DBClient...

Delphi中idhttp.post方式调用datasnap rest远程方法

2017年02月06日 74 阅读

Delphi中idhttp.post方式调用datasnap rest远程方法2015-02-13idhttp.get方式调用，这种比较简单，大家都会。post方式网上却没有任何成功的代码，本人也是摸索了一个上午才搞定。分享给大家。（1）post方式调用的远程方法，方法名必须加“update”前缀，不加行不？你试下啦。function TServerMethods1.updateecho（const value: String）: ...

如何把存储过程获取的数据输出到报表的html模板中

2017年02月06日 55 阅读

如何把存储过程获取的数据输出到报表的html模板中2015-02-13制作报表的html模板<HTML><meta http-equiv="Content-Type" content="text/html; charset=gb2312"/><TITLE>报表模板</TITLE> <BODY><TABLE BORDER="1" ce...

Windows系统中一个进程可以允许最大的线程数

2017年02月06日 58 阅读

Windows系统中一个进程可以允许最大的线程数2015-02-13默认情况下，一个线程的栈要预留1M的内存空间而一个进程中可用的内存空间只有2G，所以理论上一个进程中最多可以开2048个线程但是内存当然不可能完全拿来作线程的栈，所以实际数目要比这个值要小。你也可以通过连接时修改默认栈大小，将其改的比较小，这样就可以多开一些线程。如将默认栈的大小改成512K，这样理论上最多就可以开4096个线程。即使物理内存再大，一个进程中可以起的线程总要受到2GB这个内...

Delphi中多进程解决datasnap支持的tcp长连接数量少的问题

2017年02月06日 73 阅读

Delphi中多进程解决datasnap支持的tcp长连接数量少的问题2015-02-13对于实时采集数据的项目，应用场景比如是这样的：5000客户端，每个客户端每隔500MS要给服务器上传一次数据。大家知道，像INDY这种阻塞型的通信控件，所能支持的TCP长连接的一般地不能超过1000的数量（如果想要维持稳定运行的话）。原因是大家都晓得的，阻塞方式会为每一个SOCKET连接创建一个新的线程为之服务，而WINDOWS单个进程理论上允许最多的线程数量是204...

Delphi XE3 代码自动提示bug的解决

2017年02月06日 59 阅读

Delphi XE3 代码自动提示bug的解决2015-02-13在Delphi XE3的使用过程当中，发现代码自动提示功能经常失效，不提示，bug，给编程者代码很大的困扰，针对此，想出如下解决办法 ：1. Delphi XE3自带的代码提示功能中，如下图： 关闭 Code completion2. Delphi XE3按照Cnpack，在Cnpack的代码助手里，添加代码提示功能，如下图：完成以上两步，就解决了，XE3的代码提示经常不显示的bug问题；A...

Delphi XE3 Excel导入数据到StringGrid

2017年02月06日 54 阅读

Delphi XE3 Excel导入数据到StringGrid2015-02-13procedure TDataEditDrFrm.btn8Click（Sender: TObject）;varexcelx,excely:string;ExcelApp:Variant;workBook:OleVariant;excelRowCount,excelColumnCount:longint;i,j,row,row1:integer;beginrow1:=1;pb1...