- 博客(34)
- 资源 (5)
- 收藏
- 关注
RSS订阅原创 delphi6直连redis服务（用lua脚本redis模块）
用低版本的delphi6对接redis直接功能，目前只有get/set方法，待以后继续追加。
2024-05-07 17:06:23
287
原创 centos7安装redis6(tar包)
1、环境安装 编译安装需要gcc5.3以上，可以用gcc -v 命令查看当前版本号，使用下面的命令升级到gcc9.1： yum -y install centos-release-scl yum -y install devtoolset-9-gcc devtoolset-9-gcc-c++ devtoolset-9-binutils scl enable devtoolset-9 bash #scl命令启用只是临时的，新开的会话默认还是原gcc版本。 #...
2022-05-07 16:12:48
678
原创 delphi转码url（与java保持一致）
function URLDecode(const S: string): string;var Idx: Integer; // loops thru chars in string Hex: string; // string of hex characters Code: Integer; // hex character code (-1 on error)begin // Intialise result and string index Result := ''.
2022-05-06 19:21:25
657
原创 centos8安装jenkins（rpm包）
1、下载jenkins（https://mirrors.tuna.tsinghua.edu.cn/jenkins/redhat） rpm包：jenkins-2.341-1.1.noarch.rpm2、安装rpm包 rpm -ivh jdk-8u171-linux-x64.rpm 备注：安装完成后，有如下相关目录： （1）/usr/lib/jenkins/ #jenkins安装目录，WAR包会放在这里。 （2）/etc/sysconfig/jenki...
2022-03-30 11:41:03
1138
原创 centos8安装nacos（压缩包tar.gz）
1、进入官网下载压缩包（https://https://github.com/alibaba/nacos） 压缩包：nacos-server-1.4.3.tar.gz2、编写开机启动文件 vi /lib/systemd/system/nacos.service 备注：/usr/local/nacos为本机安装的nacos文件路径，-m standalone表示作为单机启动，不加的话表示集群启动，目前先作为单机启动。 内容如下：[Unit]Description=na...
2022-03-29 17:37:08
2561
原创 centos8安装rabbitmq（rpm包）
1、先下载好rpm包（https://pkgs.org/） （1）、检索rabbitmq下载对应centos8的版本 rabbitmq-server-3.9.14-1.el8.noarch.rpm （2）、检索erlang下载对应centos8的版本(在官网https://www.rabbitmq.com中，RabbitMQ是由Erlang语言开发，所以MQ安装时必须要安装对应支持版本的Erlang) erlang-24.3.2-1.el8....
2022-03-29 13:46:16
3248
转载 centos8安装rabbitMq依赖报错
安装rabbitMq依赖报错： libcrypto.so.10()(64bit) is needed by erlang-21.3.8.9-1.el7.x86_64 libcrypto.so.10(OPENSSL_1.0.1_EC)(64bit) is needed by erlang-21.3.8.9-1.el7.x86_64 libcrypto.so.10(OPENSSL_1.0.2)(64bit) is needed by erlang-21.3.8.9-1.el7.x86_6...
2022-03-24 11:32:50
4003
原创 centos8安装nginx服务（压缩包tar.gz）
1、安装ngimx依赖gcc环境yum -y install gcc pcre pcre-devel zlib zlib-devel openssl openssl-devel2、下载包，解压包 下载：nginx-1.21.4.tar.gz 解压：tar -zxvf nginx-1.21.4.tar.gz3、进入目录，编译安装 进入：cd nginx-1.21.4 安装：./configure && make && make inst...
2022-03-24 10:52:56
361
转载 centos8安装mysql8（tar包）
https://blog.csdn.net/u010565545/article/details/104961184?ops_request_misc=%257B%2522request%255Fid%2522%253A%2522164793991016782248518650%2522%252C%2522scm%2522%253A%252220140713.130102334.pc%255Fblog.%2522%257D&request_id=164793991016782248518650&am
2022-03-23 17:46:15
1001
原创 centos8防火墙命令配置
一、防火墙服务1、启动、关闭、重启防火墙服务。 systemctl start firewalld.service systemctl stop firewalld.service systemctl restart firewalld.service2、显示防火墙的状态。 systemctl status firewalld.service3、开机启动防火墙。 systemctl enable firewalld.service4、开机时禁用防火墙。...
2022-03-23 14:57:49
1765
转载 Centos8 yum 更换最新阿里源(2022年)
1、进入配置文件夹 命令：cd /etc/yum.repos.d/2、删除旧的配置文件，输入“y”回车确认 命令：rm *.repo3、下载可以用的.repo文件 命令：wget -O /etc/yum.repos.d/CentOS-Base.repo https://mirrors.aliyun.com/repo/Centos-vault-8.5.2111.repo 备注：如果你没有安装wget，可用命令： curl -o /etc/yum.repos.d/Ce...
2022-03-22 18:12:42
2657
1
原创 centos8 root用户忘记密码
1、e按e进入编辑模式2、rd.break在quiet后加入rd.break3、ctrl+x按ctrl+x进入swtch_root模式4、mount -o remount,rw /sysroot重新挂载根分区,变成读写模式5、chroot /sysroot切换根分区6、passwd root修改root的密码，必须是8位数以上复杂密码7、touch /.autorelabelselinux在重启后更新label8、exit退出9、reboot重启...
2022-03-22 15:34:51
356
原创 Delphi_TButtonGroup点击定位Button的索引
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ButtonGroup, Vcl.StdCtrls;type TForm1 = class(TForm) ButtonGroup1: TButtonG.
2021-10-28 19:46:39
355
原创 Delphi_TCategoryButtons找到当前焦点的Button及Item的索引
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.CategoryButtons, Vcl.StdCtrls;type TForm1 = class(TForm) CategoryButtons1: .
2021-10-28 19:23:41
448
原创 delphi_postjson
unit YSL_ConsumeIntf;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdHTTP, IdHashMessageDigest, superobject;type TConsume = record cardSnr: string; //卡序列号 clientTra.
2021-10-18 14:08:55
728
转载 Delphi Excel 操作大全【CreateOleObject( 'Excel.Application' )】
(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Micro...
2018-09-18 16:38:54
12057
原创 Delphi 获取DataSet传入参数后的SQL命令
ClientDataSet1.CommandText := sSQL; ClientDataSet1.Params.Clear;ClientDataSet1.CommandText :='SELECT * FROM test WHERE ID=:TID and Code=:Code '; //传参后面加一个空格ClientDataSet1.Params.ParamByName('TID...
2018-09-17 15:42:00
1179
原创 Delphi IdHttp.Get方法
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DateUtils, IdHTTP, IdHashMessageDigest, Pos_Log, superobject;type T...
2018-09-14 14:51:34
2592
原创 Delphi MD5加密[和Java的MD5加密结果一致]
//MD5加密字符串function TWorkWindowForm.ret_mymd5(const sVaule: string): string;var mymd5: TIdHashMessageDigest5;begin try mymd5 := TIdHashMessageDigest5.Create; Result := (mymd5.AsHex(mymd...
2018-09-13 17:06:27
1060
原创 Delphi 请求时间，为当前时间，数值为1970-01-01以来的毫秒数
//和Java获取的数值一致function TWorkWindowForm.GetJavaTime(d: TDateTime): Int64;var dJavaStart: TDateTime;begin //java里的时间是从1970年1月1日0点到当前的间隔 dJavaStart := EncodeDateTime(1970, 1, 1, 0, 0, 0, 0); ...
2018-09-13 17:04:25
1492
原创 Delphi DataSetToExcel的三种方法
function TWorkWindowForm.DataSetToExcel(cds_Temp: TClientDataSet; AcxGridDBTableView: TcxGridDBTableView; ToSavePath:string; var sMsg: string): Boolean;var XLS,WorkBook,WorkSheet: variant; i,...
2018-09-13 16:09:27
1123
原创 delphi 调用C语言的动态库DLL函数
一、C语言函数原型1、接口函数定义函数原型void card_trans(int com,char * pUpdata,char * pDownData);返回值为0时，交易成功，非0时为交易失败。2、调用传入参数定义传入首地址必须符合结构体pUpdata,传出首地址必须符合结构体pDownData.结构体pUpdata和pDownData的定义分别如下:typedef str...
2018-09-13 09:52:37
2273
原创 delphi 副屏最大化和居中等Info
if Screen.MonitorCount>1 then begin ClientScreenFrm.Top := Screen.Monitors[1].Top; ClientScreenFrm.Left := Screen.Monitors[1].Left; ClientScreenFrm.Width := Screen.Monitors[1].Width;...
2018-09-12 16:50:58
509
原创 delphi 手机号/Email/传真号验证有效性
//Email验证function TDeptCaptionFrm.EMailAddCheck(EmailAdd: string; var Errorcode: string): Boolean; function CheckAt(s: string): integer; var num, t: integer; begin num := 0; t := p...
2018-09-12 10:34:44
1309
原创 Delphi 2010下载、安装及常见报错解决方法
1、下载Delphi2010_3615版本下载地址：http://altd.embarcadero.com/download/RADStudio2010/delphicbuilder_2010_3615_win.iso2、安装序列号 HAAL-DANSGN-FZR5AG-M3BS JAAL-SCDKV6-ETH2SG-KBAN3、破解步骤： a、下载破解补丁:...
2018-09-09 18:35:43
3820
3
原创 delphi 记录类型保存为二进制文件
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyRec = record //定义Record Name: string[10]; Sex: str...
2018-09-08 18:07:33
1618
原创 Delphi cxGridExportToExcel
//cxGrid导出到Excel：通过数据集的方式导出------>数据量大时，还待继续优化，尽量加快导出Excel速度//需要应用单元ComObjfunction TWorkWindowForm.DataSetToExcel(cds_Temp: TClientDataSet; AcxGridDBTableView: TcxGridDBTableView; ToSavePath:st...
2018-09-06 08:55:44
1985
转载 Delphi6 cxgrid导出excel
//引用单元 Dialogs, cxExportGrid4Link, comobj//例子procedure TWorkWindowForm.btn1Click(Sender: TObject);begin inherited; CxGridToExcel(grdOpenInDetail);end;//定义procedure TWorkWindowForm.CxGridToE...
2018-09-05 09:49:32
301
delphi6直连redis服务（用lua脚本redis模块）
2024-05-08
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人