delphi
一只长不大的小菜鸟
这个作者很懒,什么都没留下…
展开
-
delphi 如何使用TEdgeBrowser组件以及打包环境在其他主机上运行
不管开发环境还是第三方环境先安装运行时库:开发环境可以直接通过:delphi IDE安装安装完毕后进入到指定路径,复制里面的到你要开发的程序根目录:大致路径如下,每个人的都有点差异,名称或版本都不太一样,就作为参考吧:22.032位就选X86总体配置完成,可以正常调用TEdgeBrowser打开网页了。原创 2024-06-19 10:24:34 · 654 阅读 · 0 评论 -
delphi全局键盘钩子
亲测有效,感谢chatgpt的支持原创 2024-04-03 14:23:01 · 221 阅读 · 0 评论 -
delphi程序怎么在运行时允许拖动组件
【代码】delphi程序怎么在运行时允许拖动组件。原创 2023-10-31 09:31:15 · 185 阅读 · 0 评论 -
unigui 动态关闭Tform窗口
开发中遇到一个问题,想要动态关闭Tform窗体的,但是一直没效果,最后通过ClassName在网页中显示,发现原来要用TUnimJSForm类名才能正常调用。原创 2023-10-20 17:56:56 · 172 阅读 · 2 评论 -
unigui点击按钮后弹出悬浮窗,几秒钟后关闭
1、先到UniServerModule单元设置JS文件。原创 2023-10-17 17:07:40 · 689 阅读 · 0 评论 -
unigui添加ssl(https)访问的方法
endbled:=true SSL端口:=443 Method:=sslvSSLv2。之后下载对应的证书格式,下载好的证书放到根目录(后续你可以自己指定路径,这里只讲解最基础的配置)首先到腾讯云或者阿里云去申请免费的证书,前提是在该服务商那有申请过域名。到gunigui的安装目录去复制SSL所需的DLL到程序根目录。到项目的uniservermodule单元设置基本参数。原创 2023-10-17 15:43:46 · 914 阅读 · 0 评论 -
在Delphi中,获取用户公网IP地址
另外,在实际应用中,建议对以上代码进行适当的异常处理,以便在无法获取公网IP时,程序可以正常运行。在Delphi中,你可以使用。这个函数将返回一个字符串,原创 2023-10-11 17:04:28 · 372 阅读 · 0 评论 -
delphi 调用编码格式为application/x-www-form-urlencoded
delphi application/x-www-form-urlencoded原创 2022-10-31 14:07:19 · 793 阅读 · 0 评论 -
unigui手机端如何防止左右滑动退出页面
于是添加一段代码,在打开页面时,添加一条历史记录,用户滑动退出时,先退到历史记录页面,也就是当前页,从而实现左右滑动不退出。手机开发网页时,用户经常习惯性的左右滑动,然后程序就退出了。原创 2022-09-09 09:38:02 · 977 阅读 · 0 评论 -
unigui调用echarts生成好看的图表
然后大家可以举一反三,可以html代码添加好变量,当加载到tstringlist是,然后根据变量名用替换函数,把变量替换成实际数值。如果你还不知道echarts 那先看看图,各种 超好看的图标例子,拿过来就能用,学会了之后界面会有一个质的飞跃。替换好了之后复制里面的内容,然后在放到txt文件里面等待读取调用。修改模板内容,替换掉合适的内容,最重要的是替换JS文件。开始操作(相关的文件我会给一个可运行的完整demo)总体完成,可以执行编译测试,看看结果。开始在unigui程序端配置参数。原创 2022-08-19 15:48:08 · 1308 阅读 · 0 评论 -
unidbgrid字体改大了之后无法显示完整的解决办法
该问题查了网上查了很久,都没有相关例子,并不是大家都不会解决,只是有部分涉及到商业,就是收费索取,不愿意公开实现代码。通过调试,发现.x-column-header-text-inner属性有效果,然后把该属性复制到。默认的unidbgrid字体就是8号,然后稍微改大一点后就会把文字覆盖掉一部分,无法显示。只能找个大概的例子,在此借鉴涂磊老师的方法,如何在网页查到对应的cls属性。虽然心里知道可以通过css去修改样式实现,可是完全不懂css。然后选中unidbgrid,然后填上样式名。......原创 2022-07-18 10:08:22 · 528 阅读 · 0 评论 -
使用微信企业机器人发送信息
今天收到公司指示,要企业微信定时提醒用户,比如上班时提醒网络安全,文明上网下班提醒带走垃圾,关闭电源以及各种需求!既然都提出需求了,那就开始做吧。使用delphi语言开发,基础功能如下:可设定发送频率【一次性,每天,每周一 ....一直到日 】发送类型为了简单,只设置支持两种【文本、图片,后续要用上图文的功能不多,没去做了】支持@全体成员支持查看任务历史,删除修改任务最后可最小化托盘常驻运行,我也不知道能多久不出bug卡死采用SQLITE数据库存储日志信息,一共两原创 2022-03-08 17:53:21 · 489 阅读 · 0 评论 -
unidac无法连接数据库,所有配置信息正常但是无法连接的解决办法
已经测试过所有参数都正常,而且该放的驱动控件都放了,在开发环境下可以正常连接,到了客户端就无法连接,但是客户端装了SQL后又能正常连接,一直无法解决。百度谷歌几个星期后,发现了方法,就是在服务器地址后面加个端口后就能解决。ps.之前一直在Port项加端口号,一直没效果,但是其他数据库不需要在那加端口都能正常访问。搞不懂这是什么怪问题。...原创 2021-05-20 15:51:51 · 380 阅读 · 0 评论 -
Delphi发送HTML邮件例子
原本是通过BODY.text直接输入内容,但是效果显示太单调,后来百度查到HTML方式,可以丰富文本例子界面:收件箱效果:procedure TForm1.Button1Click(Sender: TObject);var html: TIdText; //需要uses idTextbegin Application.ProcessMessages; IdSMTP1.Host := '10.2.5.3';//邮箱服务器地址 IdSMTP1.Port := 465;/原创 2020-11-20 10:03:59 · 632 阅读 · 0 评论 -
dbgridEH文本过长自动展开
实现效果,点击后自动展开多行内容:效果图procedure TForm2.DBGRID2CellClick(Column: TColumnEh);beginADOquery.RecNo := ADOquery.RecNo;//定位到指定行,就这句放在表格的点击事件即可。UniQuery_TEST就是TADOquery控件,哪个控件关联表格就用哪个end;接着表格里面点击开启dghAutoFitRowHeigth完美使用。**表格的列默认开启了WordWrap=Tru..原创 2020-11-10 14:04:17 · 666 阅读 · 2 评论 -
delphi秒数相加
{秒数相加}FormatDateTime('HH:MM:SS',StrToTime(Label1.Caption)+StrToTime('00:00:01'));使用例子{1小时同步一次时间}procedure TForm3.Timer1Timer(Sender: TObject);begin Tag := Tag + 1;{记录秒数} if Tag = 3600 th...原创 2019-04-25 11:29:49 · 499 阅读 · 0 评论 -
Delphi控制Excel进行设计,代码亲测可用
前言:小部分参考网上的,大部分是自己通过录制宏得出的参数,这些都是在设计Excel的时候使用的,完全可以复制粘贴使用。//必须引用uses ComObj//必须定义var 这是个Excel: Variant;//****合并单元格使用例子 这是个Excel := CreateOleObject('Excel.Application');//调用EXCEL程...原创 2019-05-09 16:20:35 · 714 阅读 · 0 评论 -
delphi-判断星期几以及今年的是第几周
DayOfWeek,是在 SysUtils 中,所以需要USES才能使用。showmessage('星期'+IntToStr(DayOfWeek(DateTimePicker1.DateTime)-1));//showmessage('星期'+IntToStr(DayOfWeek(StrToDateTime('2019/04/20'))-1));...原创 2019-04-19 15:44:22 · 1992 阅读 · 0 评论