![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
炜旭
这个作者很懒,什么都没留下…
展开
-
XE4、XE10 不能build、compile、RUN的解决方式
1、卸载VS2015 导致DelphiXE4、XE10 不能编译代码了,重新修复IDE也不行,运行报出。2、解决办法:微软官网下载 Microsoft 生成工具就解决了。注册表也鼓捣了,也没解决。原创 2023-04-12 10:36:39 · 193 阅读 · 0 评论 -
Delphi 中关于UTC时间的处理
1、对接JAVA接口时 时间格式中存在带T的格式 例如 2021-12-23T08:08:08 样式。最开始的处理方式 是 字符串替换 将T替换 '' 例如 sTDate= sTDate.replace('T', ' '),运行时间久了会出现部分时间转换失败问题。决定彻底处理此问题,偷懒不得。使用 Soap.XSBuiltIns 单元中的TXSDateTime 类处理 sDate:= '2021-12-23T08:08:08' XSDateTime:= TXSDat...原创 2021-12-23 11:44:07 · 577 阅读 · 0 评论 -
PDF转字节数组 TArraySystem.Byte
背景: 与第三方软件做接口,接口中报告字段(PDF)属性要求是 TArray<System.Byte>字节数组,因此需要将PDF转换位 TArray<System.Byte>1、PDF转TArray<System.Byte>;var MemoryStream: TMemoryStream; ByteDynArray: TArray<Syst...原创 2019-09-16 14:38:28 · 823 阅读 · 0 评论 -
Dev 图表控件 DbGridChartView 修改鼠标提醒
1、DbGridChartView的 GetValueHint 事件procedure TcxGridChartData.cxGridDbChartViewGetValueHint( Sender: TcxGridChartView; ASeries: TcxGridChartSeries; AValueIndex: Integer; var AHint: string);var...原创 2019-08-30 14:00:44 · 277 阅读 · 0 评论 -
delphi 在线生成Wsdl.pas 文件
81、最近遇到与java编写webService做接口,在生成wsdl接口时发现接口参数类型与实际不符合网上查找的方法2、将delphi IDE(xe4) 安装目录下的 WSDLimp.exe 放到 现场服务器 任意位置。3、cmd 中 C:\ProgramFiles\Embarcadero\RADStudio\18.0\bin\WSDLImp.exe-phttp://12...原创 2019-05-30 16:52:18 · 1461 阅读 · 0 评论 -
NativeXml 生成xml 时 节点补全
正常NativeXml 生成的空值节点 格式 为 <xmlNode/>,如果想要生成的空值节点为<xmlNode></xmlNode>NativeXml.NodeClosingStyle:=ncFull;(请设置关闭方式)...原创 2019-05-24 17:12:37 · 299 阅读 · 0 评论 -
解决 字符串Base64 中文乱码问题(非76字符换行)
1、与第三方系统做接口要求使用Base64进行转码,但是原生的Base64类 Soap.EncdDecd 中的EncodeString 每76字符就转码,故使用 IdCoderMIME 进行编码。uses IdCoderMIME,IdGlobalfunction ParseBase64UnTab: string;var IdEncoderMIME : TIdEncoderMIME;...原创 2019-04-23 14:55:56 · 2907 阅读 · 0 评论 -
DELPHI 解决 Base64文件 每76字符换行问题 (不生成换行符)
1、引用单元 IdCoderMIME2、文件Base64编码function FileBase64(aFilePath: string): string;var IdEncoderMIME : TIdEncoderMIME; FileStream:TFileStream;begin Result:= True; if FileExists(aFilePath) the...原创 2019-04-12 17:42:06 · 1216 阅读 · 2 评论 -
DELPHI XE4 Base64加密 后解决中文乱码问题
1、引用单元文件 Soap.EncdDecd2、写一个返回string函数, 其实就是 EncodeString 的修正function EncodeString2(const Input: string): string;var InStr, OutStr: TStringStream;begin InStr := TStringStream.Create(Input,...原创 2017-12-04 11:20:40 · 2567 阅读 · 0 评论 -
三层数据控件的动态设置
Delphi 三层数据控件动态创建及绑定原创 2016-12-26 15:58:20 · 271 阅读 · 0 评论 -
delphi中ListView拖曳效果实现
1、ListView控件 lv_ECG 、lv_Hisprocedure TfmDataBase.lv_ECGDragDrop(Sender, Source: TObject; X, Y: Integer);var i: Integer;begin with lv_ECG.Items.Add do begin Caption:= lv_NoECG.Selected.Ca...原创 2016-11-02 10:24:05 · 1703 阅读 · 0 评论 -
stringGrid 文字居中
with Sender as TStringGrid do begin Canvas.FillRect(Rect); DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect, DT_CENTER or DT_SINGLELINE or DT_VCENTER);转载 2015-12-09 14:34:27 · 790 阅读 · 0 评论 -
TreeView 动态获取ImageList中的图标
1、项目经理布置任务如何TreeView动态获取图标。既然给出任务解决吧 思路: 将图标的地址存放在数据库中,在获取树事动态判断。数据设计如下开始做的是 ImagePath中地址都加载到ImageList 。项目经理说这样重复出现的你也加载了,影响速度,于是提出新的要求 1.1、如果ImagePath中地址图标一致,在ImageList只能存在一个。 1.2、如果ImageLis原创 2015-08-05 11:53:17 · 1759 阅读 · 0 评论 -
WebBrowser控件的事件
1、BeforeNavigate2 导航发生前激发,刷新时不激发2、CommandStateChange 当命令的激活状态改变时激发。它表明何时激活或关闭Back和Forward菜单项或按钮3、DocumentComplete 当整个文档完成是激发,刷新页面不激发4、DownloadBegin 当某项下载操作已经开始后激发,刷新也可激发此事件5、DownloadCo转载 2015-03-05 11:00:22 · 857 阅读 · 0 评论