2019年08月_pcplayer

10月 09月 08月 06月 04月 02月

原创 MediaPlayer Android 下播放 MP4 的问题

开发环境：Delphi 10.3.1 社区版。测试环境：A. Android 5.0;B. Android 9.01. 进度条Delphi 官方带的例子里面，关于进度条的代码：procedure TForm1.Timer1Timer(Sender: TObject);begin if ProgressBar1.Max <> MediaPlayer1...

2019-08-13 18:24:26 3237

原创安卓下打开 PDF, MP4 等外部文件

用 Delphi 写的 APP 要打开诸如 MP4，PDF 等文件，可以调用安卓系统里的其它程序来打开。调用方法，我之前写过一篇：https://blog.csdn.net/pcplayer/article/details/80852385最近要播放 MP4，再次把这段代码拿来测试了一下。发现在 Delphi 10.3.1 + Android 9.0 的情况下：URI := TJnet...

2019-08-13 11:54:14 2108

原创 APP 多张图片滑动显示 - 之二

上一个同名的博客，俺写了如何用代码去让 TabControl 切换 TAB 页的时候出现滑动的效果。上述代码，在 WINDOWS 底下是没有问题的。在 Delphi XE8 上面，跑当年的安卓手机（Android 5.0）也是没有问题的。在 Delphi 10.3.1下，Android 9.0 底下，上述代码不会出现滑动效果，图片直接跳出来，而不是滑出来。FireMonkey 还有另外一...

2019-08-11 19:29:16 1536

原创 APP 多张图片滑动显示

用 Delphi FireMonkey 做一个简单的 APP，效果是多张图片，滑动显示。一次显示一张图片，手指触摸屏幕左边，向左滑动显示下一张图片；手指触摸屏幕右边，向右滑动显示上一张图片。图片切换过程，有滑动过去的动画效果。实现方法：1. 在 Delphi 里面，创建一个 FireMonkey 的工程。里面有一个 Form1；2. 在这个 Form1 上面，放上一个 TabContr...

2019-08-11 13:17:18 2342

原创 FireMonkey 界面的玩法

FireMonkey 用来做 APP 的一个特点就是做界面通吃各平台，因为它自己画图。因为自己画图，所以如果 APP 需要一些效果，也可以程序员自己搞定，通过组合各种形状，无需找第三方控件。先看一个效图图：第一个图是界面元素，第二个图中的圆圈发光，是因为鼠标点下去（或者手指头触摸）。这种效果，我摸索了一下，发现用 FireMonkey 完全可以在设计期用现场控件堆出...

2019-08-10 19:04:25 7006

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