11 2023 档案

QDAC使用记录-QLog

摘要：一：日志发送到远程syslog服务器： var AWriter := TQLogSocketWriter.Create;AWriter.ServerHost := 127.0.0.1;//远程服务器地址AWriter.ServerPort := 514; //远程服务器端口AWriter.UseT 阅读全文

posted @ 2023-11-14 22:48 Thenext 阅读(48) 评论(0) 推荐(0) 编辑

创建自己的https证书（转）

摘要：使用mkcert工具创建证书1、下载mkcert工具，下载地址如下： mkcert工具下载百度下载：链接： https://pan.baidu.com/s/10ym5W91g612LDk3t9isFGQ 提取码：1234 2、解压后运行https本地证书生成工具.bat（文件上点阅读全文

posted @ 2023-11-14 20:03 Thenext 阅读(308) 评论(0) 推荐(0) 编辑

Delphi 用TDatasetToJSONBridge原生支持DataSet导出Json（转红鱼儿）

摘要：Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 1 procedure TForm18.Button2Click(Sender: TObject); 2 var 3 cV: TDatasetToJSONBridge; 4 jo: Tjsonobject; 5 be 阅读全文

posted @ 2023-11-11 16:59 Thenext 阅读(124) 评论(0) 推荐(0) 编辑

clientdataset 删除所有列 clientdataset 动态生成列

摘要：要删除ClientDataSet中的所有列，可以使用以下代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除，以避免索引错误 for i := ClientDataSet1.Fie 阅读全文

posted @ 2023-11-03 09:17 Thenext 阅读(134) 评论(0) 推荐(0) 编辑

cxgrid 删除所有列，CXGrid中的所有列 bands

摘要：要删除CXGrid中的所有列，可以使用以下代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除，以避免索引错误 for i := cxGrid1DBTableView1.Colum 阅读全文

posted @ 2023-11-03 09:15 Thenext 阅读(147) 评论(0) 推荐(0) 编辑