![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 52
martian6125
这个作者很懒,什么都没留下…
展开
-
datasnap 上传/下载大文件(本Demo以图传片文件为例)
datasnap 上传/下载大文件(本Demo以图传片文件为例)原创 2024-05-10 16:09:23 · 838 阅读 · 0 评论 -
Delphi XE 10 跨平台三层数据库应用教程
Delphi XE 10 跨平台三层数据库应用教程原创 2024-05-10 16:07:51 · 769 阅读 · 0 评论 -
DataSnap侦听端口动态设置问题
DataSnap侦听端口动态设置问题原创 2024-05-10 16:06:10 · 254 阅读 · 0 评论 -
trayicon 恢复时无法显示窗口
在Self.Show前加两句:原创 2023-12-29 08:51:18 · 460 阅读 · 0 评论 -
[转]Delphi中,让程序只运行一次的方法
因此,在Win32系统中最好的解决方案是利用那些不依赖于进程的API对象,并且它们的使用也很简单,互斥对象就可以解决这个问题。而利用窗口的标题的方法也有问题,因为窗口的标题有可能发生变化(以Delphi和Word为例,每次打开不同文件,它们的标题都会变化),所以这种方法不可取。其中,参数lpCalssName 是要查找的窗口的类的名称,参数lpWindowName是要查找的窗口的标题(Caption)。位的Windows的技术,是调用FindWindow()API函数去搜索一个已激活的程序窗口。转载 2023-11-22 12:55:25 · 313 阅读 · 0 评论 -
Delphi程序员不应该再为图标而烦恼,快来使用SVG吧
虚拟的图片列表,链接到SVGIconImageColleciton,可以调整SVG图标的大小、不透明度、灰度等,官方不建议使用。我使用的是SVGIconImageList,它到今年2月份还在更新,star的人数也最多,当Fixed Color为clDefault时,表示不调整颜色,使用SVG原始的颜色。FixedColor设置为$00F5727C,表示按下时使用这个颜色作为图标颜色,上面这些问题,一般都可以由公司里的UI设计师来处理,但是不是每个公司都有UI的。转载 2023-11-10 12:02:42 · 574 阅读 · 0 评论 -
DELPHI 旧控件安装到 DELPHI11 新版环境的操作
加入识别新版号的代码,找340(10.4版)位置,下面加入 350 的记录,即可识别 DELPHI 11 的安装支持了。版权声明:本文为CSDN博主「郝人(好人)」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。原文链接:https://blog.csdn.net/net1999/article/details/121494581。转载 2023-04-22 09:17:52 · 354 阅读 · 0 评论 -
去掉Delphi程序启动时的welcome page(欢迎页)
去掉Delphi程序启动时的welcome page(欢迎页)转载 2022-10-22 09:44:03 · 487 阅读 · 0 评论 -
怎样去掉DELPHI 10.3.3 启动后的 security alert 提示窗体
1. Delphi 启动时不显示【欢迎】重开2. 修正: DELPHI10.3.3启动后就提示securityalert在桌面的快捷方式里添加一个参数-np要加-pDelphi-np "D:\ProgramFiles(x86)\Embarcadero\Studio\20.0\bin\bds.exe"-pDelphi-np...原创 2021-08-27 14:18:43 · 647 阅读 · 0 评论 -
RzDateTimeEdit按钮改为中文
对于显示事件的,首先设置好几个按钮的标题,如果不设是默认的英文。有空的话还可以设置Hint信息的内容。 然后设类型为etTime, 接下来设Format(默认不显示秒数!) CaptionTodayBtn = '今日' CaptionClearBtn = '清除' CaptionSet = '设定' EditType = etTime Format = 'hh:nn:ss'对于显示日期的, 按钮的标题同样要...转载 2021-03-16 10:41:03 · 225 阅读 · 0 评论 -
数据库表TUniTreeView树的快速生成
根据数据表的内容生成TUniTreeView树状结构,通常的做法就是从顶级开始,然后逐项递归查询遍历生成。这种方法在实现上容易做到,也很容易想到,但是效率比较低,因为数据库的检索(SQL语句需要解释执行,而且是对数据库文件进行操作)还是比较耗时的,尤其是树的层次较多,节点较多的情况。这里介绍的方法是以空间换取时间,只进行一次数据库检索,提取出全部数据,然后一次生成TUniTreeView树状结构。通过SQL语句,让返回的记录按照父节点ID、节点ID进行排序,这样保证每次当前要添加的节点记录的父节点都已经添加原创 2021-01-27 12:32:09 · 304 阅读 · 0 评论 -
delphi如何输出FastReport的pdf文档
with frxPDFExport1 dobeginDefaultPath:=‘D:’;FileName:=‘1.pdf’;ShowDialog:=False;ShowProgress:=False;end;if frxReport1.LoadFromFile(‘D:\1.fr3’) thenif frxReport1.PrepareReport() thenfrxReport1.Export(frxPDFExport1);转载 2020-09-17 15:42:23 · 1560 阅读 · 0 评论 -
idhttpserver的使用方法
idhttpserver的使用方法1)CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);事件该事件和IDTCPSERVER的EXECUTE()事件一样,都是“线程方法”,即事件是在子线程里面执行的,在其内书写代码要注意“线程保护”。...原创 2020-04-01 23:10:55 · 1397 阅读 · 0 评论 -
XE下有效减少DevExpress皮肤控件带来体积巨大的方法
一.DELPHI的主菜单: Project-> Modify Skin Options ,弹出Project Skin Options Editor 对话框,从列表中,只选择: UserSkin这一项, 点OK退出;二. 手动删除pas文件中包含的皮肤头文件(若已经自动生成的话)。————————————————...原创 2020-03-26 21:01:15 · 574 阅读 · 0 评论 -
Delphi XE8 程序瘦身.编译后EXE最低90KB
目前网络上XE8程序瘦身基本为XE5以前的方法,虽然该方法也必须援用之前方法.但需要说明一下,现在release比debug瘦身效果相差无几.我的XE8单独窗体EXE文件为11056KB.瘦身后exe文件最低可以达到 90KB.下面是方法介绍.第一步:关闭debug infomation.打开工程后,依次点击project--option--delphi compiler--link...原创 2020-03-24 23:51:49 · 447 阅读 · 0 评论 -
如何改变Delphi的快捷键 - DELPHI
如何改变Delphi的快捷键 - DELPHI如果说Delphi的IDE有什么优势的话,那么我想就是它本身就是由Delphi编写而成,因此我们能定制Delphi的IDE环境,通过Delphi的ToolsAPI的Com接口。 下面这个例子使用IOTAKeyboardBinding接口,实现对快捷键的重新绑定,相关的接口定义见ToolsAPI.pas。源码很简单,相信你一看就懂。该例子用来修...原创 2009-01-02 11:27:09 · 190 阅读 · 0 评论 -
使用stringgrid的例子 - DELPHI
使用stringgrid的例子 - DELPHI//***********以下保存为unit1.pasunit Unit1; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Grids; typeTForm1 = class...原创 2009-01-02 11:25:59 · 382 阅读 · 0 评论 -
文本数据导入数据库的方法 - DELPHI
文本数据导入数据库的方法 - DELPHI有一段人事档案资料archive.txt,内容如下: 小许男21工程师 小吴女23助理工程师 小蔡男22助理工程师 小牟女22工程师 要将它转入数据库archive.dbf中,archive.dbf结构如下: 姓名,性别,年龄,职称 怎么办呢?现在通过使用delphi编程,很好地解决了这个难题。Del...原创 2009-01-02 11:25:25 · 147 阅读 · 0 评论 -
Delphi中TApplication类的巧用 - DELPHI
Delphi中TApplication类的巧用 - DELPHI北京 魏文柏 ---- Delphi是一种面向对象的编程语言,由于它采用完全集成OOP的优点,因此 使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中,TApplic ation是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应 用程序的...原创 2009-01-02 11:24:22 · 76 阅读 · 0 评论 -
公历到农历的转换法 - DELPHI
公历到农历的转换法 - DELPHIunit CNYear;interfaceuses sysutils;type TCNDate = Cardinal;function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate;function GetGregDateFromCN(cnYear,cnMonth,cnDay:word;bLe...原创 2009-01-02 11:23:07 · 168 阅读 · 0 评论 -
Delphi制作带图标的弹出式选单 - DELPHI
Delphi制作带图标的弹出式选单 - DELPHIWindows界面的一大特色就是显示丰富多彩的图标,图标不仅美化了Windows的桌面,而且便于直观的操作,给用户带来了极大的方便。在设计程序界面时,Windows风格是很好的参考。 Delphi一般提供两种设置图标的方法,一个是在Project Options 中指定应用程序的图标,另一个是在Object Inspector 的p...原创 2009-01-02 11:22:25 · 107 阅读 · 0 评论 -
在DBGrid中实现Copy、Paste功能 - DELPHI
在DBGrid中实现Copy、Paste功能 - DELPHI工具条上的Cut、Copy和Paste加速按钮,对于使用Windows下编辑器的人来说,恐怕都是非常熟悉而且不可缺少的。Delphi中的有些控件,如:TDBEdit、TDBImage、TDBMemo、TEdit等,具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法,在这些控件上,...原创 2009-01-02 11:21:16 · 606 阅读 · 0 评论 -
取得某一dll所有输出函数名 - DELPHI
取得某一dll所有输出函数名 - DELPHI在uses里加上ImageHlp procedure ListDLLFunctions(DLLName: String; List: TStrings);typechararr = array [0..$FFFFFF] of Char;varH: THandle;I,fc: integer;st: string;...原创 2009-01-02 11:20:27 · 177 阅读 · 0 评论 -
星期、干支、二十八宿计算公式 - DELPHI
星期、干支、二十八宿计算公式 - DELPHI1. 求星期公式星期=[5 A(实际天数)] mod 7 2. 干支计算公式六十甲子干支序号,从1->59->0。六十甲子干支序号=[23 A(实际天数)] mod 60 3. 二十八宿计算公式二十八宿序号=[23 A(实际天数)] mod 28 4. 实际天数A的计算A=B(基本天数) C(闰...原创 2009-01-02 11:18:33 · 572 阅读 · 0 评论 -
Delphi在Vista下读取注册表
Delphi在Vista下读取注册表 function getcpu:PChar;stdcall; var reg:HKEY; size:PDWORD; info:PByte; ...原创 2008-12-13 15:34:39 · 72 阅读 · 0 评论 -
在vista上安装delphi7的解决方案
相信很多delphi爱好者因在vista不能正常使用delphi7而烦恼,甚至有些朋友说vista的出现就是delphi的未日了。我可以明确告诉大家,delphi7绝对可以在vista下正常使用。在vista上安装过d7的朋友都知道,当你正常安装d7后,启动d7时,屏幕会出现一个对话框。对话框的提示很明显,delphi不能rename一个文件,这说明了什么?会不会是用户的权限不够?没错,你猜对了。...原创 2008-12-13 15:34:09 · 77 阅读 · 0 评论 -
Delphi 程序对 Windows VISTA 的支持
以前一直在 WIN XP /2003 下编程,现在有客户使用 VISTA 系统,运行程序的时候报错。我的程序用到了注册表,还是对 HKLM 进行读写,VISTA 的安全机制肯定是不让了,别人的软件在遇到这个问题的时候都有一个 WINDOWS 的安全提示,询问是否以管理员身份运行,我的程序就什么提示都没有,直接报错。后来在网上查到了解决办法,让我的程序也支持 VISTA 了。操作步骤:1.建...原创 2008-12-13 15:32:48 · 93 阅读 · 0 评论 -
获取BIOS信息
procedure TForm1.BiosInfo; const Subkey: string = ''Hardware\description\system''; var hkSB: HKEY; rType: LongInt; ValueSize, OrigSize: Longint; ValueBuf: array[0..1000] of char; proce...原创 2008-09-02 17:53:14 · 210 阅读 · 0 评论 -
使用TCP/IP协议实现聊天程序
TCP/IP协议的传输即面向点到点的传输方式!1.创建应用程序。选择“NEW”菜单下的“Application”选项,创建一个普通的应用程序。2.创建所需控件。首先在控件栏的Win32页中选择ImageList控件和CoolBar控件,再从Win32栏选择ToolBar控件放置到CoolBar控件上。用鼠标右键单击“ImageList”控件,在弹出的菜单中选择“ImageList Edit...原创 2008-09-02 17:51:06 · 112 阅读 · 0 评论 -
用Delphi实现WinSocket高级应用
Socket通信在Windows 中是排队的形式由操作系统处理,而且接收方和发送方相互协同工作,否则就会造成数据丢失。因此,不能用类似于for 语句的循环来实现对多组数据的发送,更不能用循环语句来接收数据。比如,你可以用for 语句来实型若干文件的复制,这很普遍也很正常,但在 Socket编程以及大多数网络应用编程中都是行不通的,因为网络通信的基本方式是请求和应答。另外,和所有的通信编程一样,So...原创 2008-09-02 17:50:24 · 96 阅读 · 0 评论 -
如何取得系统支持的所有显示模式
procedure GetVideoModes(ModeList: TStringList);{ proc to retrieve a list of acceptable video modes of the current video card. }{ **********************************************Usage:procedure TForm...原创 2008-09-02 17:49:51 · 108 阅读 · 0 评论 -
Delphi制作带图标的弹出式选单
Windows界面的一大特色就是显示丰富多彩的图标,图标不仅美化了Windows的桌面,而且便于直观的操作,给用户带来了极大的方便。在设计程序界面时,Windows风格是很好的参考。 Delphi一般提供两种设置图标的方法,一个是在Project Options 中指定应用程序的图标,另一个是在Object Inspector 的properties页中提供Icon特性。如果想设计出像Wind...原创 2008-09-02 17:48:15 · 84 阅读 · 0 评论 -
Delphi通过机器码获得注册码的完整方案
通过机器码获得注册码的完整方案(转贴过来,留着看看)想加密自己的软件,看过一些软件的作法,思路如下:1、用户安装后,得出本机的机器码(硬盘的序列号,不想用网卡,因为很多机器没有网卡)。生成机器码代码2、用户将该机器码EMAIL给我,我用该机器码生成一个注册码,发送给用户。注册码生成代码3、用户在程序中输入该注册码,程序逆算该注册码,与机器码核对,查看是否相符。注册码逆算、核对代码,...原创 2008-09-02 17:47:41 · 1173 阅读 · 0 评论 -
如何用delphi读取网卡物理号
unit Main;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Nb, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Memo1:...原创 2008-09-02 17:47:16 · 150 阅读 · 0 评论 -
DevExpress安装
由于DevExpress出的组件很多,版本也不少,大家在安装了不兼容的版本后可能会出现错误,解决办法是把所有包重新编译.DevExpress有几个安装程序会把Delphi的原始路径清掉,如果是,先把Delphi的搜索路径还原,加上$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;等然后按如下顺序重新...原创 2008-08-24 13:43:21 · 289 阅读 · 0 评论 -
Register Delphi ,Delphi 不能运行
解决如下: 在此用户目录下有.Boland 目录下, 有C:\Documents and Settings\park.PARK\.borland 下的registry.slm 文件删除,或可以更该注册表,系统会自动重建此文件。 ...原创 2008-08-24 13:42:07 · 181 阅读 · 0 评论 -
EhLib 使用教程:EhLib 安装
在发布了最新的 EhLib 4.2.12 中文汉化版以后,在盒子的评论区有人问安装的问题,其实在以前发布 EhLib 3.4、3.6、4.1 汉化修改版时,EhLib 的安装也是评论区问得最多的问题。这并不是 EhLib 本身的问题,而是很多人不了解 Delphi 组件的安装方法所造成的。EhLib 的安装相对 DevExpress 系列、FastReport 的安装来说已经是非常简单的了。...原创 2008-05-06 12:08:31 · 537 阅读 · 0 评论 -
Delphi 中有 iif() 函数吗?
iif() 函数其实就是简化了的 if then ,最早该函数出现在 Visual Basic 中,现在很多语言,比如 C#、Java、PHP 等,都有 ? : 语言结构,使用方法类似如下:if (x > 0) result = ‘A’ else result = ‘B’;result = iif(x > 0, ‘A’, ‘B’);result = x > 0 ? ‘A’...原创 2008-05-06 12:07:13 · 648 阅读 · 0 评论 -
popmenu的例子
varr_id :string;beginif Qry.FieldByName('code1').AsString<>'' thenbegin if (Application.MessageBox('确认删除?', '提示', MB_YESNO+mb_iconinformation)=IDYES) then begin r_id:=Qry.field...原创 2008-04-29 12:49:43 · 157 阅读 · 0 评论 -
ADO的事务处理例子(Delphi)
ADOConnection1.BeginTrans; //开始事务trywith ADOCommand1 dobeginConnection:=ADOConnection1;commandtext:='update [country] set [population]=10000 where [name]=''Venezuela''';//正确的SQL语句Execute;Comm...原创 2008-04-29 12:50:31 · 219 阅读 · 0 评论