- 博客(26)
- 资源 (8)
- 收藏
- 关注
RSS订阅原创 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
498
1
原创 .netcore 同时获取二个表的联合数据 EFCore联合查询 Inner Join 查询
【代码】.netcore 同时获取二个表的联合数据 EFCore联合查询 Inner Join 查询。
2023-09-22 17:19:37
725
原创 delphi d10 以上动态创建控件并集中管理，动态赋值
动态创建控件还是比较管理，但动态管理与赋值还是相对比较麻烦，原来是使用FindComponent来实现，但是可能是创建在不同的组件下面，无法循环还实现，现有利用 List 泛型来实现。由于工作需要，动态创建控件，包括文本，图片，GIF动图，按钮等控件，并根据不同的值，显示不能的内容，需要在运行时来改变状态，由此只能使用动态创建控件来实现功能上的要求。
2023-07-27 21:17:17
290
原创 当为React或Vue 时，INPUT，或 TEXTAREA 后台JS赋值
event.initEvent('keydown', true, false) //注意这块触发的是keydown事件，在awx的ui源码中bind监控的是keypress事件，所以这块要改成keypress。//普通JS获取输入框Dom。inpEle.value = 'AAAA' //仅仅是模拟回车，则不需要这样，这样给input框设置值也是不生效的，正确给input设置值的方式参考上面的。//普通JS获取输入框Dom。//改变React的输入框的值。// 模拟键盘回车按键。
2023-07-01 13:19:14
489
转载 delphi遍历record 各个属性和值
通过rtti遍历record，支持delphi2010以上版本，更低版本不支持。可以遍历record的field的名称、类型和长度。delphi遍历record。
2023-02-17 15:49:53
491
转载 delphi使用TDelphiZXingQRCode生成二维码条形码
使用TDelphiZXingQRCode控件生成二维码条形码打印到TBitmap位图中，可以把二维码保存到JPG图片中。
2023-02-16 13:13:03
1578
原创 c# Dictionary通过key值 获取对应的value 总是报错的解决方法
c# Dictionary通过key值 获取对应的value 总是报错的解决方法
2022-09-09 23:17:48
3008
原创 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
515
原创 SQL 增加字典选项
select 0 as 'key','系统用户' as 'value' union all select Platform_Id as 'key', PlatformName as 'value' from Iot_Platform
2022-04-28 15:08:59
129
转载 centos 8 安装 mosquitto 出现的CJSON问题解决方法
当出现CJSON找不到时，操作以下方法。# 从github下载cJSON代码git clone https://github.com/DaveGamble/cJSON.gitcd cJSONmakemake install当出现Unable to drop privileges to ‘mosquitto’ because this user does not exist. Trying ‘nobody’ instead在allow_anonymous 前面加一个 user roo
2022-03-14 13:33:20
1991
原创 Centos 8 yum 提示 No URLs in mirrorlist 更改方法
问题在Centos 8上因为要安装mysql5.7,需要使用yum命令,但执行yum命令时报错 No URLs in mirrorlist。经查阅资料后发现从2022年1月31日起，CentOS开发团队将会移除官方镜像源上关于CentOS 8所有的包，届时如果在CentOS 8上再次使用yum命令安装包则会报以下错误：下载元数据失败：Cannot prepare internal mirrorlist: No URLs in mirrorlist解决思路如果还需要继续使用Centos 8,则
2022-03-11 20:15:19
1405
原创 Layui与asp:DropDownList同时使用方法
Layui与asp:DropDownList同时使用方法，解决渲染后，无法自动回发的问题
2021-12-04 22:26:47
1596
原创 delphi webbrowser 打开网页无风格，显示不正常解决方法
这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能，丰富你的文章UML 图表FLowchart流程图导出与导入导出导入欢迎使用Markdown编辑器你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Mar
2021-06-07 20:07:07
506
原创 vs复制文件时，定位不到代码，显示杂项文件的解决方法
最近在做东西的过程中，老是同时打开两个工程，结果vs给我闹别扭，加载时间要几分钟，然后打开还是个杂项文件，没有unity工程的类，最终我找到的解决办法，打开杂项文件后，依次文件>最近的项目和解决方案>选择脚本所在的项目，搞定了...
2020-11-08 08:29:48
1532
原创 FMXUI控件应用Background的强制转换TDrawableBorder
//显示边框//TDrawableBorder(tvGua.Background).Border.Kind:=TBrushKind.Solid;//TDrawableBorder(tvZhong.Background).Border.Kind:=TBrushKind.None;
2020-10-09 11:54:56
139
转载 Delphi XE 利用FastMM4检测内存泄漏的设置
1.在项目中使用FastMM4打开项目文件，让第一个单元引用FastMM4.2.定义编译条件变量Shift+Ctrl+F11,打开项目设置窗口，设置Conditional defines。定义三个编译变量:FullDebugModeLogMemoryLeakDetailToFileClearLogFileOnStartup3.设置Map file为Detailed4.新建个单元，并设置一处内存泄漏调式状态运行项目，点击按钮，产生泄漏，然后退出程序，这时候弹出内存泄窗口。再打开执行程序的
2020-09-13 11:54:58
760
原创 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
899
转载 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
1274
原创 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
485
转载 Delphi D10.X快速实现安卓状态栏沉浸模式
前言使用Delphi开发安卓APP时，我们经常想要实现状态栏沉浸样式，但这方面资料较少，很多使用修改配置文件的方式去处理。使用起来相对麻烦了一些。为此，我花了点时间观摩学习了JAVA及其他Delphi实现状态栏沉浸式的代码，在自己动手实践后全面进行了封装。（目前 据我所查询资料了解的，这是在delphi中实现安卓沉浸最为方便、快捷、适配效果最好的方式。）实现功能简介目前封装好的类主要可以分别实现安卓状态栏与导航栏的透明与不透明、设置颜色、设置字体的显示模式，如下图所示（这是演示APP展示的效果，也包
2020-05-09 09:52:19
488
原创 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
1719
转载 Delphi里实现对图片Base64编码解码
前几天有个朋友问我这个问题：有段编码字符要转为图片，问我怎么实现？其实凭经验大多数人第一时间想到的就是这是base64编码，告知后但对方就是没法解，没办法啊，好人做到底，动手给对方写个demo，利用indy自带的TIdEncoderMIME和TIdDecoderMIME来完成该过程。关键代码如下：unit Unit1;interfaceuses Windows, Me...
2020-04-15 11:33:19
1521
原创 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
381
转载 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
1917
转载 Delphi 判断文本文件的编码格式并读取内容
这里指的文本是用于Windows系统中的扩展名为.txt的文件。Notepad（记事本）只支持四种格式：ANSI/Unicode/Unicode big endian/UFT-8，在Delphi中如何判断与读取这些不同格式的文本呢？首先，不同编码的文本，是根据文本的前两个字节来定义其编码格式的。定义如下：ANSI： 无格式定义；Unicode： 前两个字节为FFFE；Unicode bi...
2020-04-03 19:30:25
1043
DELPHI湿空气全参数计算(焓湿图计算器),计算湿球温度等参数
2024-03-05
delphi d11 + skia4delphi 绘制的仪表盘，已经封装成简单的控件
2023-09-02
Android调用系统TTS语音中文朗读.zip
2021-09-25
公司电脑加域改IP小软件.zip
2021-09-25
Delphi D10.3+GPS+腾讯地图安卓手机通过
2020-08-28
小孩子键盘学习工具
2013-10-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人