Delphi Base
文章平均质量分 50
昆曲之源_娄江河畔
从x86汇编英文环境--delphi7--c#--java--.NET Core-android--HTML5--Python-Extjs 一路走来。爱好C#、DELPHI XE、python、javascript,喜欢编程,不愿意承认自己是中年人的奋斗者,一路前行!
展开
-
关于QRCode形成的二维码中含有汉字,有时会出现汉字乱字符问题
问题:一直在用QRCODE,但之前没有包含汉字,这次把汉字就进去竟然会出现乱码,且同样的字比如“黑”这个字,直接输入“黑",手机扫描出来是乱码,但如果输入”货号:黑“,则能正常显示。解决办法:编码问题所致,先对要编码的字符进行转换,转为utf-8,采用AnsiToUTF8即可。functionAnsiToUTF8(constS:AnsiString): UTF8String;...原创 2021-01-12 15:16:55 · 9492 阅读 · 0 评论 -
dataset快速导出EXCEL
不用安装office 快速导出EXCEL的源码,来自网上,觉得不错,先贴出来供大家参考!{ 背景:今天要把DataSet导入Excel,查询以前的贴子,一部分用Ole,速度太慢, 一部分用ADO连接到Excel文件,也很慢,一气之下把DBGrigEh的导出部分改了出来, 欢迎大家指教、改进。 功能:将数据集的数据导入Excel; 用法:With ExportXls.Create(TDataSet(ADOQuery1)) do ...原创 2020-09-21 09:13:32 · 328 阅读 · 2 评论 -
WIN7下odbc数据源配置问题
win7下odbc数据源找不到数据库驱动的问题明明安装有多种数据库驱动,直接在控制面板里确找不到。控制面板---管理工具----数据源(ODBC)打开数据源配置,发现只有SQLServer的驱动,其他的都没有了。控制面板点击ODBC实际上是运行windows\system32下的odbcad32.exe解决方法是C:\Windows\SysWOW64在这个目录下找到:odbcad32.exe这个文件,双击打开。里面有很多可用个数据源驱动。或把它拷贝到system32下把那目录的.原创 2020-09-17 15:56:50 · 926 阅读 · 0 评论 -
如何将exe程序注册为windows服务,直接从后台运行
2种方法教你,如何将exe注册为windows服务,直接从后台运行方法一:使用windows自带的命令sc首先我们要打开cmd,下面的命令在cmd中运行,最好使用管理员运行cmd注册服务:sc create ceshi binpath= D:\ceshi\ceshi.exe type= own start= auto displayname= ceshibinpath:你的应用程序所在的路径。displayname:服务显示的名称如何判断服务是否注册成功:在cmd中输入ser原创 2020-08-10 16:27:08 · 1167 阅读 · 0 评论 -
DataSnap Service Application方式中为系统服务程序添加描述
DataSnap有三种服务模式,其中Service Application方式建立的windows服务没有描述,描述部分是空的。uses中添加Registry,Winapi.Windows通过如下办法添加描述:procedure TServerContainer2.ServiceAfterInstall(Sender: TService);var xreg: TRegistry;begin xreg := TRegistry.Create; try with xreg d...原创 2020-08-01 14:33:25 · 258 阅读 · 0 评论 -
DELPHI XE10 unigui备忘录
1、提示信息换行符号^M^M 例如: showmessage('File upload completed.' + ^m^m'Filename: ' + ^m^m'Temporary file is located under:' );原创 2020-07-26 17:14:00 · 1645 阅读 · 0 评论 -
delphi中UTF8Deocde的问题
delphi的Utf8Decode在解码的时候遇到它认为不正确的字符就返回空串了,还是用winapi靠谱uses windows;function DecodeUtf8Str(const S:UTF8String): WideString;var lenSrc,lenDst : Integer;begin lenSrc := Length(S); if(le原创 2016-05-21 15:00:23 · 1156 阅读 · 0 评论 -
Delphi读写UTF-8、Unicode格式文本文件
在研究PvPGN时发现conf配置文件一些为UTF-8和Unicode格式,这样便可良好的支持多语言,从网上查阅资料后,将读写UTF-8、Unicode文件写了几个最精简的函数,更新后加了是否写文件头的功能,以适应更多需要,注意函数未加防错保护。参数说明:f文件名、s写入或读取的文件内容、hs文件头、b是否读写文件头。UTF-8文件写入函数程序代码 程序代码procedur原创 2016-05-21 13:41:02 · 1686 阅读 · 0 评论 -
动态设置Rave报表BMP图片文件
首先 uses中加入RpRave, RVClass, RVProj, RVCsStd;以下内容你懂的:procedure TForm1.BitBtn1Click(Sender: TObject); var MyPage:TRavePage; Mybitmap:TRaveBitmap;begin RvProject1.Open;原创 2014-03-01 14:08:00 · 1057 阅读 · 0 评论 -
DELPHI中设置或获取系统信息SetLocaleInfo
此函数用于设置系统的一些本地信息比如日期格式为'yyyy-mm-dd HH:mm:ss以下资料网络收集:1. SetLocaleInfo()中 LCTYPE values 的具体意义BOOL SetLocaleInfo(LCID Locale, LCTYPE LCType, LPWTSTR lpLCData );其中LCTYPE LCType参数的具体意义如下原创 2014-02-18 09:33:04 · 2289 阅读 · 0 评论 -
三种方法实现窗体的拖动
方 法 一:通 过 响 应“wm_NCHitTest” 消 息 来 移 动 窗 体。Windows 发 送“wM_NCHitTest” 消 息 来 确 定 鼠 标 操 作 是 否 发 生 在 窗 体的 客 户 区, 或 边 框 的 特 殊 区 上( 非 客 户 区)。 如 果Windows 发 现 用 户 单 击 了 窗 体 标 题,系 统 将 移 动 窗 体,单 击 了 窗原创 2014-01-21 13:12:42 · 1027 阅读 · 0 评论 -
FastReport经验汇总
FastReport经验1.FastReport中如果访问报表中的对象?可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’;2.FastReport中如何使用上下标?设置frxmemoview.AllowHTMLTags := True;在Text输入如下原创 2013-12-25 14:55:37 · 1608 阅读 · 0 评论 -
如何将BMP文件转换为JPG文件
将BMP文件转换为JPG文件,并保存procedure BMPTOJpg(wj:string); var bmp:tbitmap;jpg:TJPEGImage;ms:tmemorystream;begin bmp:=tbitmap.Create; bmp.LoadFromFile(wj); jpg:=TJPEGIma原创 2014-01-06 17:11:41 · 1256 阅读 · 0 评论 -
如何进行JPG图片的存入及读取
1、将JPG文件存入数据库procedure TForm1.jpgsave(wj:string); var bmp:tbitmap;jpg:TJPEGImage;ms:tmemorystream;begin Image1.Picture.LoadFromFile(wj); jpg:=TJPEGImage.Create;原创 2014-01-06 16:25:28 · 1691 阅读 · 0 评论