红鱼儿 - 博客园

基于Delphi 11.1升级Android App遇到的坑及解决办法

摘要：第一个问题，启动闪退，Debug方式在Android平台运行，在启动过程中产生这个问题： Project PC.apk raised exception class EJNIFatal with message 'Java type com/embarcadero/firemonkey/teleph 阅读全文

posted @ 2022-04-14 00:12 红鱼儿阅读(1626) 评论(0) 推荐(0)

kbmMW使android App无法退出

摘要：升级到Delphi 11.1+kbmMW 5.19，编译后的项目在android平台上无法正常退出，这种情况下，再重进App，会卡死在启动界面，浪费N多脑细胞，发现是 kbmMWClientConnectionPool1造成的结果，他无法完成释放过程，跟踪代码发现执行StopScheduling方法阅读全文

posted @ 2022-04-12 20:13 红鱼儿阅读(246) 评论(0) 推荐(0)

使用cnpack快速复制单元

摘要： cnpack对于Delphi开发者来说，应该众所周知的，我就不多说了。今天非常高兴向大家介绍即将到来的新版本，将增加新的功能：复制当前单元，如下图：为什么增加这个功能呢？这得从Delphi的另存为功能说起，如下图：通过这个功能，我们可以把一个单元保存为一个新的单元文件，这表面上没有问题，但对阅读全文

posted @ 2022-04-09 22:15 红鱼儿阅读(1008) 评论(2) 推荐(1)

kbmMW 5.19 Debug状态编译的Android应用闪退的原因

摘要：用Debug调试，提示这个信息，跟踪代码，出下面图中的行上：在android上，上图中的这一行有问题，用Debug编译的app会闪退，检查这个函数，发现这个函数，result返回类型是Integer,而TThread.CurrentThread.tThreadID类型是cardinal,在Debu 阅读全文

posted @ 2022-04-03 01:22 红鱼儿阅读(374) 评论(0) 推荐(0)

Delphi 11.1 在FMX Image上画图遇到坑

摘要：上图是运行后的结果，正常左右两图应该是一样的结果，都在图上画出一个红框。下图是实现的代码： unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Varian 阅读全文

posted @ 2022-03-30 20:48 红鱼儿阅读(1093) 评论(0) 推荐(0)

Unknown picture file extension (.jpg)

摘要： VCL下的TImage，加载一个Jpg文件时，出这个提示，无法加载： Image1.Picture.LoadFromFile(fn1); 不认识这个文件格式，如果在设计期是可以调入对应的图片的。查了半天代码，原来，如果使用jpg文件，我们要引用Vcl.Imaging.jpeg。在uses部分引用V 阅读全文

posted @ 2022-03-24 17:55 红鱼儿阅读(679) 评论(0) 推荐(0)

用原生TBase64Encoding实现文件与Base64串互相转换

摘要：将一个文件转换成Base64编码串： function FileToBase64(fn: string): string; var msSource: TMemoryStream; msTarget: TStringStream; str: string; base64: TBase64Encodi 阅读全文

posted @ 2022-03-24 16:12 红鱼儿阅读(1280) 评论(1) 推荐(1)

Delphi 11.1 解决高分屏下设计期窗口显示太小的问题

摘要：升级到Delphi 11.1了，遇到个问题，当打开旧的VCL项目，显示的太小了，如下图一样：第一步，用代码取得窗口在运行期的PixelsPerInch值。代码如下： procedure TMainForm.FormCreate(Sender: TObject); begin ShowMessage 阅读全文

posted @ 2022-03-21 18:01 红鱼儿阅读(2275) 评论(1) 推荐(0)

Delphi 11 ListView实现删除一行

摘要：实现下图的界面，用ListView显示一个数据集的内容：点Delete删除所在行，下面是实现的代码： procedure TForm3.FormCreate(Sender: TObject); var I: Integer; begin //prepare dataset for I := 1 t 阅读全文

posted @ 2022-03-21 10:30 红鱼儿阅读(793) 评论(0) 推荐(0)

Delphi 11 定制欢迎界面

摘要：定制欢迎界面，如上图。真是方便易用。下图是定制后的显示：快升级到D11.1吧！阅读全文

posted @ 2022-03-18 23:04 红鱼儿阅读(1063) 评论(1) 推荐(0)

公告