- 博客(89)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 debug调试模式启动springboot 慢问题解决
debug调试模式下启动springboot 很慢，经查是由于加了断点后导致，去除后恢复正常
2021-02-08 15:31:28
317
原创 firedac Sql语句中出现“&”符号，丢失问题解决
firedac Sql语句中出现“&”符号，丢失问题解决设置ResourceOptions.MacroCreate 和 MacroExpand 为False
2020-05-30 09:48:04
348
原创 Java调用Delphi编写的Dll
1、java使用jna调用delphi的dll2、jna依赖包设置<dependency> <groupId>com.sun.jna</groupId> <artifactId>jna</artifactId> <version>3.0.9</version></dependency>3、delphi代码unit Unit1;interfaceuses Vcl
2020-05-14 11:05:08
557
原创 delphi 编译警告解决
delphi 编译警告解决1、[dcc32 Warning] U_Audio.pas(256): W1000 Symbol 'StrPCopy' is deprecated: 'Moved to the AnsiStrings unit'解决方法：添加System.AnsiStrings引用，在使用处改为System.AnsiStrings.strpcopy...
2020-03-14 10:48:09
1599
原创 TIdHTTP按JSON格式发送
TIdHTTP按JSON格式发送HttpClient.Request.ContentType := 'application/json'; //设置内容类型为json
2020-03-06 14:44:31
620
原创 判断端口是否被使用
function TROMiddleWare.IsPortUsed(aPort: Integer): Boolean;var _vSock: TSocket; _vWSAData: TWSAData; _vAddrIn: TSockAddrIn;begin Result := False; try if WSAStartup(MAKEWORD(2, 2), _vW...
2019-11-27 16:33:57
348
原创 SQL Server清理日志
SQL Server清理日志USE [master]GOALTER DATABASE 数据库 SET RECOVERY SIMPLE WITH NO_WAITGOALTER DATABASE 数据库 SET RECOVERY SIMPLE --简单模式GOUSE 数据库GODBCC SHRINKFILE (N'逻辑名' , 1000, TRUNCATEONLY) --设...
2019-11-18 08:53:44
157
原创 electron调用dll插件方法
经过2天的试验，electron高版本调用dll不能使用node-ffi，node-ffi不支持nodejs10及以上的版本高版本要调用dll用node-ffi-napihttps://github.com/node-ffi-napi/node-ffi-napi...
2019-10-11 16:56:51
1291
原创 搭建Electron+vue
一、安装nodejs二、安装vue-cli脚手架 输入命令：cnpm install --global vue-cli验证是否安装成功输入vue出现下面信息说明安装成功三、搭建vue项目1、使用命令创建项目 vue init webpack demo2完成后目录如下：成功之后查看启动项，打开demo2>config>index.js：执行命...
2019-09-06 10:04:59
2003
原创 node.js调用Delphi写的Dll
一、调用代码Delphi版本Delphi 10 SeattleDelphi代码unit Unit1;interfacefunction testint(i: Integer): Integer; stdcall;function testpchar(value: PAnsiChar): PAnsiChar; stdcall;implementationfunctio...
2019-09-05 09:05:31
823
原创 electron资源整理
electron资源整理官网https://electronjs.org/githubhttps://github.com/topics/electron中文文档https://www.w3cschool.cn/electronmanualelectron-vueelectron-vue文档https://simulatedgreg.gitbooks.io/...
2019-09-04 08:30:36
320
原创 delphi 生僻字写入clientdataset 出现乱码？问题
delphi clientdataset 写入值时乱码问题今天出现生僻字写入clientdataset 出现？情况，记录下解决方法将字段类型改为ftwidestring 就可以了
2019-07-26 16:24:15
805
1
原创 Python 资源整理
Python基础廖雪峰https://www.liaoxuefeng.com/wiki/1016959663602400PyQt官方教程 https://www.qt.io/cn/qt-for-python基础教程 http://code.py40.com/face https://github.com/maicss/PyQt5-...
2019-07-16 17:34:33
368
1
原创 IdHTTPServer服务接收文件
procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);var FileStream: TFileStream;begin if ARequestInfo.PostStream ...
2019-04-29 08:07:16
1990
1
原创 fireDac连接池使用
Params := TStringList.Create;try Params.Clear; Params.Add('Server=' + Server); Params.Add('Port=' + Port); Params.Add('Database=' + Database); Params.Add('CharacterSet=utf8'); Params.Add('User...
2019-04-16 16:55:38
1338
原创 IdHttp 出现 Http/1.0 302 found 问题解决
使用IdHttp组件下载文件，出现 Http/1.0 302 found 错误添加 IdHTTP.HandleRedirects := True; 解决
2019-03-20 20:38:19
4754
原创 Delphi 调用JS
直接上代码procedure TForm2.TestClick(Sender: TObject);var m_OLE: Variant; Js: string; JsReturn:string;begin m_OLE := CreateOleObject('ScriptControl'); m_OLE.Language := 'JavaScript'; Js :=...
2019-03-11 10:01:22
1766
原创 手动安装及卸载MySQL
一、安装MySql1、手动解压到安装目录2、修改配置文件my-default.ini把my-default.ini复制一下，命名my.ini[mysql]# 设置mysql客户端默认字符集default-character-set=utf8 [mysqld]#设置3306端口port = 3306 # 设置mysql的安装目录basedir=E:\SoftWare-SQL...
2019-01-09 10:01:13
614
原创 MySql性能优化
1、MySQL Innodb data_free 清理每当MySQL从你的列表中删除了一行内容，该段空间就会被留空。而在一段时间内的大量删除操作，会使这种留空的空间变得比存储列表内容所使用的空间更大。留空空间过大会影响SQL的执行速度，可以通过 ALTER TABLE table_name ENGINE = Innodb; 回收表空间查看碎片SELECTtable_name,EN...
2019-01-09 08:56:58
155
原创 mysql查询报错：ORDER BY clause is not in GROUP BY..this is incompatible with sql_mode=only_full_group_by
mysql查询报错： ORDER BY clause is not in GROUP BY..this is incompatible with sql_mode=only_full_group_by原因分析：only_full_group_by ：使用这个就是使用和oracle一样的group 规则, select的列都要在group中,或者本身是聚合列(SUM,AVG,MAX,MIN)...
2018-12-08 16:25:49
383
原创 PyQt功能整理
最近开始研究PyQt，做个记录1、Qt之 模态、半模态窗口模态Dialog = QtWidgets.QDialog()Dialog.exec()半模态widget.setWindowModality(QtCore.Qt.WindowModality.ApplicationModal)widget.show()2、QComboBox使用Qss样式后下拉item样式没反应...
2018-09-13 16:44:02
606
原创 Python入门十：Anaconda安装
一、Anaconda是什么？Anaconda是Python的包管理器和环境管理器。提供了包管理功能，Windows平台安装第三方包经常失败的场景得以解决。提供环境管理功能，解决了多版本Python并存、切换的问题。二、安装官网地址https://www.anaconda.com/download/下载对应版本安装路径不要有中文、空格检验是否安装成功anaconda,cmd...
2018-09-13 09:48:03
741
原创 FastReport 脚本得到对象及循环数据集
1、获取memo对象 Memo:=TfrxmemoView(MasterData1.FindObject('Memo3')); Memo.Text := 'Hello FastReport!';2、获取数据集并循环数据集内容 data:= Report.getDataset('数据集1'); data.first; while not data.eof do be...
2018-08-31 09:10:40
5869
原创 TIdHttp增加自定义cookie
HttpClient.HandleRedirects := True;HttpClient.Request.CustomHeaders.Values['Cookie'] := 'jeessionOAWeb=865F7BBA5098E;';
2018-08-04 11:03:29
560
原创 MySQL主从复制(Master-Slave)
MySQL数据库自身提供的主从复制功能可以方便的实现数据的多处自动备份，实现数据库的拓展。多个数据备份不仅可以加强数据的安全性，通过实现读写分离还能进一步提升数据库的负载性能。下图就描述了一个多个数据库间主从复制与读写分离的模型(来源网络)：在一主多从的数据库体系中，多个从服务器采用异步的方式更新主数据库的变化，业务服务器在执行写或者相关修改数据库的操作是在主服务器上进行的，读操作...
2018-07-24 13:57:23
153
原创 sqlserver 查看数据库连接情况
select t2.name as 数据库名,t3.client_net_address as ip地址,t1.host_name as 电脑名 from master.sys.dm_exec_sessions t1inner join master.dbo.SYSDATABASES t2 on t1.database_id=t2.dbidinner join master.sys.dm_...
2018-05-11 13:26:19
8687
1
原创 限制MsSql Ip地址访问
ALTER TRIGGER [tr_connection_limit]ON ALL SERVER WITH EXECUTE AS 'sa'FOR LOGONASBEGINIF ORIGINAL_LOGIN()= 'sa'--允许sa在本机和下面的IP登录AND(SELECT EVENTDATA().value('(/EVENT_INSTANCE/ClientHost)[1]', ...
2018-05-11 11:24:36
1352
原创 Python入门九：QTableWidget 组件使用
目录1、创建表单2、设置表单样式3、表格表头的显示与隐藏4、去除鼠标点击的选项会出现虚框------------------------------------------------1、创建表单设置列数：tableWidget.setColumnCount(3)设置行数：tableWidget.setRowCount(4)2、设置表单样式设置默认列宽：tableWidget.horizonta...
2018-04-02 16:45:51
6899
原创 Python入门八：Python调用Delphi写的Dll
Delphi版本Delphi 10 SeattleDelphi代码unit Unit1;interfacefunction testint(): integer; stdcall;function testpchar(): PChar; stdcall;implementationfunction testint(): integer; stdcall;begin resu...
2018-03-29 17:14:12
2505
1
原创 Python入门七：安装支持WinXp运行的Python及环境配置
之前安装的Python开发的程序无法在WinXp上运行，这里记录下安装支持Xp系统的Python及环境配置之前程序在Xp上运行的错误：无法定位程序输入点 GetFinalPathNameByHandleW 于动态链接库 KERNEL32.dll 上。原因：Getfinalpathnamebyhandlew XP 不支持这个函数的;python对xp支持的最后版本为3.4.4 我用的python3...
2018-03-29 13:06:27
28941
3
原创 Python入门六：Pyinstaller生成exe 在非开发环境中使用出现的问题汇总及解决方法
下面记录Pyinstaller生成的exe，在非开发环境中使用出现问题，及解决办法1、无法定位程序输入点 ucrtbase.terminate 于动态链接库 api-ms-win-crt-runtime-l1-1-0.dll 上。 Universal CRT （KB2999226）缺失，可以通过安装此更新来解决问题。或者直接下载 Visual C++ Redistributable ，链接http...
2018-03-27 14:49:34
4852
原创 Python入门五：打包exe发布
1、安装pyinstallerdos命令行输入:py -m pip install pyinstaller，安装pyinstaller2、打包在要制作的exe文件目录输入pyinstaller -w *.py，就可以制作出exe。生成的文件放在同目录dist下。-F（注意大写）是所有库文件打包成一个exe，-w是不出黑色控制台窗口。不加-F参数生成一堆文件，但运行快。压缩后比单个exe文件还小一点...
2018-03-27 13:28:18
9269
2
原创 Python入门四：创建第一个图形界面
1、使用QtDesigner制作界面，打开的界面设计工具QtDesigner，如图：2、新建窗体，选择Main Window3、添加几个组件4、添加事件点击拖动按钮添加并关联事件5、保存ui文件6、右键.ui文件使用PyUIC工具转化.ui代码为.py代码生成py文件7、删除如下三行:MainWindow.setCentralWidget(self.centralwidget)、MainWindo...
2018-03-27 11:13:22
32511
2
原创 Python入门三：安装Pyqt5
一、安装1、官网：www.riverbankcomputing.com2、使用命令安装，可以自动去官网查找与Python版本号相同的程序进行下载，比较方便，如果不是这样也可从PyQt官网上下载与Python相匹配的程序文件3、安装PYQT前，首先安装 SIP 运行-->CMD-->pip3 install Sip 4、安装PyQt5 执行命令：pip3 install PyQt55...
2018-03-27 09:51:34
82962
31
原创 Python入门二：安装pycharm
PyCharm 是由 JetBrains 打造的一款 Python IDE。一、安装1、首先从网站下载pycharm：点击打开链接 http://www.jetbrains.com/pycharm/download/#section=windows 进入之后如下图，根据自己电脑的操作系统进行选择2、下载完成3、双击进行安装，选择对应的选项4、安装完成后出现下图界面，点级Finish结束安装二、破解...
2018-03-27 08:34:57
4869
1
原创 Python入门一：安装Python
因为Python是跨平台的，它可以运行在Windows、Mac和各种Linux/Unix系统上。在Windows上写Python程序，放到Linux上也是能够运行的。这里主要介绍在Windows上安装Python目前，Python有两个版本，一个是2.x版，一个是3.x版，这两个版本是不兼容的。这里要安装的是Python 3.6版本首先，根据你的Windows版本（64位还是32位）从Python...
2018-03-26 18:16:37
1002
原创 Delphi 窗体置顶
窗口的formShow事件中，增加以下代码： Application.NormalizeTopMosts; // 如果不加入这一句，非主窗口仍然不能置顶 SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);取消置顶SetWindowPos(Self.Handle, HWND_NOTOPMO...
2018-02-24 09:40:01
2134
原创 CxGrid鼠标移到更改颜色
CxGrid鼠标移到更改颜色设置表单中TcxGrid1DBTableView的Styles属性，设置Selectionprocedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var HitTest:TcxCustomGridHitTes
2018-01-29 08:34:26
451
原创 Delphi 禁止Alt+F4关闭
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;procedure WMSysCommand(var Msg: TWMSysCommand);begin if Msg.CmdType <> SC_CLOSE then inheritedend;
2017-11-24 11:03:48
1130
DHTML 手册.chm
2012-11-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人