![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
意帆
做一个快乐的程序员
展开
-
DELPHI 安卓APP扫码,最新的基于D12.1与ZXing的二维码和条码扫描页面,可以直接扫码以及选择图片扫码
原来使用华为的SDK,但是升级到D12.1后,不能正常使用了,现在把它改成Zxing的条码和二维码识别库。原创 2024-06-05 19:51:43 · 333 阅读 · 0 评论 -
delphi仪表盘,基于d11.3和skia4delphi以及fmxui扩展的类似于汽车仪表盘,可以灵活的设置各种参数
delphi仪表盘,基于d11.3和skia4delphi以及fmxui扩展的类似于汽车仪表盘,可以灵活的设置各种参数。原创 2024-06-05 19:39:38 · 270 阅读 · 0 评论 -
delphi d11 fmx发布Linux 程序当中出现的问题集合
delphi d11 fmx发布Linux 程序当中出现的问题集合原创 2023-12-06 11:51:29 · 521 阅读 · 0 评论 -
delphi d10 以上动态创建控件并集中管理,动态赋值
动态创建控件还是比较管理,但动态管理与赋值还是相对比较麻烦,原来是使用FindComponent来实现,但是可能是创建在不同的组件下面,无法循环还实现,现有利用 List 泛型来实现。由于工作需要,动态创建控件,包括文本,图片,GIF动图,按钮等控件,并根据不同的值,显示不能的内容,需要在运行时来改变状态,由此只能使用动态创建控件来实现功能上的要求。原创 2023-07-27 21:17:17 · 368 阅读 · 0 评论 -
delphi遍历record 各个属性和值
通过rtti遍历record,支持delphi2010以上版本,更低版本不支持。可以遍历record的field的名称、类型和长度。delphi遍历record。转载 2023-02-17 15:49:53 · 600 阅读 · 0 评论 -
delphi使用TDelphiZXingQRCode生成二维码条形码
使用TDelphiZXingQRCode控件生成二维码条形码打印到TBitmap位图中,可以把二维码保存到JPG图片中。转载 2023-02-16 13:13:03 · 1780 阅读 · 0 评论 -
DELPHI 制作DLL资源文件,动态加载字体并应用
DELPHI 制作FONT资源文件时,有可能会报 "brcc32 exited with code 1" ,最终选择不用font 而使用:RCDATA制作资源例如:AR_01RCDATA "AR_01 Regular.ttf"ZR_01 RCDATA "ZR_01 Regular.ttf"新建一个DLL程序,添加刚才的资源文件,直接编译成DLL文件====================================================================..原创 2022-05-06 14:30:26 · 573 阅读 · 0 评论 -
delphi webbrowser 打开网页无风格,显示不正常解决方法
这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能,丰富你的文章UML 图表FLowchart流程图导出与导入导出导入欢迎使用Markdown编辑器你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Mar原创 2021-06-07 20:07:07 · 550 阅读 · 0 评论 -
FMXUI控件应用Background的强制转换TDrawableBorder
//显示边框//TDrawableBorder(tvGua.Background).Border.Kind:=TBrushKind.Solid;//TDrawableBorder(tvZhong.Background).Border.Kind:=TBrushKind.None;原创 2020-10-09 11:54:56 · 210 阅读 · 0 评论 -
Delphi XE 利用FastMM4检测内存泄漏的设置
1.在项目中使用FastMM4打开项目文件,让第一个单元引用FastMM4.2.定义编译条件变量Shift+Ctrl+F11,打开项目设置窗口,设置Conditional defines。定义三个编译变量:FullDebugModeLogMemoryLeakDetailToFileClearLogFileOnStartup3.设置Map file为Detailed4.新建个单元,并设置一处内存泄漏调式状态运行项目,点击按钮,产生泄漏,然后退出程序,这时候弹出内存泄窗口。再打开执行程序的转载 2020-09-13 11:54:58 · 812 阅读 · 0 评论 -
Delphi D10.X中实现安卓中文语音合成(中文朗读)不用第三方控件
语音合成,据说Android系统从1.6版本开始就支持TTS(Text-To-Speech)。但是android系统默认的TTS引擎:Pic TTS不支持中文。好在现在国内较多的手机都已安装好中文的TTS引擎。使用Delphi开发一个可以朗读中文的APP就非常的简单。本文给大家介绍使用Delphi开发基于安卓原生的TTS(中文语音合成),将文字转语音实现中文的朗读。APP运行后,需要手机上已安装语音引擎。如果您手机上已安装并设置了语音引擎,即可开始朗读。安卓系统的TTS可支持很多语音引擎,如:谷歌、讯原创 2023-12-08 12:51:34 · 571 阅读 · 1 评论 -
Delphi D10.3 FMX android 调用自带浏览器打开网页,类似于更新APP
uses Classes, SysUtils, FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.JNI.JavaTypes //调用浏览器打开网址procedure XOpenURL(AUrl: String);var Intent: JIntent;begin Intent := TJIntent.JavaClass.init(TJIn.原创 2020-08-28 21:24:39 · 963 阅读 · 0 评论 -
Incompatible types: ‘method pointer and regular procedure‘,动态绑定事件出现这类错误
下面定义的函数和过程都在同一个公共单元中(非窗体单元)在一个函数中调用方式如下(调用行,就是这一行出错):datamodule1.query1.FieldByName('XB').OnGetText:=GetName;在同一个单元中定义的过程如下:procedure GetName(Sender: TField; var Text: String; DisplayText: Boolean);begin with datamodule1.query1 do begin .转载 2020-08-06 12:02:38 · 1402 阅读 · 0 评论 -
delphi 执行JS函数,再也不用担心JS怎么转换成pascal语言了!
delphi 执行JS函数,再也不用担心JS怎么转换成pascal语言了!因为引入OLE,则需要引入:ComObj, ActiveX; 在DELPHI 7 和 DELPHI D10.3中验证通过!function FunRunJs(str: string): string;var m_OLE : Variant; StrList: TStringList;begin Result:=''; if Trim(str)='' then exit; //创建JS变体类型 .原创 2020-06-02 19:33:55 · 545 阅读 · 0 评论 -
Delphi D10.X快速实现安卓状态栏沉浸模式
前言使用Delphi开发安卓APP时,我们经常想要实现状态栏沉浸样式,但这方面资料较少,很多使用修改配置文件的方式去处理。使用起来相对麻烦了一些。为此,我花了点时间观摩学习了JAVA及其他Delphi实现状态栏沉浸式的代码,在自己动手实践后全面进行了封装。(目前 据我所查询资料了解的,这是在delphi中实现安卓沉浸最为方便、快捷、适配效果最好的方式。)实现功能简介目前封装好的类主要可以分别实现安卓状态栏与导航栏的透明与不透明、设置颜色、设置字体的显示模式,如下图所示(这是演示APP展示的效果,也包转载 2020-05-09 09:52:19 · 547 阅读 · 0 评论 -
delphi 对金额double类型向上取整,保留小数位
delphi 对金额double类型向上取整,保留小数位//新保留小数位,只要后面有多余的数据,则进位function NewRoundTo(value: Double; ws: Integer): Double;var iLen: Integer;begin iLen:=StrToInt('1'+stringOfChar('0', ws)); Result:=Ceil(valu...原创 2020-04-16 09:45:39 · 1820 阅读 · 0 评论 -
Delphi里实现对图片Base64编码解码
前几天有个朋友问我这个问题:有段编码字符要转为图片,问我怎么实现?其实凭经验大多数人第一时间想到的就是这是base64编码,告知后但对方就是没法解,没办法啊,好人做到底,动手给对方写个demo,利用indy自带的TIdEncoderMIME和TIdDecoderMIME来完成该过程。关键代码如下:unit Unit1;interfaceuses Windows, Me...转载 2020-04-15 11:33:19 · 1670 阅读 · 0 评论 -
IDHTTP indy10访问asp.net服务器 经常报#10054错误,编码乱码处理方法。
IDHTTP indy10访问asp.net服务器 经常报#10054错误,编码乱码处理方法。在网络上查询了很多方法,最终都没有办法解决,最后在ASP.NET的WEB处理页面上加上了:Response.Flush();则可以了。/////以下是DELPHI部分:idHttp:=TIdHTTP.Create(nil); with idHttp do begin ...原创 2020-04-15 11:32:07 · 431 阅读 · 0 评论 -
DELPHI 读取TXT文件unicode乱码
var slr: TStringList; F:TFileStream; S:WideString; i: integer;const FileName='TalkList.txt';begin F:=TFileStream.Create(FileName,fmOpenRead); I:=F.Size; SetLength(S, I div 2); F.Read...转载 2020-04-04 08:32:47 · 2055 阅读 · 0 评论 -
Delphi 判断文本文件的编码格式并读取内容
这里指的文本是用于Windows系统中的扩展名为.txt的文件。Notepad(记事本)只支持四种格式:ANSI/Unicode/Unicode big endian/UFT-8,在Delphi中如何判断与读取这些不同格式的文本呢?首先,不同编码的文本,是根据文本的前两个字节来定义其编码格式的。定义如下:ANSI: 无格式定义;Unicode: 前两个字节为FFFE;Unicode bi...转载 2020-04-03 19:30:25 · 1182 阅读 · 0 评论