2017年05月_pcplayer

12月 10月 09月 07月 06月 05月 04月

原创 Delphi 接口编程之：接口委托

本文假设你懂得 Delphi 的接口编程（关键词：Interface）假设我们定义了一个接口 IA，它有一个或几个方法。这里假设这个接口定义只有一个方法。然后，我们有两个不同的类，都实现了这个 IA 接口。但对其方法的实现，有点不一样。假设这两个类分别是 X 和 Y。也就是说，调用 X 的接口方法，和调用 Y 的同样接口的同名方法，得到的结果不同。这类似于对象继承的多态所要达到的目标。

2017-05-31 13:09:25 1728

原创 Git bare repository 的概念

要搞清这个概念，网上搜索一堆网页，中文的网页教程，没一个说得让人明白。而英文的，一看就明白。这是一份很容易看懂的英文网页：What is a bare git repository? 地址：http://www.saintsjd.com/2011/01/what-is-a-bare-git-repository/大意：git init 创建的是一个工作目录，

2017-05-27 19:54:14 10846 1

原创 Windows 底下安装 git Server: Bonobo Git Server

Bonobo Git Server 是一套基于 asp.net 的 git 服务器。运行于 Windows IIS 上。把它解压缩出来放到一个目录下，设置注意几点：1. 该目录让 IIS_User 有访问权；2. 官方文档特意提到该目录下的子目录 App_Data 要让 IIS_User 有写入权；3. 将该目录转换为应用程序（在 IIS 管理器里面，鼠标右键去点这个目录），可能事

2017-05-25 21:27:16 4818

原创多线程的临界区

Delphi 支持多平台以后，多线程的临界区的写法，和以前不同了。以前在 VCL 底下，临界区的使用，是创建一个 TCriticalSection 对象实例，使用这个对象实例的 Enter 方法进入临界区（实际上就是锁定一个缓冲区），另外一个线程如果要访问这个缓冲区的时候，同样调用这个临界区的 Enter，这时候它就进不去，知道前面那个线程调用临界区的 Leave 方法离开。TCr

2017-05-24 12:37:34 793

原创使用 LockBox 做加密解密

Delphi 提供的加密解密控件中，LockBox 是一套非常优秀的开源控件。其前身是 TruboPower LockBox 是一套商业控件。LockBox 到 Version 2 的时候决定开源。因此有 LockBox2，和之前的商业控件完全一样。后来，有人另外写了一套，叫做 LockBox3，这个版本同样开源，但代码完全不一样，用法也不一样。其采用的开源协议也不一样。关于 Lock

2017-05-22 11:33:35 3567

转载 git 学习

http://blog.csdn.net/tangbin330/article/details/9128765 使用详解http://blog.163.com/clevertanglei900@126/blog/static/11135225920101166432957/ 架设服务器http://www.cnblogs.com/lwme/archive/2

2017-05-21 23:35:01 350

原创 Windows 底下根据一个进程的名字杀死一个进程的代码

知道一个正在运行的进程的名字，比如计算器：Calc.exe杀死它的代码：USES TLHelp32; //必须 Users 这个，FindProcessID 函数需要用到它。{$R *.dfm}function FindProcessID(s:string):integer;var found,find:boolean; FSnapshotHandle:tHAND

2017-05-17 18:19:22 1216

原创 Windows 下用 Delphi 代码杀死进程，或者杀死自己

Windows 下杀死进程1. 用命令行杀进程，前提是你知道进程 ID。用 Windows 任务管理器可以查看一个运行中的进程的进程 ID。用命令行命令 netstat -nao 可以查看当前联网的进程及其 ID 知道进程 ID 后，在命令行输入以下命令可以杀死这个进程：ntsd -c q -p "pid" 2. 杀死一个别的进程，前提是我们知道这个进程的主 F

2017-05-17 17:51:44 1549

原创在 WebService 中采用 TSOAPAttachment 传输文件

Delphi 推出对 WebService 的支持很多年了。遥想当年 XML, SOPA 火爆的时候，Delphi 也跟风推出了对 WebService 的支持。现在 JSON RESTful 火爆了，Delphi 又跟风推出了 DataSnap。不过，我还是觉得 Delphi 的 WebService 采用的基于 Interface 的架构，代码更简单，优雅。不知道为什么 DataSna

2017-05-14 00:44:25 2134

原创如何访问一个控件的 Protected 段的成员，改变 DBNavigator 的行为

问题：如何在使用 DBNavigator 的时候，用户点了 “+” 符号，对应的 DataSet 不是执行 Insert 而是执行 Append，达到新纪录始终出现在 DBGrid 的最底部的效果？办法：通过修改 DBNavigator 的代码来实现。但我们不能去修改 DBNavigator 的源代码。DBNavigator 有一个 Buttons 属性，但是属于 Port

2017-05-12 19:33:26 419

转载 DBImage 使用 Jpeg 图片（VCL）

Delphi 的 DBImage 只支持 BMP 格式的图片。如果在数据库的 Blob 字段里面存储 BMP 图片，则 DBImage 可以自动显示图片。如果在 Blob 字段里面存储 Jpg 图片，则打开数据库的时候，如果绑定了一个 DBImage 到该字段，会报异常。要让 DBImage 支持 JPEG，其核心是：TWICImage.TWICImage 是 Delphi 10

2017-05-12 12:39:35 2467

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 然后获得其返回的连接状态字符，任意过滤，方便查看。这个工具我自己用起来很顺手。压缩包里有源码。

2013-06-18

Dspack for XE3

Dspakc 官方最后一个版本只支持到 D7。网上有另外一帮人彻底改写过的同名项目支持到 D2010/XE，在XE3底下也能安装。但我测试发现有一些问题，不如原来官方版本稳定。因此，我把官方支持到 D7 的最后一版在 XE3 底下做了小小修改后，可以在 XE3 底下安装成功，并且在我的正式工程里使用，没发现问题。

2013-06-17

基于 indy 的FTP客户端的例子

D7, INDY9, FTP 客户端的一个例子。已经用在实际的项目里的。

2010-03-30

空空如也

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

TA关注的人