红鱼儿

摘要：今天发现，拍照功能，直接返回，app就崩溃了！正常拍照没有问题： procedure TCustomListViewCameraDoc.actCameraExecute(Sender: TObject); var Service: IFMXCameraService; Params: TParams 阅读全文

摘要：ChinaCock带了CCShortcutBadger，用来显示android桌面上图标的角标。 用起来简单： 1.放置一个CCShortcutBadger 2.确定显示数字 CCShortcutBadger1.applyCount(10); 3.要支持华为手机，需要修改AndroidManifes 阅读全文

摘要：procedure Tmainform.Button5Click(Sender: TObject); var cnt: Integer; PutFileOK: boolean; begin cnt:=0; while True do begin cnt:=cnt+1; try kbmMWFileCl 阅读全文

摘要：现在官方也支持代码联接线，cnpack也支持，两个都画上，重复了，需要取消一个，按上面两个图，你自已选择吧。 阅读全文

摘要：看上图，在一个方法中声明了一个对象：PlayVideoForm，在Delphi 10.4这个版本中，PlayVideoForm的值不为nil，Delphi 10.3.3版本中默认为nil，升级到10.4.2后，因为不nil，所以无法建立对象PlayVideoForm，产生地址错误。把这个PlayVi 阅读全文

摘要：procedure TForm3.Button1Click(Sender: TObject); begin FBindings := TkbmMWBindings.Create; FBindings.Bind(DisplayDataSet, 'f1', ListView1, '#Text1'); / 阅读全文

摘要：近期升级uniDAC到最新版本，发现kbmMW Server无法正常运行，经群友菜鸟的努力，找到了问题所在：初步查明是字符串的长度问题，字符串到数据库长度只有1个字节。下面是他修改的代码： 所在单元DBAccess.pas 为此问题，菜鸟解决到半夜1点，感谢他！ 下面是另一种改法，更好，建议按下面修 阅读全文

摘要：Delphi Event Bus支持简单的通道，使用他分三步： 1.定义通道方法： [Channel('MemoChange')] procedure OnMemoChange(aMsg: String); 2.注册接收通道消息的对象： procedure TfrmThird.FormCreate( 阅读全文

摘要：从delphi 10.3到delphi 10.4的改变实务，这是一篇非常详实的文章，转贴过来，向作者表示感谢。 阅读全文

摘要：Delphi升级到10.4.2，同时升级uniDAC到8.4.1，今天遇到一个问题，注销功能，提示这样一个信息：database is locked. 猜到可能是uniDAC升级带的问题，于是找到uniConnection,如下图，改LockingMode为imNormal，问题解决！这运气还好的了 阅读全文

摘要：朋友告诉我的，一试还真行： 如果能随意调节就完美了！ 后续发现，这样设置会产生高亮显示关键字时，显示错误的情况，无耐又改了回去。 阅读全文

摘要： 阅读全文

摘要：如果你用Delphi开发app，这篇文章是你必须看并且要学会使用这个发布工具。学会用Deployment Manager，你才会真正感觉到下图的境界！ 这张更爽！ 现在，DeployMan开源了！Deployment Manager now Open Source 作者开源了这款软件，你也可以参与开 阅读全文

摘要：1、Android 64位新规则 详看官方文档：https://developer.android.com/guide/app-bundle 1、当包大于150M； 2、当引入过多SDK造成包过大时；发布出来的结果，是aab（App Bundle格式，一种新的发布格式），而非apk 2、D10.4. 阅读全文

摘要：最新的Delphi版本发展到10.4.2，完美支持Andriod 11，但由于Android本身的变化，在开发Android app拍照功能功能时，还是会遇到问题，但这不是Delphi本身的问题，而是你不知如何在Delphi中处理的问题。为什么会这样呢？一句话，Android本身不断变化造成的。 今 阅读全文

摘要：随着Delphi 10.4.2发布，ChinaCock作者也紧随其后，发布了支持10.4.2的版本:ChinaCock10.4.2百年建党童心向党版.从名字看作者是一个爱国主义者，让人敬佩！不仅如此，为了支持华为，作者在此版本中集成了华为扫描。接下来，我们通过组件包带的例子，看看如何在app中集成华 阅读全文

摘要：无论是发布消息，注册订阅方法等，都用到GlobalEventBus这个全局接口对象。接下来我们看看他是怎么来的？ function GlobalEventBus: IEventBus; begin Result := TEventBusFactory.GlobalEventBus; end; 原来， 阅读全文

摘要：看下面的代码，求两个时间间隔的秒数： procedure TForm2.FormCreate(Sender: TObject); begin d1:=Now; end; procedure TForm2.Timer1Timer(Sender: TObject); var i:Integer; s:s 阅读全文

摘要：上文根据Delphi Event Bus开源项目自带的例子，对其基本用法做了介绍，相信通过这个例子，你也能明白如何使用Delphi Event Bus到自己的项目中，让项目代码更解耦，易维护与易扩展。 今天，进一步说说如何更深入的使用Delphi Event Bus。 首先，想说的是对于订阅方法的注 阅读全文

摘要：用上10.4.2这个版本，已经快一个月了，这期间把项目从10.3.3升级到这个版本，总体感觉还是不错的。具体来说： 1.原来无法在debug下编译成android的项目，现在可以了，从而可以单步跟踪，这在开发中方便了不少。遗憾的是，在android 9上可以，在android10上不行出下面这个错误 阅读全文

摘要：什么是Event Bus，可以百度一下这个关键词，了解一下。具体来说，好处有两点： 1.广播通信，当对象状态发生改变时，会自动通知已经订阅过的对象2.发布者与订阅者耦合性降低，发布者只管发布一条消息出去，它不关心这条消息如何被订阅者使用 Delphi 现在有了开源项目，https://www.git 阅读全文

摘要：有个OpenRecordItem方法，代码如下： procedure TCRecordInfo.OpenRecordItem; var sqlstr: string; begin sqlstr := 'Select * from cr_recorditem where FID=' + qrecord 阅读全文