红鱼儿 - 博客园

测试delphi支持的线程锁的效率

摘要： TCriticalSection TMutex TSpinlock TMonitor 直接上图：运行结果如下：如代码如下： unit Unit5; interface uses System.SysUtils, System.Types, System.UITypes, System.Clas 阅读全文

posted @ 2021-05-17 13:19 红鱼儿阅读(1120) 评论(0) 推荐(0)

Delphi App集成DPush

摘要：前言前文，我们介绍了在kbmMW服务端集成DPush，实现kbmMWServer向DPush代理服务器发送消息，由于DPush优美的封装，代码量已经非常少了，实现起来非常方便与简洁。这个实现后，我们就可以在App客户端调用kbmMWServer封装的方法，轻松实现App推送消息给其他的用户。现在来阅读全文

posted @ 2021-05-16 12:54 红鱼儿阅读(783) 评论(0) 推荐(0)

kbmMW Server服务端集成DPush推送

摘要：当一个业务app没有启动，处于离线状态，这时候，有另外的用户提交了一笔业务，需要当前的用户得到通知，进行审核，这对于用户来说，是一个非常方便的功能！说起来美好，但对于Delphi来说，实现离线的消息推送，一直没有好的方案，也别说没有，谁让Goolgle的推送咱用不上呢？现在好了，有DPush推送方阅读全文

posted @ 2021-05-14 11:13 红鱼儿阅读(538) 评论(1) 推荐(0)

ChinaCock扫描Demo存在闪退问题的解决方法

摘要：今天一朋友问我，在android 10上运行ChinaCock Scanner Demo，从像册中选择文件后，app闪退。解决这一问题的方法：在AndroidManifest.template.xml中增加android:requestLegacyExternalStorage="true"即可：阅读全文

posted @ 2021-05-07 08:15 红鱼儿阅读(343) 评论(0) 推荐(0)

Delphi 原生支持JSON的链式写法

摘要： procedure TForm2.Button1Click(Sender: TObject); var sb: TStringBuilder; sw: TStringWriter; jtw: TJsonTextWriter; job: TJSONObjectBuilder; begin sb := 阅读全文

posted @ 2021-05-05 12:48 红鱼儿阅读(515) 评论(0) 推荐(0)

Delphi 10.4.2 发布三个补丁的说明及安装方法

摘要：这是官方的说明：https://blogs.embarcadero.com/rad-studio-10-4-2-general-patch-and-delphi-compiler-patch/ 这下官方的下载地址： http://altd.embarcadero.com/getit/public/l 阅读全文

posted @ 2021-05-02 19:43 红鱼儿阅读(4131) 评论(2) 推荐(0)

好消息: D推送让您不再为离线推送发难，不再为每年几万块的费用发难

摘要：好消息: D推让您不再为离线推送发难，不再为每年几万块的费用发难（主流小米，华为，oppo,vivo）安卓机支持离线推送。苹果原生推送现在开团开发（现在已经功能已经全实现，需要封装成产品，增加后台管理）费用说明：每个公司单推送产品2K/年，多增加一个推送产品+1K/年。只要10人就开搞，1个月（阅读全文

posted @ 2021-04-23 17:27 红鱼儿阅读(640) 评论(0) 推荐(0)

kbmMW RestService开发经验

摘要： 1.kbmMW支持在一个Server中使用多个RestServicve。这非常方便将不同的业务分开来实现，而不是写一个长长的单元来实现所有的业务。比如：对于一个企业应用来说，对于人力这块我们可以用一个HRRestService实现，销售业务用SORestService实现。 2.定义Service 阅读全文

posted @ 2021-04-22 09:42 红鱼儿阅读(230) 评论(0) 推荐(0)

TStringList还是需要认真学习！

摘要： //TStringList 常用方法与属性 :var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Excha 阅读全文

posted @ 2021-04-21 13:21 红鱼儿阅读(513) 评论(0) 推荐(0)

跨平台的文件Path操作

摘要：昨天发现服务端上传的文件出问题了，在kbmMW文件服务的root目录下，产生了上万的文件。造成服务不能正常运行，为什么会产生这样的现象呢？最后发现原来客户在上传文件时有问题，看下面的代码： function RenameFile(aFile:string):string; var rp,fn,ex 阅读全文

posted @ 2021-04-19 15:14 红鱼儿阅读(356) 评论(0) 推荐(0)

公告