2020年06月_pcplayer

12月 11月 09月 07月 06月 04月 03月 02月 01月

原创 FireDAC 学习 - 4：属性继承

我们知道，TFdQuery 是通过 TFdConnection 去连接数据库的。而 TFdConnection 连接数据库的参数，可以通过 TFdManager 获得。打开前面的例子程序，在设计期，选择 FdQuery1，看看其属性面板，有一个属性：FetchOptions，这个属性可以拉开，里面有一堆属性可以设置。选中 FdConnection1，查看其属性面板，也有一个 FetchOptions 属性；选中 FdManager1 查看其属性面板，也有一个 FetchOptions 属性。

2020-06-27 23:31:38 2134

原创 FireDAC 学习 - 3：建立数据库连接之 TFDManager

使用数据库，第一步是建立和数据库的连接。结果关于连接，不是第一篇，而是本系列第三篇。我使用 FireBird 开源数据库作为测试。FireDAC 支持 FireBird。在本系列第一篇，我没有仔细说 FDConnection1 是如何与数据库建立连接的。我用了最简单的办法，也就是双击设计期拖到界面上的 FDConnection1，它会弹出一个对话框。在那个对话框里面进行设置就好了，如下图：如上图，我指定 FireBird 数据库文件 TESTDATA.fdb 的全路径名称给 DataBase

2020-06-24 22:59:37 3857 1

原创 FireDAC 学习 - 2

复制数据ClientDataSet 依赖的是 Midas.dll，也就是说它是在 Midas 框架里面的。要想把一个 ClientDataSet 的数据复制给另外一个 ClientDataSet，最简单的做法是：ClientDataSet2.Data := ClientDataSet1.Data;这里的 Data 是一个 Variant 变量，它内含了具体的数据。但是，一个普通的 DataSet 比如一个 TADOQuery 是没有 Data 这个属性的。它的数据要变为 ClientData

2020-06-15 22:14:47 2841

原创 FireDAC 学习 - 1

之前玩 Delphi，数据库部分，用得最多的是 TClientDataSet。这个 TClientDataSet 有很多玩法，重点是它可以作为一个独立的内存表，无论数据来自什么数据库都支持，并且可以把内容保存为文件，也可以把内容通过远程传递。新的 Delphi，TClientDataSet 还在，但有了新的 FireDAC 的整套数据库访问控件，它也包含一个 TDfMemeTable 内存表控件。这个内存表控件该如何使用？比如，来自数据库的数据，该如何放进去？开始学习 FireDAC 的玩法。这里大

2020-06-14 22:23:32 4210

Delphi ACM Component，ACM 控件用于声音采集和播放，含全部源代码和使用例子

10多年前从网上找来的控件用在当时我自己写的网络语音对讲软件里面，基于 Delphi 7 的程序。最近有人提起网络通话，从电脑里面翻出来，看看能不能在现在的 WINDOWS 和新的 Delphi 版本上用。经过测试，只做了一点修改就可以在 Delphi 10.4 和 Windows 11 上使用了。里面有一个测试工程的代码是我写的，测试通过。同时这个代码也演示了这个控件如何使用。不需要安装控件，直接引用控件的源代码单元，动态创建控件就可以了。当然，这个只能用于 Windows 平台。

2023-03-24

Delphi FireMonkey TListView 做手机APP的主从列表的 Demo 源代码

类似卖货或者卖菜的手机 APP 的界面，左侧栏是分类，右侧栏是商品列表。采用 Delphi 来实现，一个源代码，可以编译到 Windows，安卓，iOS 目标平台上。也就是可以做手机 APP。这个 Demo 的解释：https://blog.csdn.net/pcplayer/article/details/126945466

2022-09-20

本人原创 Delphi 版本的 HTML 编辑器源代码

很多年前做过一个基于 Delphi 的 TWebBrowser 的 HTML 富文本编辑器，是基于 MS 的 DCOM 接口的方法来做的。它背后是 IE。现在 Delphi 提供了基于新的 Edge 浏览器的 TEdgeBrowser ，这个没有提供什么编程接口，因此采用 JavaScript 来实现相同的富文本编辑功能。本源代码就是实现此功能。包括文字格式化，插入表格，插入图片，插入代码块等等。插入代码块采用了一个开源的 JS 方案。本压缩文件包括 VCL 版本和 FMX 版本。可以用在 DELPHI 写的程序中，提供一个基于 HTML 的富文本输入和显示的界面给用户。

2022-03-30

Delphi FireMonkey 动画及多线程例子代码

Delphi FireMonkey 框架，一套代码同时支持多个平台

2021-01-22

发光按钮-基于Delphi FireMonkey的例子代码

采用 FireMonkey 的控件，无需写代码，设置属性，就能做出按钮发光的效果。这是本人摸索出来的一种实现方法的源代码。在 Delphi 上面可以编译为 Windows, Android, iOS 和 MAC 程序。

