[FMX]从摄像头获取照片并转换为特定的格式

首先,我们要使用 TTakePhotoFromCamera 这个 Action 来获取一幅照片,在其 OnDidFinishTaking 事件中,可以得到一个 TBitmap 的图片。这块我们跳过代码。 然后,我们要将这个位图保存为我们希望的格式,如JPEG。默认调用它的 SaveToStream 它会保存为 PNG

[FMX]从系统摄像头中获取图片

FMX 从系统中获取图片预定义了一个动作,叫 TTakePhotoFromCameraAction,不过它的实现有一个小 Bug,大家要注意一下。 问题出在它默认的 ExecuteTarget 的实现中,它的代码如下:

问题就出在 Target 未必是

[教程] 手动将微信开放平台的 iOS SDK 转换到 Delphi 接口

1、下载 SDK,得到相应的头文件和静态链接库 .a; 2、打开 *.h ,然后挨个翻译,翻译的规则: enum 是枚举类型,直接翻译成 delphi 对应的枚举类型就可以了 NSENUM 直接翻译成对应的常量定义 @interface 声明的是一个接口,在 Delphi 中需要做简单的对应 2.1、声明一个对应的类的

[QString] 新增 UrlMerge 函数说明

QString 新增了一个 UrlMerge 函数用来替代Delphi自身 System.Net.UrlClient 单元提供的 TURI.PathRelativeToAbs 函数。为啥要替换它?理由只有一个:它的解析支持有点小问题,所以自己重写一个。 URL 相对路径转换为绝对路径有几种情况: 相对路径实际上是一个带

[杂谈] SDKTransform 试用笔记

SDKTransform 是 RadStudio 10 Berlin (后面称Berlin)里带的转换工具,可以将 iOS 或 OSX SDK 里的头文件转换为 Delphi 的接口文件。它是一个命令行工具,所以,需要你手动去在命令行下运行。 要使用它,你需要: 到 CLang 的官方去自行下载 CLang,然后安装,

[杂谈] 一个整数转其二进制表示的小函数

应群友的要求写的一个小函数,将一个32位整数转换为其二进制表示:

至于调用方式,则很简单,直接象 IntToBinStr(100) 就可以。如果想要前面保留多少个0,那你在长度上在前面加上n个0就好了。

[QString] 新增简繁体转换和货币金额中文大写支持函数

不多说,直接上函数声明:

货币大写转换的函数效果测试的示例如下:

这个示例程序位于 Demos\Delphi\VCL\CapMoney 目录下。

Json与MsgPack格式相互转换工具函数

上面提供了两个函数,JsonToMsgPack 用于直接将函数内容转换到 TQMsgPack 对象,MsgPackToJson 函数执行反过程,用于将 MsgPack 的内容转换为 Json 格式。由于 MsgPack 支持的类型要比 Json 更多一点

[转]封三郎-利用QJSON将FDQuery转成JSON串

服务器要支持Http协议,打算采用Http+JSON的方式来交换数据。一开始考虑使用superobject,因为以前使用比较多,比较熟悉。 代码如下:

 

这样写,没问题,可以得

Web格式与TColor类型的转换函数

支持#RRGGBB样式的Web字符串颜色格式的颜色值和TColor之间进行相互转换,从Web颜色格式转换为TColor类型的值时,支持省略前面的#号。

用法当然足够简单,如 FromWebColor(‘#FF0000’)直接就是红

QMsgPack-TClientDataSet内容直接保存到MessagePack数据流

QMsgPack支持AsVariant方法,而TClientDataSet提供了一个Data属性的Variant类型变量直接传递数据集内容,由此,我们可以方便的建立两者之间的关系。 【提示】 在Delphi的早期版本中,Data这个Variant类型的值内部使用的是AnsiString来存贮的字节流,但我并不确定Del