自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 判断端口是否被使用

function TROMiddleWare.IsPortUsed(aPort: Integer): Boolean; var _vSock: TSocket; _vWSAData: TWSAData; _vAddrIn: TSockAddrIn; begin Result := ...

2019-11-27 16:33:57

阅读数 26

评论数 0

原创 SQL Server清理日志

SQL Server清理日志 USE [master] GO ALTER DATABASE 数据库 SET RECOVERY SIMPLE WITH NO_WAIT GO ALTER DATABASE 数据库 SET RECOVERY SIMPLE --简单模式 GO USE 数据库 GO...

2019-11-18 08:53:44

阅读数 11

评论数 0

原创 electron调用dll插件方法

经过2天的试验,electron高版本调用dll不能使用node-ffi,node-ffi不支持nodejs10及以上的版本 高版本要调用dll用node-ffi-napi https://github.com/node-ffi-napi/node-ffi-napi ...

2019-10-11 16:56:51

阅读数 95

评论数 0

原创 搭建Electron+vue

一、安装nodejs 二、安装vue-cli脚手架 输入命令:cnpm install --global vue-cli 验证是否安装成功输入vue出现下面信息说明安装成功 三、搭建vue项目 1、使用命令创建项目 vue init webpack demo2 完成后目录如下: ...

2019-09-06 10:04:59

阅读数 222

评论数 0

原创 node.js调用Delphi写的Dll

一、调用代码 Delphi版本Delphi 10 Seattle Delphi代码 unit Unit1; interface function testint(i: Integer): Integer; stdcall; function testpchar(value: PAnsi...

2019-09-05 09:05:31

阅读数 97

评论数 0

原创 electron资源整理

electron资源整理 官网https://electronjs.org/ githubhttps://github.com/topics/electron 中文文档https://www.w3cschool.cn/electronmanual electron-vue elect...

2019-09-04 08:30:36

阅读数 73

评论数 0

原创 delphi 生僻字写入clientdataset 出现乱码?问题

delphi clientdataset 写入值时乱码问题 今天出现生僻字写入clientdataset 出现?情况,记录下解决方法 将字段类型改为ftwidestring 就可以了

2019-07-26 16:24:15

阅读数 100

评论数 1

原创 Python 资源整理

Python基础 廖雪峰https://www.liaoxuefeng.com/wiki/1016959663602400 PyQt 官方教程 https://www.qt.io/cn/qt-for-python 基础教程 http://code.py40.com/face ...

2019-07-16 17:34:33

阅读数 130

评论数 1

原创 IdHTTPServer服务接收文件

procedure TForm1.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); var FileStream...

2019-04-29 08:07:16

阅读数 561

评论数 1

原创 fireDac连接池使用

