- 博客(16)
- 资源 (10)
- 收藏
- 关注
RSS订阅原创 派森下sqlite3的基本操作
import sqlite3import datetimeDBname='PrintSrv.DB'conn=sqlite3.connect(DBname)conn.execute("PRAGMA synchronous = OFF;")theCur=conn.cursor()findTableSql="select * from sqlite_master where type='ta...
2020-04-26 09:53:57
200
原创 Ubuntu下Docker部署hyperlpr的python环境
操作系统：ubuntu16.04文件安装包：Python-3.6.9.tgzpython官方网站下载 libressl-3.0.2.tar.gz下载地址https://ftp.openbsd.org/pub/OpenBSD/LibreSSL/操作步骤1.安装dockersudo wget -qO- https://get.dock...
2020-04-01 16:26:12
376
转载 delphi编码相互转换
unit util_utf8;interfaceuses Windows;type UTF8String = AnsiString; function AnsiToWide(const S: AnsiString): WideString; function WideToUTF8(const WS: WideString): UTF8String; funct...
2020-03-02 17:33:00
980
原创 ubuntu安装python3.7.5记录
系统：ubuntu16.04资源下载：python3.7.5.tgz www.python.org 派森 libressl3.0.2https://download.csdn.net/download/jjpweb/12036618派森安装中出现的ssl版本太低替换资源 用finalshell之类的ssh工具把...
2019-12-19 10:09:22
1629
原创 派森生成一年的所有日期和星期
#coding=utf-8import datetimebeginDate= datetime.datetime.strptime("2020-01-01","%Y-%m-%d")endDate= datetime.datetime.strptime("2020-12-31","%Y-%m-%d")dayList={}while beginDate <= endDate: ...
2019-12-06 11:59:45
419
转载 Android网络pos打印
package com.Ieasy.Tool;import android.annotation.SuppressLint;import java.io.IOException ;import java.io.OutputStream ;import java.io.PrintWriter ;import java.net.InetSocketAddress ;import java...
2019-11-28 14:30:38
148
原创 Delphi跨程序发送数据信息
//接收方procedureGetCopyDataMsg(varMsg:TMessage);messageWM_COPYDATA;procedureGetCopyDataMsg(varMsg:TMessage);varcdst:TCopyDataStruct;tmp:string;begincdst:=PcopyDataStruct(Msg.LPa...
2019-09-06 09:36:55
215
转载 SQL生成简拼码
/*创建取拼音首字母函数*/create function [dbo].[fn_ChineseToSpell](@strChinese varchar(500)='')returns varchar(500)asbegin /*函数实现开始*/ declare @strLen int,@return varchar(500),@i int declare @...
2019-07-19 12:18:06
909
转载 Delphi设置日期格式
procedure SetTimeFormatX;var P: DWORD;begin try SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_IDIGITS, '2'); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_ICURRDIGITS, '2'); SetLocaleIn...
2019-06-28 11:54:36
1136
原创 Delphi写日志函数
procedure WriteLog(sAppPath: string; sContent: string; logNamePre: string = ''; logDir: string = 'log');var tFile: TextFile; filename: string;begin filename := sAppPath + logDir + '\' + logNam...
2018-12-25 09:30:26
1103
原创 SQLserver修复数据库相关
//更新系统表sp_configure 'allow updates',1 reconfigure with overridesp_configure 'allow updates',0 reconfigure with override//紧急模式update sysdatabases set status =32768 where name='dbname'update sysda...
2018-08-15 12:10:27
224
原创 SeeTaFace人脸识别动态库之delphi接口
{https://github.com/seetaface/SeetaFaceEngine}unit STFintf;interfaceconst DetectDLL = 'seeta_fd_lib.dll'; AlignDLL = 'seeta_fa_lib.dll'; IdentifyDLL = 'seeta_fi_lib.dll';type PSTF_Imag...
2018-07-18 12:20:07
1531
5
原创 Delphi绘制只有四个角有线的矩形
procedure DrawOtherRect(x1, y1, x2, y2: Integer; img: TImage; cColor: TColor = clLime; LineLen: Integer = 50);var lineLength: integer; x3, y3, x4, y4: Integer;begin lineLength := LineLen; img.Canv...
2018-06-22 12:02:44
379
转载 Delphi程序开机自动启动
procedure SetAutoRun(ok: boolean);var Reg: TRegistry;begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true); ...
2018-06-21 08:57:26
1136
原创 Delphi中Ini读写函数
function ReadIni(filename, Section, ident, sdefault: string): string;var tmpIni: TIniFile;begin try tmpIni := TIniFile.Create(filename); Result := tmpIni.ReadString(Section, ident, sdefault); ...
2018-06-21 08:52:50
210
原创 Delphi从DBgrid导出Excel
procedure TDMx.DbGrid2Xls(dbgrd: TDBGrid; fileName: string);var Xls: Variant; I, L, J: Integer;begin if LowerCase(RightStr(fileName, 4)) <> '.xls' then fileName := fileName + '.xls'; try ...
2018-06-21 08:45:53
1858
1
libressl-3.0.2.tar.gz
2019-12-17
最新AES的CBC加解密dll
2019-07-03
AES加密CBC模式DLL
2015-12-01
AES加密CBC模式动态库DLL
2015-11-27
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人