2021 年 1月随笔档案 - 滔Roy

Delphi DB - TDataSetProvider.UpdateMode - 指示如何定位记录以便更新它们

摘要：Delphi TDataSetProvider.UpdateMode - 指示如何定位记录以便更新它们描述：UpdateMode指定调用ApplyUpdates方法时记录的位置单元：DB 语法： type TUpdateMode = ( upWhereAll, //所有列（字段）都用于定位记录。阅读全文

posted @ 2021-01-29 14:34 滔Roy 阅读(238) 评论(0) 推荐(0) 编辑

Delphi DB - TField.ProviderFlags 属性

摘要：Delphi TField.ProviderFlags 属性单元：DB 说明：指定应用更新时提供程序如何使用字段值。语法： property ProviderFlags: TProviderFlags; 描述：ProviderFlags仅与提供给提供程序组件抯事件处理程序的数据包中出现的字段相关阅读全文

posted @ 2021-01-29 14:29 滔Roy 阅读(433) 评论(0) 推荐(0) 编辑

Delphi Lookup函数-根据条件查找数据

摘要：Delphi Lookup函数-根据条件查找数据 Lookup 从与指定搜索值匹配的行中检索字段值。 TCustomClientDataSet、TCustomADODataSet 均有函数原型： function Lookup(const KeyFields: string; const KeyV 阅读全文

posted @ 2021-01-29 09:24 滔Roy 阅读(811) 评论(0) 推荐(0) 编辑

Delphi Locate函数[2] - 查询、定位（TCustomADODataSet、TCustomClientDataSet）功能源码

摘要：Delphi Locate函数[2] - 查询、定位（TCustomADODataSet、TCustomClientDataSet）功能源码 1、单元：ADODB 原型： function TCustomADODataSet.Locate(const KeyFields: string; const 阅读全文

posted @ 2021-01-29 09:13 滔Roy 阅读(440) 评论(0) 推荐(0) 编辑

Delphi ClientDataSet 排序[1]

摘要：Delphi ClientDataSet 排序[1] 1、单个字段排序（索引名称自定义，例如：sSort） //升序 with ClientDataSet1 do begin IndexDefs.Update; //更新 if IndexDefs.IndexOf( 'sSort' )>=0 the 阅读全文

posted @ 2021-01-25 15:23 滔Roy 阅读(1040) 评论(0) 推荐(0) 编辑

Delphi 服务程序[7] 调用外部程序的方法

该文被密码保护。

posted @ 2021-01-21 11:10 滔Roy 阅读(150) 评论(0) 推荐(0) 编辑

Delphi 服务程序[6] 服务事件详述（OnStart、OnExecute ）

摘要：Delphi 服务程序[6] 服务事件详述（OnStart、OnExecute ）有两个位置常用于放置服务代码：在OnExecute或OnStart事件中。 1、OneExecute：如果需要，可用代码创建一个线程。在与服务关联的线程启动时发生。如果您没有派生新线程来处理OnStart事件处阅读全文

posted @ 2021-01-21 10:52 滔Roy 阅读(782) 评论(0) 推荐(0) 编辑

Delphi 服务程序[5] 描述、开启、停止、检索、状态

摘要：Delphi 服务程序[5] 描述、开启、停止、检索 1、服务程序中不能设定描述，可以通过以下方法设定： uses Registry; procedure TSerTest.ServiceAfterInstall(Sender: TService); var Reg: TRegistry; begi 阅读全文

posted @ 2021-01-21 10:18 滔Roy 阅读(484) 评论(0) 推荐(0) 编辑

Delphi 服务程序[4] 两栖服务（系统服务和桌面程序）

摘要：Delphi 服务程序[4] 两栖服务（系统服务和桌面程序）方法1： uses {$IFDEF DEBUG} Forms, {$ELSE} SvcMgr, {$ENDIF} Unit1 in 'Unit1.pas' {SerTest: TSerT}, Unit2 in 'Unit2.pas' {F 阅读全文

posted @ 2021-01-21 10:08 滔Roy 阅读(454) 评论(0) 推荐(0) 编辑

Delphi 服务程序[3] 安装、卸载的方法

摘要：Delphi 服务程序[3] 安装、卸载的方法 1、CMD命令窗口bat安装（假设生成SerTest.exe） SerTest.exe /install //安装 SerTest.exe /unstall //卸载可以在命令行后面加/silent参数，使其不弹出安装、卸载成功的提示框，例如 Se 阅读全文

posted @ 2021-01-21 09:08 滔Roy 阅读(700) 评论(0) 推荐(0) 编辑

Delphi 服务程序[2] TService 属性、事件

摘要：Delphi 服务程序[2] TService 属性、事件 1、TService属性： AllowPause: //是否允许暂停 AllowStop: //是否允许停止 Dependencies: //设置该服务与其他服务的依赖关系 DisplayName: //在Windows服务管理器中显示的名阅读全文

posted @ 2021-01-21 08:45 滔Roy 阅读(751) 评论(0) 推荐(0) 编辑

Delphi 服务程序[1] 介绍

摘要：Delphi 服务程序[1] 介绍 1、系统服务优点：随系统启动而启动，不需要用户手动执行，适合做后台检测程序等不用登录系统即可运行在后台运行，不与Windows桌面相互影响拥有System权限，在任务管理器中无法结束运行 2、系统服务和桌面程序的区别是：系统服务不用登陆系统即可运行；系阅读全文

posted @ 2021-01-21 08:34 滔Roy 阅读(626) 评论(0) 推荐(0) 编辑

WinCMD %~d0、%cd%、%0、%~dp0、%~sdp0 获取路径

摘要：WinCMD %~d0、%cd%、%0、%~dp0、%~sdp0 获取路径 %~d0 //当前盘符 %cd% //当前路径 %0 //当前执行命令行 %~dp0 //当前bat文件路径 %~sdp0 //当前bat文件短路径示例： echo %cd% echo %~dp0 创建时间：2021.01 阅读全文

posted @ 2021-01-20 14:34 滔Roy 阅读(1771) 评论(0) 推荐(0) 编辑

[原创]Halcon $符号的使用

摘要：[原创] Halcon $符号的使用 {该文首发于博客园滔Roy，无须授权即可转发，请自觉保留头部申明} 1、文本 aa:='Delphi'$'15' //右对齐（15位长度） aa:='Delphi'$'-15' //左对齐 2、整数 / 小数 aa:=789.123$'.2' //四舍五入，保阅读全文

posted @ 2021-01-19 09:20 滔Roy 阅读(1092) 评论(0) 推荐(0) 编辑

Delphi Math-DegToRad、RadToDeg 角度与弧度

摘要：Delphi Math-DegToRad、RadToDeg 角度与弧度 DegToRad 角度转弧度原型： function DegToRad(const Degrees: Extended): Extended; { Radians := Degrees * PI / 180 } begin R 阅读全文

posted @ 2021-01-18 09:53 滔Roy 阅读(1154) 评论(0) 推荐(0) 编辑

Halcon 算子 select_shape- 借助形状特征选择区域（选择轮廓）

摘要：Halcon 算子 select_shape- 借助形状特征选择区域（选择轮廓） select_shape - 借助形状特征选择区域。原型： select_shape(Regions : SelectedRegions : Features, Operation, Min, Max : ) （将连阅读全文

posted @ 2021-01-17 11:31 滔Roy 阅读(14373) 评论(0) 推荐(2) 编辑

Delphi 窗体事件执行顺序及说明

摘要：Delphi 窗体事件执行顺序及说明 1、常用的事件说明： OnActivate：当窗体被初始激活时，就会发生OnActivate事件，当初始创建窗体或者用户从一个窗体切换到另一个窗体时，就可能激活窗体，Application对象也有一个OnActivate事件，当用户从一个应用程序切换到另一个应用阅读全文

posted @ 2021-01-14 16:40 滔Roy 阅读(1152) 评论(0) 推荐(0) 编辑

SQL 错误：当 MUST_CHANGE 为 ON (开)时，不能将 CHECK_POLICY 和 CHECK_EXPIRATION 选项设为 OFF (关)

摘要：SQL 错误：当 MUST_CHANGE 为 ON (开)时，不能将 CHECK_POLICY 和 CHECK_EXPIRATION 选项设为 OFF (关) 错误原因：解决方法： ALTER LOGIN 登录名 WITH PASSWORD='新密码'; 创建时间：2021.01.14 更新时间：阅读全文

posted @ 2021-01-14 13:38 滔Roy 阅读(635) 评论(0) 推荐(0) 编辑

JavaScript function 常用的几种写法

摘要：JavaScript function 常用的几种写法函数可以通过声明定义，也可以是一个表达式。函数声明： function functionName(parameters) { 执行的代码 } 函数表达式： var x = function (a, b) {return a * b}; 写法1 阅读全文

posted @ 2021-01-13 13:44 滔Roy 阅读(720) 评论(0) 推荐(0) 编辑

JavaScript ： Break 、 Continue 、False - 跳出和终止

摘要：JavaScript ： Break 、 Continue 、False - 跳出和终止 1、跳出（Break 、Continue ） break 语句“跳出”循环。（switch语句） continue 语句“跳过”循环中的一个迭代（继续循环中的下一个迭代）。 1.1 JavaScript 标签阅读全文

posted @ 2021-01-13 11:46 滔Roy 阅读(349) 评论(0) 推荐(0) 编辑

Delphi Char、Pchar 、String 相互转换

摘要：Delphi Char、Pchar 、String 相互转换 1、String 与 PChar 转换1.1 String转化成PChar 2种方式 var s:string; p,p1:PChar; begin s:='Hi Delphi7'; p:=PChar(s); // ShowMessage 阅读全文

posted @ 2021-01-13 10:19 滔Roy 阅读(2650) 评论(0) 推荐(0) 编辑

Delphi 字符串拆分/分割[2] - Classes.ExtractStrings

摘要：Delphi 字符串拆分/分割[2] - Classes.ExtractStrings 原型： function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integ 阅读全文

posted @ 2021-01-07 10:34 滔Roy 阅读(561) 评论(0) 推荐(0) 编辑

Delphi 字符串拆分/分割[1] - TStringList

摘要：Delphi 字符串拆分/分割[1] - TStringList 1、TStringList 默认以 ','拆分字符 onst constr :String = 'aaa,bbb,ccc,ddd'; var strs :TStrings; i :Integer; begin strs := TStr 阅读全文

posted @ 2021-01-07 10:16 滔Roy 阅读(1748) 评论(0) 推荐(0) 编辑

滔 Roy

01 2021 档案