随笔分类 -  Delphi

摘要: 阅读全文
posted @ 2022-01-21 09:16 后凤凰 阅读(222) 评论(0) 推荐(0)
摘要:情况说明 col_Index是cxGirdDBView中的列,被添加到Group当中 GetDisplayText时需要读取数据记录,测试时发现其从Arecord读取中读取的的数据不对 看源码是在group当中导致 使用下面方法处理,找到其下一条Record从中读取 阅读全文
posted @ 2021-05-18 19:45 后凤凰 阅读(283) 评论(0) 推荐(0)
摘要:System.Actions.TContainedActionList.OnUpdate From RAD Studio API Documentation Up to Parent: TContainedActionList Delphi property OnUpdate: TActionEve 阅读全文
posted @ 2021-05-08 19:13 后凤凰 阅读(102) 评论(0) 推荐(0)
摘要:测试百度人脸识别restful接口时,使用post方式,明明添加了token但是返回信息一直是token无效,直接串进去就正常。 后面从说明中可以看到,post方式添加的参数被添加到了body当中,但是Body.add会替换掉前面所有的参数. 阅读全文
posted @ 2018-11-30 15:53 后凤凰 阅读(1882) 评论(0) 推荐(0)
摘要:TdxDBGridExportExcel = class(TdxDBGridExport) ………………… procedure DoWriteRecord(Node: TdxTreeListNode); override; if Node = nil then begin //+++ if D... 阅读全文
posted @ 2018-09-27 09:24 后凤凰 阅读(205) 评论(0) 推荐(0)
摘要:简单的一种是使用主项数据与细项数据,主项数据数据源设置为主表,细项数据数据源设置为从表 另外一种可以在主项数据数据源(TRmDBDataSet)的事件中进行处理 在事件中 更新从表数据或者对变量进行赋值 阅读全文
posted @ 2018-09-03 14:50 后凤凰 阅读(218) 评论(0) 推荐(0)
摘要:服务端数据: JSON格式然后DES加密之后base64转换 Delphi Post获取数据后 由于原有解密程序为D7下使用 Des(Astr:string):string; String-à是ansistring 现在要在xe版本中使用原有的加密方法时直接替换所有string为ansistring,chr函数为ansichar。 Des(Astr:Ansistring):... 阅读全文
posted @ 2018-08-27 17:44 后凤凰 阅读(232) 评论(0) 推荐(0)
摘要:edgoautosort属性 true keyfield属性 edgoloadallrecords属性 true 阅读全文
posted @ 2018-08-21 11:54 后凤凰 阅读(400) 评论(0) 推荐(0)
摘要:这里指的输入设置主要是扫描枪或者磁条卡刷卡设备 如果仅是IC卡ID卡的,直接设置ReadOnly为True就可以了 根据输入速度判断 OnKeyPress …………….. if NeedCard and _IsKey then begin // if Edit1.Text = '' then begin lctime := GetTickCount; Timer_input.... 阅读全文
posted @ 2018-08-17 16:36 后凤凰 阅读(372) 评论(0) 推荐(0)
摘要:原文地址:http://blog.163.com/guo_linda/blog/static/123773057201281851626664/ 在32位的Windows系统中,每一个进程都有权访问他自己的4GB(232=4294967296)平面地址空间,没有段,没有选择符,没有near和far指针,没有near和far函数调用,也没有内存模式。 每个进程都有独立的4GB逻辑地址空间,... 阅读全文
posted @ 2018-08-03 12:14 后凤凰 阅读(174) 评论(0) 推荐(0)
摘要:EnableTaskWindows DisableTaskWindows 在Delphi中显示一个窗口有两种方式,模态方式显示(ShowModal)和非模态方式显示(Show),模态方式显示窗口时,必须在自身关闭后才能使父窗口起作用,但有时我们想要实现一个窗口,既要具有模态窗口的特性,但又要能从父窗口中控制它,如显示一个表示处理进行过程的进度框。利用DisableTaskWindows和 Enab... 阅读全文
posted @ 2018-07-31 12:05 后凤凰 阅读(1025) 评论(0) 推荐(0)
摘要:procedure TForm1.Button1Click(Sender: TObject); begin dxMemData1.CopyFromDataSet(ADOQuery1); end; procedure TForm1.Button2Click(Sender: TObject); begin with dxMemData1 do begin // dxMemD... 阅读全文
posted @ 2018-06-22 10:13 后凤凰 阅读(500) 评论(0) 推荐(0)
摘要:opencv头文件地址 https://github.com/Laex/ 仔细阅读readme.md 包含了所依赖的开源库地址 ffmpeg Passcal头文件 http://www.delphiffmpeg.com/headers/ ffmpeg 用的连接库 https://ffmpeg.zeranoe.com/builds/ https://ffmpeg.zeranoe.com/buil... 阅读全文
posted @ 2018-06-06 16:29 后凤凰 阅读(323) 评论(0) 推荐(0)
摘要:IIS配置ISAPI或者CGI 1.启用32位应用程序 2. 3.添加虚拟目录,并配置处理程序映射 启用ISAP-dll 及CGI-exe 4.在内容视图中选中文件右键"浏览"就可以查看运行结果 阅读全文
posted @ 2018-05-29 14:17 后凤凰 阅读(1742) 评论(0) 推荐(0)
摘要:设置打印预览窗口为中文 阅读全文
posted @ 2018-05-22 10:06 后凤凰 阅读(279) 评论(0) 推荐(0)
摘要:Uses mshtml;//网页相关的接口定义 procedure TForm1.Button7Click(Sender: TObject); var doc: IHTMLDocument3; input: IHTMLElement; btn: IHTMLElement; begin try Fiscomplete := False; WebBrowser1.N... 阅读全文
posted @ 2018-04-24 16:19 后凤凰 阅读(192) 评论(0) 推荐(0)
摘要:https://blog.csdn.net/xtfnpgy/article/details/14003589 webbrowser轻松实现自动填表 步骤如下:第一步:获取网页 调用Webbrowser 的Navigate系列函数。等待网页装载完成,得到document对象。 在调用 webBrowser.Document 之前,请确保 Webbrowser 网页装载完成,可以通过Webbr... 阅读全文
posted @ 2018-04-23 17:23 后凤凰 阅读(749) 评论(0) 推荐(0)
摘要:http://www.delphigroups.info/2/7/745746.html I think you can affect it by following this menu trail...ToolsEnvironment OptionsPreferenceCheck Project DesktopCheck Desktop and Symbols Quote Code c... 阅读全文
posted @ 2018-04-12 17:42 后凤凰 阅读(156) 评论(0) 推荐(0)
摘要:1.从官方网站下载python的安装文件 不要用ActivePython,会出现奇怪的错误 2.手动指定版本的方法 // PythonEngine1.DllName:='python36.dll';// PythonEngine1.DllPath:='C:\Python36';// PythonEn 阅读全文
posted @ 2018-04-04 15:57 后凤凰 阅读(2106) 评论(0) 推荐(0)
摘要:Uses Shellapi; var FileOp: TSHFileOpStruct; begin with FileOp do begin Wnd := Handle; //hinstance; wFunc := FO_DELETE; //FO_COPY,FO_RENAME,FO_MOVE,FO_DELETE pFrom := Pchar('D:\BAK18-... 阅读全文
posted @ 2018-04-04 12:22 后凤凰 阅读(443) 评论(0) 推荐(0)