
Delphi
王撕葱2022
这个作者很懒,什么都没留下…
展开
-
Base64编码大瓜
今年的瓜多肉甜....扯远了,当然Delphi的瓜也多,今天我们来看Soap.EncdDecd这个单元当编码长度很大时,EncryptString函数就会多出#13#10这俩货,就凭空多了,当然这个单元自己玩的话多了少了的也能圆回去,对吧,自己忽悠自己,谁能说什么但是!别的IDE不多啊,Java怎么想,C怎么看,PHP能同意吗?外面的人都拿起了菜刀...所以, IdCoderMIME 人家也看不下去了,这活还得人家来,不过人家是Class 就是需要 创建一下encoder: TIdE原创 2021-09-08 16:20:29 · 152 阅读 · 0 评论 -
数据库的异常[对于造型说明无效的字符值]
一个非常意外的错误,其他模块都正常,新加入的报这个错误,排查很久....如果字符串后面是数值,数值这时传空数据或0时就会引起这个错误,也就是字符串后面的字段不要传0进去当然ANSI字符结束符是0,我是这样劝自己的....这具体是开发工具的锅还是SQL的锅就请有兴趣的深究了...原创 2021-05-12 08:16:18 · 1282 阅读 · 0 评论 -
删除目录(全网第一精简代码)
清除个目录,百度告诉上千篇一律的自己写,懒是一种态度,那么都单元,系统设计程序员不可能不做着个,于是我就找啊,试啊,找啊,啊找到了一个System.IOUtils如果你还等着看函数,那么抱歉,自己找去,就在里面,类方法一堆一堆的TPath,TDirectory, TFile代码需要时间来煮,懒也是!...原创 2020-10-19 09:15:38 · 1481 阅读 · 0 评论 -
判断程序窗体是否激活
以下都可以判断,2只能有焦点再判断,失去焦点后无效;3可以判断程序本身1 self.Active2 self.Showing3 if GetActiveWindow = handle then原创 2020-08-11 14:42:13 · 943 阅读 · 0 评论 -
Delphi的Application
Application.Run执行消息循环Application.Terminate关闭程序,但主窗体没有加载时,程序关闭时还是会执行一些代码重点:Application.CreateForm创建的窗口可以完整响应Windows事件,较为安全,尽量使用这个方法创建窗口,一些窗口无法恢复,最小化无法还原的问提都能解决!...原创 2020-07-06 22:35:33 · 465 阅读 · 0 评论 -
Delphi10缩进设置
Delphi10入手调戏,代码格式化出现不缩进,神马跑过草原,然后找到这个玩意!歪果人真会玩!依次输入秘籍:1 Tools2 Options3 Language4 Formatter5 Delphi6 Indentation7 Do not indent after position 这个地方改大一些,默认40,TMD!...原创 2020-06-30 10:06:58 · 393 阅读 · 0 评论 -
Delphi SuperObject 字符串增加到数组
var aJson, bJson: ISuperObject; aSuperArray: TSuperArray;begin aJson := SO(CodeStr); bJson := SO(); bJson['ABC'] := SA([]); bJson.A['ABC']...原创 2020-04-02 11:44:43 · 2152 阅读 · 0 评论 -
ACCESS的truncate正确姿势
ACCESS这老玩意不支持truncate,网络上大多是Alter TABLE UserTB Alter COLUMN [ID] COUNTER(1,1)执行过程中会提示 “无效的字段数据类型”反复尝试,问题点是出在不能一次提交,需要先讲类型确认先来一个类型大宝剑Alter TABLE UserTB Alter COLUMN [ID] LONG注意这里要执行,然后再执行下面的...原创 2020-01-17 10:44:53 · 1819 阅读 · 0 评论 -
鼠标指针的隐藏
问题来源于 ComBox.DroppedDown := True;这样可以弹出下拉框,但鼠标指针会消失,尝试使用ShowCursor(False); //隐藏光标ShowCursor(True); //显示光标SendMessage(ComBox.Handle, WM_SETCURSOR,0,0); //这样可以显示出光标反复测试ShowCursor,成对调用可以隐藏和显示,可ShowCursor...原创 2018-03-23 11:06:13 · 2235 阅读 · 0 评论 -
DataSnap之000
刚开始接触DataSnap,跟着李维老湿的[DelphiXE2DataSnap开发实战篇_李维]做个DEMO可是卡在测试的URL上了,如下:http://localhost:8080/DataSnap/Rest/TServerMethods5/ReverseString/嗨,大家好!请尝试以下操作:打开 localhost:8080 主页,然后查找指向您感兴趣信息的链接。原创 2017-06-15 10:18:02 · 419 阅读 · 0 评论 -
我的中間層開發,我的 DataSnap
歷史篇DataSnap 和 MIDAS應用程式和資料庫的關係演變為什麼要用 DataSnap?--兩層的優缺點為什麼要用 DataSnap?--DataSnap 解決兩層問題的方法緣起篇一層非常好用,BDE 的採用新奇的技術,dbExpress客戶的要求,Web 化該放棄 Web 還是 C Builder現在是開發兩層還是三層?決擇篇對 db转载 2017-06-14 17:27:38 · 807 阅读 · 0 评论 -
DataSnap
看到网友的观点,切下来做个记号,最近研习我补充一点点:我买过李维的所有的书。通过李维的书入门多层架构后,也在几个比较大的项目上实际运用过。谈谈我的实际经验。1. COM Based 的架构:其实这种架构,如果采用 COM ,效率是非常高的。一套系统,后端 SQL SERVER 只需要10个连接,前面顶200个 UI 前端,一点问题都没有。2. 我自己后来通过学习李维关于转载 2017-06-14 17:46:09 · 3156 阅读 · 0 评论