2020-04-06

MVVM_LiveBinding.7z

MVVM 模式是指 Model - View - ViewModel，也就是把数据业务逻辑和界面彻底分开，中间还有一个专门处理界面逻辑的 ViewModel。对于界面经常需要修改甚至大改的情况，这种模式减少了代码重写的工作量。当然，也让数据和业务逻辑模块可以单独做单元测试而无需界面。对于用对象而不是数据库来做数据对象的情况下，Delphi 提供的 LiveBindings 框架可以用更少的代码将分离的数据显示到界面上。并且可以同时兼容VCL和FMX，界面部分需要处理的代码工作量小很多，仅需可视化地拖拉就能搞定。本例子代码演示如何做到这一点。

2020-02-13

文本差异检查及显示的源码

用 Delphi 写的文本差异检查及显示的程序的源代码。文本差异采用 Diff.pas 来解析。差异的显示，采用 HTML 的格式。这样方便给差异的文本添加背景色。HTML 格式采用 BootStrap 框架。所需的 css, js 文件都在 win32/debug 目录下。也就是和可执行文件在同一个目录下。

2018-10-13

Delphi APP 使用 iOS 的 BackgroundFetch 的例子源代码

Background fetches 在 iOS7 时被加入进来。这个功能是让 APP 在后台时，iOS 会每隔一段时间（比如，30秒）调用一次 APP 的某个方法，用于从网络获取数据。这里是 Delphi 调用这个功能的代码。

2017-10-10

Win7 远程桌面多用户补丁

CSDN上好多这个补丁，但那些用 install.bat 安装的补丁在WIN7打完升级补丁后远程桌面连接会闪退。这个补丁打完后，win7至2017-10-8的所有升级包后仍然有用。

2017-10-08

本人原创：FireMonkey APP 的多语言支持的例子源码

用 Delphi FireMonkey 开发 APP 需要多语言支持，例子源码。

2017-10-02

本人原创源代码：Delphi APP 内置 WebBroker 让界面显示HTML5

Delphi 开发的 APP 内置 WebServer 用SQLite数据库存储页面内容，界面显示HTML5文档无需访问远程网站服务器。

2017-09-30

本人原创：基于Delphi WebBroker 的 CMS源代码

本人原创作品：基于 Delphi WebBroker 的一个 Web server 程序源代码。功能是简单的 CMS，博客系统。前端基于 Bootstrap。文本编辑使用 CKEditor，可以上传文件和图片。

2017-09-18

Delphi接口委托的例子代码

接口委托及运行期动态切换的演示代码。

2017-05-31

Delphi WebService 利用 TSOAPAttachment 传文件的例子代码

WebService 程序利用 TSOAPAttachment 来上传或下载文件

2017-05-14

Delphi WebBroker 网页上传文件的 Demo 源码

网页上传文件的服务器端程序的源代码，采用 Delphi 的 WebBroker 技术。任何需要网页上传文件的地方都可以用。

2017-05-02

WebBroker StandAlone 模式当 Web Server 用的源代码 by pcplayer

把 Stand Alone 模式的 WebBroker 程序当一个完整的 Web Server 来用的 Demo 代码。

2017-04-05

Delphi LiveBinding对象及对象序列化为JSON的例子

在Delphi里将对象和界面用LiveBinding方式绑定，用户操作界面改变对象属性值，对象属性值序列化为JSON字符串保存。

2016-11-24

Delphi 在 DBGrid 里面显示分组统计的源代码

Delphi程序在 DBGrid 里面显示分类统计，也就是小计。用 ClientDataSet 的 TAggregateField 的方法，也可以用 DBGridEh。本程序演示了这两种方法。

2016-11-03

Indy10 WEB Server Demo代码

使用 Indy10 TIdHTTPServer 开发的一个简单的Web服务器。它可以设置WEB根目录，设置WEB请求默认文件，响应浏览器对WEB服务器上的文件的请求。允许浏览器请求一系列HTML或JS文件，可以用来做一个简单的静态网站。没有执行CGI程序的功能。这里是例子代码，我自己写的，参考了网上的文章。

2014-07-15

HotLog 源代码

我自己用得最多最顺手的 Log 工具。把这份PAS单元文件加入到你的工程里，随时可以写LOG。尤其是多线程情况下很难用断点跟踪时。个人感觉比 OutputDebugString 好用。

2013-06-18

网络连接状态查看工具

做网络通信程序，经常要查看 Netstat，然后从一大堆连接里面，找到自己想看的那一条。可能是想查某个程序，即某个PID打开了某个端口没；也可能是想查某个端口被哪个程序占用；也可能是想查某个IP地址被哪个程序连接，等等。用眼睛去看很累。我用DELPHI写了个程序，执行 Netstat 然后获得其返回的连接状态字符，任意过滤，方便查看。这个工具我自己用起来很顺手。压缩包里有源码。