- 博客(19)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 XE4、XE10 不能build、compile、RUN的解决方式
1、卸载VS2015 导致DelphiXE4、XE10 不能编译代码了，重新修复IDE也不行，运行报出。2、解决办法：微软官网下载 Microsoft 生成工具就解决了。注册表也鼓捣了，也没解决。
2023-04-12 10:36:39
169
原创 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
537
原创 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
810
原创 Dev 图表控件 DbGridChartView 修改鼠标提醒
1、DbGridChartView的 GetValueHint 事件procedure TcxGridChartData.cxGridDbChartViewGetValueHint( Sender: TcxGridChartView; ASeries: TcxGridChartSeries; AValueIndex: Integer; var AHint: string);var...
2019-08-30 14:00:44
266
原创 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
1437
原创 NativeXml 生成xml 时 节点补全
正常NativeXml 生成的空值节点 格式 为 <xmlNode/>，如果想要生成的空值节点为<xmlNode></xmlNode>NativeXml.NodeClosingStyle:=ncFull;（请设置关闭方式）...
2019-05-24 17:12:37
296
原创 解决 字符串Base64 中文乱码问题（非76字符换行）
1、与第三方系统做接口要求使用Base64进行转码，但是原生的Base64类 Soap.EncdDecd 中的EncodeString 每76字符就转码，故使用 IdCoderMIME 进行编码。uses IdCoderMIME，IdGlobalfunction ParseBase64UnTab: string;var IdEncoderMIME : TIdEncoderMIME;...
2019-04-23 14:55:56
2877
原创 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
1178
2
原创 Python SMTP 邮件
1、开通QQ邮箱的POP3和SMTP服务标题2、如下图 获取 授权码标题3、发送显示效果，我是自己发送给自己 就会有 代发 字样标题from smtplib import SMTP as smtpfrom email.mime.text import MIMETextfrom email.header import Headertry: Log...
2019-04-09 22:55:49
536
原创 Python FTP 下载
#刚开始学习PYTHON from ftplib import FTPimport socketHost = ''LoginName = ''PassWord = ''try: # 初始化类 ftp = FTP(Host) # 登陆FTP ftp.login(LoginName, PassWord) # 查看FTP 所有目录 ftp....
2019-04-08 22:38:48
242
原创 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
2527
原创 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
1680
原创 php动态数组的用法
1、准备写个二级联动的菜单，因为菜单都是在数据库定义，就只能使用ajax 无刷新实现，在编写从数据库中读取数据并转化为json 时，大家都知道在转化成json之前应将数据转化为数组，好吧，那就动态转吧，写的数据如下这样写没问题吧，但是当我输出数组时总是不能获取相应的数组，给出的都是返回的都是bool true等，返回的数组明显不正确，不应该返回true 在返回值中肯定是数据出现问题，因此找
2015-12-18 23:10:09
5822
转载 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
766
原创 TreeView 动态获取ImageList中的图标
1、项目经理布置任务如何TreeView动态获取图标。既然给出任务解决吧 思路： 将图标的地址存放在数据库中，在获取树事动态判断。数据设计如下开始做的是 ImagePath中地址都加载到ImageList 。项目经理说这样重复出现的你也加载了，影响速度，于是提出新的要求 1.1、如果ImagePath中地址图标一致，在ImageList只能存在一个。 1.2、如果ImageLis
2015-08-05 11:53:17
1753
原创 百度富文本 uEditor 调用不到，解决办法
1、注意引用js 顺序 2、如果项目还是引用不到那么就是editor的项目文件没有引用对。 下面看我的文件的结构 那么打开ueditor.config.js 查看 var URL = window.UEDITOR_HOME_URL ||getUEBasePath(); 将文件修改为var URL
2015-07-03 19:44:15
985
原创 PHP 中 Failed to load resource: the server responded with a status of 500 (Internal Server Error)
今天使用thinkphp 中做局部刷新时总是出现问题，按F12 用浏览器查看源码 报出的错误是 Always populate the $HTTP_RAW_POST_DATA variable. PHP's default behavior is; to disable this feature and it will be removed in a future version.
2015-07-03 19:26:39
5387
转载 WebBrowser控件的事件
1、BeforeNavigate2 导航发生前激发，刷新时不激发2、CommandStateChange 当命令的激活状态改变时激发。它表明何时激活或关闭Back和Forward菜单项或按钮3、DocumentComplete 当整个文档完成是激发，刷新页面不激发4、DownloadBegin 当某项下载操作已经开始后激发，刷新也可激发此事件5、DownloadCo
2015-03-05 11:00:22
850
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人