Params := TStringList.Create; try Params.Clear; Params.Add('Server=' + Server); Params.Add('Port=' + Port); Params.Add('...

2019-04-16 16:55:38

阅读数 341

评论数 0

原创 IdHttp 出现 Http/1.0 302 found 问题解决

使用IdHttp组件下载文件,出现 Http/1.0 302 found 错误 添加 IdHTTP.HandleRedirects := True; 解决

2019-03-20 20:38:19

阅读数 1069

评论数 0

原创 Delphi 调用JS

直接上代码 procedure TForm2.TestClick(Sender: TObject); var m_OLE: Variant; Js: string; JsReturn:string; begin m_OLE := CreateOleObject('Sc...

2019-03-11 10:01:22

阅读数 432

评论数 0

原创 手动安装及卸载MySQL

一、安装MySql 1、手动解压到安装目录 2、修改配置文件my-default.ini 把my-default.ini复制一下,命名my.ini [mysql] # 设置mysql客户端默认字符集 default-character-set=utf8 [mysqld] #设置3306端口 ...

2019-01-09 10:01:13

阅读数 257

评论数 0

原创 MySql性能优化

1、MySQL Innodb data_free 清理 每当MySQL从你的列表中删除了一行内容,该段空间就会被留空。而在一段时间内的大量删除操作,会使这种留空的空间变得比存储列表内容所使用的空间更大。留空空间过大会影响SQL的执行速度,可以通过  ALTER TABLE table_name ...

2019-01-09 08:56:58

阅读数 73

评论数 0

原创 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一样的gr...

2018-12-08 16:25:49

阅读数 110

评论数 0

原创 PyQt功能整理

最近开始研究PyQt,做个记录 1、Qt之 模态、半模态窗口 模态 Dialog = QtWidgets.QDialog() Dialog.exec() 半模态 widget.setWindowModality(QtCore.Qt.WindowModality.ApplicationModa...

2018-09-13 16:44:02

阅读数 272

评论数 0

原创 Python入门十:Anaconda安装

一、Anaconda是什么? Anaconda是Python的包管理器和环境管理器。 提供了包管理功能,Windows平台安装第三方包经常失败的场景得以解决。 提供环境管理功能,解决了多版本Python并存、切换的问题。 二、安装 官网地址https://www.anaconda.com/do...

2018-09-13 09:48:03

阅读数 296

评论数 0

原创 FastReport 脚本得到对象及循环数据集

1、获取memo对象 Memo:=TfrxmemoView(MasterData1.FindObject('Memo3')); Memo.Text := 'Hello FastReport!'; 2、获取数据集并循环数据集内容 data:...

2018-08-31 09:10:40

阅读数 2409

评论数 0

原创 TIdHttp增加自定义cookie

HttpClient.HandleRedirects := True; HttpClient.Request.CustomHeaders.Values['Cookie'] := 'jeessionOAWeb=865F7BBA5098E;';  

2018-08-04 11:03:29

阅读数 204

评论数 0

原创 MySQL主从复制(Master-Slave)

MySQL数据库自身提供的主从复制功能可以方便的实现数据的多处自动备份,实现数据库的拓展。多个数据备份不仅可以加强数据的安全性,通过实现读写分离还能进一步提升数据库的负载性能。 下图就描述了一个多个数据库间主从复制与读写分离的模型(来源网络): 在一主多从的数据库体系中,多个从服务器采...

2018-07-24 13:57:23

阅读数 55

评论数 0

原创 sqlserver 查看数据库连接情况

select t2.name as 数据库名,t3.client_net_address as ip地址, t1.host_name as 电脑名 from master.sys.dm_exec_sessions t1 inner join master.dbo.SYSDATABASES t2 ...

2018-05-11 13:26:19

阅读数 4076

评论数 0

原创 限制MsSql Ip地址访问

ALTER TRIGGER [tr_connection_limit] ON ALL SERVER WITH EXECUTE AS 'sa' FOR LOGON AS BEGIN IF ORIGINAL_LOGIN()= 'sa' --允许sa在本机和下面...

2018-05-11 11:24:36

阅读数 586

评论数 0

原创 Python入门九:QTableWidget 组件使用

目录1、创建表单2、设置表单样式3、表格表头的显示与隐藏4、去除鼠标点击的选项会出现虚框------------------------------------------------1、创建表单设置列数:tableWidget.setColumnCount(3) 设置行数:tableWidget...

2018-04-02 16:45:51

阅读数 2923

评论数 0

原创 Python入门八:Python调用Delphi写的Dll

Delphi版本Delphi 10 SeattleDelphi代码unit Unit1; interface function testint(): integer; stdcall; function testpchar(): PChar; stdcall; implementation ...

2018-03-29 17:14:12

阅读数 1100

评论数 1

原创 Python入门七:安装支持WinXp运行的Python及环境配置

之前安装的Python开发的程序无法在WinXp上运行,这里记录下安装支持Xp系统的Python及环境配置之前程序在Xp上运行的错误:无法定位程序输入点 GetFinalPathNameByHandleW 于动态链接库 KERNEL32.dll 上。原因:Getfinalpathnamebyhan...

2018-03-29 13:06:27

阅读数 9207

评论数 1

原创 Python入门六:Pyinstaller生成exe 在非开发环境中使用出现的问题汇总及解决方法

下面记录Pyinstaller生成的exe,在非开发环境中使用出现问题,及解决办法1、无法定位程序输入点 ucrtbase.terminate 于动态链接库 api-ms-win-crt-runtime-l1-1-0.dll 上。 Universal CRT (KB2999226)缺失,可以通过安...

2018-03-27 14:49:34

阅读数 3383

评论数 0

原创 Python入门五:打包exe发布

1、安装pyinstallerdos命令行输入:py -m pip install pyinstaller,安装pyinstaller2、打包在要制作的exe文件目录输入pyinstaller -w *.py,就可以制作出exe。生成的文件放在同目录dist下。-F(注意大写)是所有库文件打包成一...

2018-03-27 13:28:18

阅读数 5016

评论数 1

原创 Python入门四:创建第一个图形界面

1、使用QtDesigner制作界面,打开的界面设计工具QtDesigner,如图:2、新建窗体,选择Main Window3、添加几个组件4、添加事件点击拖动按钮添加并关联事件5、保存ui文件6、右键.ui文件使用PyUIC工具转化.ui代码为.py代码生成py文件7、删除如下三行:MainWi...

2018-03-27 11:13:22

阅读数 25519

评论数 2

原创 Python入门三:安装Pyqt5

一、安装1、官网:www.riverbankcomputing.com2、使用命令安装,可以自动去官网查找与Python版本号相同的程序进行下载,比较方便,如果不是这样也可从PyQt官网上下载与Python相匹配的程序文件3、安装PYQT前,首先安装  SIP 运行-->CMD--&...

2018-03-27 09:51:34

阅读数 16178

评论数 9

原创 Python入门二:安装pycharm

PyCharm 是由 JetBrains 打造的一款 Python IDE。一、安装1、首先从网站下载pycharm:点击打开链接 http://www.jetbrains.com/pycharm/download/#section=windows 进入之后如下图,根据自己电脑的操作系统进行选择2...

2018-03-27 08:34:57

阅读数 2037

评论数 1

原创 Python入门一:安装Python

因为Python是跨平台的,它可以运行在Windows、Mac和各种Linux/Unix系统上。在Windows上写Python程序,放到Linux上也是能够运行的。这里主要介绍在Windows上安装Python目前,Python有两个版本,一个是2.x版,一个是3.x版,这两个版本是不兼容的。这...

2018-03-26 18:16:37

阅读数 475

评论数 0

原创 Delphi 窗体置顶

窗口的formShow事件中,增加以下代码: Application.NormalizeTopMosts; // 如果不加入这一句,非主窗口仍然不能置顶 SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP...

2018-02-24 09:40:01

阅读数 868

评论数 0

原创 CxGrid鼠标移到更改颜色

CxGrid鼠标移到更改颜色 设置表单中TcxGrid1DBTableView的Styles属性,设置Selection procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;   Shift: TShiftState; ...

2018-01-29 08:34:26

阅读数 265

评论数 0

原创 Delphi 禁止Alt+F4关闭

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; procedure WMSysCommand(var Msg: TWMSysCommand); begin if Msg.CmdType <&g...

2017-11-24 11:03:48

阅读数 493

评论数 0

原创 Mysql常见错误及解决

Mysql常见错误及解决 1、Error writing file '/xxx/' (Errcode: 28 - No space left on device) 原因:磁盘空间已满 解决方法:清理磁盘,释放空间 2、Lock wait timeout exceed...

2017-10-12 15:36:35

阅读数 250

评论数 0

原创 SQL Server查看所有表大小,所占空间

SELECT a.name, b.rows FROM sysobjects AS a INNER JOIN sysindexes AS b ON a.id = b.id WHERE (a.type = 'u') AND (b....

2017-05-27 15:18:02

阅读数 414

评论数 0

原创 Android Studio 中 layout 目录分类

Android Studio 中 layout layout 目录分类 第一步: 在res/layout文件夹下创建自己想要的目录(有几个模块就建几个目录) 第二步: 在创建好的模块目录下,创建layout文件夹 第三步: 将布局文件放入相应的layout文件夹 ...

2017-05-04 20:30:05

阅读数 3420

评论数 0

原创 Delphi 延迟函数

Sleep会引起程序停滞,使程序看起来像死机 下面的延迟方法不会卡主线程 procedure Delay(msecs: DWORD); var iStart, iStop: DWORD; begin iStart := GetTickCount; repeat iSto...

2017-05-04 15:51:42

阅读数 232

评论数 0

原创 XE版本 运行cmd命令,并取得输出字符

procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastError)); end; function RunDOS(const Comma...

2017-02-13 16:28:09

阅读数 378

评论数 1

原创 delphi 编译的时候 把Warning去除的方法

添加 {$WARNINGS OFF}

2016-07-11 10:01:48

阅读数 461

评论数 0

提示
确定要删除当前文章?
取消 删除