![](https://img-blog.csdnimg.cn/20190918140053667.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
Delphi XE
DELPHI各类开发资料栏目
昆曲之源_娄江河畔
从x86汇编英文环境--delphi7--c#--java--.NET Core-android--HTML5--Python-Extjs 一路走来。爱好C#、DELPHI XE、python、javascript,喜欢编程,不愿意承认自己是中年人的奋斗者,一路前行!
展开
-
unigui中如何去掉窗体边框
方法:去除窗体边框1、属性中设置边框BorderStyle=bsNone2、ClientEvents-UniEvents事件中写代码functionwindow.beforeInit(sender){Ext.apply(sender,{border:false,baseCls:'',//这个很关键背景透明shadow:false,frame:false,//width:400,...原创 2021-05-05 09:45:58 · 1040 阅读 · 0 评论 -
关于QRCode形成的二维码中含有汉字,有时会出现汉字乱字符问题
问题:一直在用QRCODE,但之前没有包含汉字,这次把汉字就进去竟然会出现乱码,且同样的字比如“黑”这个字,直接输入“黑",手机扫描出来是乱码,但如果输入”货号:黑“,则能正常显示。解决办法:编码问题所致,先对要编码的字符进行转换,转为utf-8,采用AnsiToUTF8即可。functionAnsiToUTF8(constS:AnsiString): UTF8String;...原创 2021-01-12 15:16:55 · 9343 阅读 · 0 评论 -
dataset快速导出EXCEL
不用安装office 快速导出EXCEL的源码,来自网上,觉得不错,先贴出来供大家参考!{ 背景:今天要把DataSet导入Excel,查询以前的贴子,一部分用Ole,速度太慢, 一部分用ADO连接到Excel文件,也很慢,一气之下把DBGrigEh的导出部分改了出来, 欢迎大家指教、改进。 功能:将数据集的数据导入Excel; 用法:With ExportXls.Create(TDataSet(ADOQuery1)) do ...原创 2020-09-21 09:13:32 · 322 阅读 · 2 评论 -
TCRBatchMove数据批量移动处理,特别适用于有两个数据源的数据移动
TCRBatchMove使用说明AbortOnKeyViol Boolean 在处理数据时,如果发生主键冲突或主键校验失败时,是否中断AbortOnProblem Boolean 发生问题时是否中断ChangedCount Integer 目标数据集变动记录数CommitCount Integer 用于设置一次性移动到目标数据集中并提交的记录数,如果设置为0,则以目标数据集每32Kb空间的记录数Destination TDataSet 目标数据集Source TDataSet 源数.原创 2020-09-17 15:27:56 · 269 阅读 · 0 评论 -
如何将exe程序注册为windows服务,直接从后台运行
2种方法教你,如何将exe注册为windows服务,直接从后台运行方法一:使用windows自带的命令sc首先我们要打开cmd,下面的命令在cmd中运行,最好使用管理员运行cmd注册服务:sc create ceshi binpath= D:\ceshi\ceshi.exe type= own start= auto displayname= ceshibinpath:你的应用程序所在的路径。displayname:服务显示的名称如何判断服务是否注册成功:在cmd中输入ser原创 2020-08-10 16:27:08 · 1145 阅读 · 0 评论 -
UniFileUploadButton 多文件上传的实现
UniFileUploadButton实现多文件一次上传功能限制一次上传的文件数量及限制文件大小在此进行设置,上传过程的提示信息等也在此汉化。直接上码:procedure TMainForm.UniFileUploadButton1MultiCompleted(Sender: TObject; Files: TUniFileInfoArray);var i:integer; DestName : string; DestFolder : string;begin //先要在当...原创 2020-08-06 11:50:36 · 1108 阅读 · 0 评论 -
Unigui fontawesome图标字库的使用
http://www.fontawesome.com.cn/ 中文网复制font-awesome目录到项目files文件夹里1、在UniServerModule模块customfiles中加载font-awesome.min.css文件加入<link rel="stylesheet" href="files/fontawesome/css/font-awesome.min.css">在其他网页也可引用使用其 CSS复制font-awesome目录到你的项目中 在&...原创 2020-08-04 21:32:34 · 772 阅读 · 0 评论 -
unigui 验证码生成器
unit AuthenticodeGenerate;interfaceuses SysUtils, Windows, ExtCtrls, Graphics;function GenerateAuthenticode(const Img: TImage; const Len: Integer = 4): string;implementationconst cCharDigitArrayLen = 6; cCharDigitArray : array[0..cChar...原创 2020-08-01 20:55:22 · 416 阅读 · 0 评论 -
如何将exe注册为windows服务
如何将exe注册为windows服务,直接从后台运行方法一:使用windows自带的命令sc首先我们要打开cmd,下面的命令在cmd中运行,最好使用管理员运行cmd注册服务:sc create ceshi binpath= D:\ceshi\ceshi.exe type= own start= auto displayname= ceshibinpath:你的应用程序所在的路径。displayname:服务显示的名称如何判断服务是否注册成功:在cmd中输入services.原创 2020-08-01 16:27:54 · 451 阅读 · 0 评论 -
DataSnap Service Application方式中为系统服务程序添加描述
DataSnap有三种服务模式,其中Service Application方式建立的windows服务没有描述,描述部分是空的。uses中添加Registry,Winapi.Windows通过如下办法添加描述:procedure TServerContainer2.ServiceAfterInstall(Sender: TService);var xreg: TRegistry;begin xreg := TRegistry.Create; try with xreg d...原创 2020-08-01 14:33:25 · 255 阅读 · 0 评论 -
DELPHI XE10 unigui备忘录
1、提示信息换行符号^M^M 例如: showmessage('File upload completed.' + ^m^m'Filename: ' + ^m^m'Temporary file is located under:' );原创 2020-07-26 17:14:00 · 1630 阅读 · 0 评论 -
unidbgrid显示列的合计值
weixin_341246512019-01-08 06:19:21procedure TfrmClient.UniDBGrid1ColumnSummaryResult(Column: TUniDBGridColumn;GroupFieldValue: Variant; Attribs: TUniCellAttribs; var Result: string);varf: Currency;begininherited;if SameText(Column.FieldName..转载 2020-07-24 20:23:19 · 662 阅读 · 0 评论 -
UNIGUI中为UNIPAGECONTROL使用动态增加标签UNIFRAME
1、放置三个unipanel组件。位置分别是上、左、剩余。2、在左侧panel上放置一个unibutton、在当中的unipanel中放置一个unipagectrol组件,名称为mainp,并新建一个unitabsheet。3、新建一个uniframe窗体。保存为uabc.pas,frame的name设置成abc。4、在Main.pas中编写代码。procedure TMainForm.addpage(nomeFormFrame: TFrame; descFormFrame: s原创 2020-07-22 10:40:03 · 1203 阅读 · 0 评论 -
FastReport使用经验集合
FastReport经验1.FastReport中如果访问报表中的对象?可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’;2.FastReport中如何使用上下标?设置frxmemoview.AllowHTMLTags := True;在Text输入如下上标:mm<sup>2</sup>下表:k<sub>6</sub>举一反三,你原创 2020-06-20 15:46:01 · 1907 阅读 · 0 评论 -
Delphi XE 10 跨平台三层数据库应用教程
Delphi XE 10 跨平台 三层数据库 应用教程转载 2017-05-04 09:28:52 · 7203 阅读 · 1 评论 -
Delphi 使用 Datasnap 进行三层应用开发
转载记录:Delphi 使用 Datasnap 进行三层应用开发,积累了几种技术,总结如下:1、(推荐!)在 Datasnap 服务端 使用 TDatasetProvider,客户端 使用 TDSProviderConnection 1)采用Datasnap Server ,可以使用TCP/IP、Http 通信。TDatasetProvider能够提供“元数据与业务数据”。 推荐:采用(FireDac技术) TFDConnection 连接数据库,通...原创 2020-06-12 16:05:17 · 1305 阅读 · 0 评论 -
DelphiXE获取 Android 上的设备 ID
要从Delphi获取Android ID,不过要注意:这个Id可能会有所不同。什么时候会变化?例如,当您将移动设备还原到出厂设置或设备Root时,它可能会有所不同。因此,如果用户安装应用程序,我们将获得一个 ID,但如果用户将设备重置为出厂,然后重新安装我们的应用程序,我们将获得与第一个 ID 的不同 ID。为了能够在Android上获取 Id,我们需要两个单元:Androidapi.JNI.Provider和Androidapi.helpers,功能如下:Uses Andro.原创 2020-06-11 16:35:15 · 710 阅读 · 0 评论 -
unigui使用技巧
1、编译时原程序在运行无法重新形成 在做unigui开发时,每次编译运行时,unigui的应用都会在后台运行,每次重新编译时都必须手工在任务栏里将应用退出才行,非常麻烦,可以在项目编译的参数里加上杀进程的命令,这样每次重新编译时就会自动将旧的进程杀掉。BUILD EVENTS ->pre-build events中 命令参数如下:taskkill /f /im $(OUTPUTFILENAME) 2>1 || exit /B 0...原创 2020-06-03 10:21:35 · 1724 阅读 · 0 评论 -
UniGUI的三个特殊对象UniApplication 对象、UniSession 对象、UniServerInstance 对象
UniGUI的特殊对象主要有:UniApplication 对象、UniSession 对象、UniServerInstance 对象,下面分类进行简单概括说明,后面实战中结合实例再详细讲述。1)、UniApplication 对象UniApplication返回一个TUniGUIApplication实例,它是当前所有会话资源(主窗体MainForm、主模块MainModule和所有其他窗体和数据模块)的所有者。它是全局可用的,可以在uniGUI控件事件处理程序中访问...原创 2020-05-28 10:39:30 · 1702 阅读 · 0 评论 -
DELPHI XE5开发WEB服务器及安卓手机客户端
Xe5开发web服务端和手机客户端时间:2013-9-18 17:09:45 点击: 6456Delphi xe5作为最新开发利器,就类似如当年的DELPHI,功能强大,快发速度快,把VS2012远远甩在后面。下面以一个小例作为您开启新的历程: 建立一个webservices stand-alone vcl application 作为手机访问的服务端1、new-转载 2013-12-02 17:07:55 · 4553 阅读 · 0 评论