Delphi
文章平均质量分 51
lqen
这个作者很懒,什么都没留下…
展开
-
delphi android打开外部文件,报错android.os.FileUriExposedException解决方法
后记:如果你的项目是用旧版delphi建的,如10.2,那么,需要在10.3.1下重建这个项目,才能确保Secure File Sharing选择项生效,生成正确的配置文件,不然,不会生成配置文件,有朋友遇到过。原来,Android 7及以后的版本,为了加强OS的安全性,不允许一个app访问其他app的文件,为了解决这个问题,将Secure File Sharing设置为True。这一项是设置什么呢?去打开外部App(比如:打开系统相机拍照),那么会抛出。的策略,带来的影响就是你的App对外无法暴露。原创 2023-12-07 09:38:05 · 598 阅读 · 0 评论 -
DES加密解密Delphi、C#互通
C#加密解密代码Delphi加密解密代码 untDes单元 untBase64单元原创 2022-07-12 15:07:31 · 1481 阅读 · 0 评论 -
Delphi fmx中在Form1里边嵌套一个Form2(fmx获取控件句柄)
把控件TPanel属性ControlType设置为Platform,直接调用unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TreeView, FMX.ListBox, FMX...原创 2021-12-20 17:25:16 · 878 阅读 · 0 评论 -
delphi 11(10.5) 来了
Embarcadero RAD Studio 11(实际上delphi10.5)新增功能一、IDE1、对IDE的高DPI支持,涵盖了最新的4k+显示器,整个字体和图标更干净、更清晰。2、多显示器和多窗口改进:在多个窗口中同时设计和编辑同一个表单的代码3、完全重建的欢迎页,具有原生的外观和感觉,以及适合IDE的UI,并可自定义布局和内容4、C++代码格式化器。使用clang-format自动布局你的C++代码5、改进了对VCL和IDE的远程桌面支持6、FireMonkey设计时指.原创 2021-10-21 10:08:25 · 6624 阅读 · 0 评论 -
delphi开发网页神器,安装unigui1.9
对于delphier来说,用delphi开发web程序,一直是一个很头痛的问题,在ui界面上要想漂亮,要学习css和美工知识,很多人都不得不放弃了。unigui是一个很好的框架,和delphier原生框架一样,拖放控件就能实现web开发支持的Delphi版本:Turbo Delphi Pro,Delphi 2006,Delphi 2007,Delphi 2009,Delphi 2010,Delphi XE,Delphi XE2,XE3,XE4,X5,XE6和XE7-XE8-XE10-10.1-10.2-1原创 2020-12-21 09:21:32 · 2803 阅读 · 0 评论 -
delphi 10.4来了
RAD Studio 10.4新功能一、Delphi的新功能1、Delphi Code Insight的重大改进RAD Studio 10.4是多年来对Delphi代码工具的最大,最大的改进,它使用语言服务器协议(LSP)的Delphi实现提供了Code Insight。LSP是一种在单独的过程中计算代码完成,导航或类似结果的技术。这意味着IDE不会在完成时阻塞,并且Code Insight将提供准确的结果。在处理具有数百万行代码的大型项目时,10.4可大大提高开发人员的工作效率。2、Del原创 2020-06-09 20:09:19 · 16098 阅读 · 9 评论 -
delphi 使用SHGetFileInfo函数获取任何文件大图标(修复长时间运行报错问题)
function GetFileICO(AFile: string; AWidth, AHeight: Integer): TBitmap; function GetFileIconEX(AFile: string; ASHIL_FLAG: Cardinal): HICON; function _X: Boolean; {判断是否符合系统版本} begin ...原创 2020-05-02 21:22:44 · 1001 阅读 · 0 评论 -
Delphi 窗体无边框全屏不遮挡任务栏-最完美的解决方法
{声明 拦截最大化,最小化命令,从新设置屏幕高度}procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo; {截获系统消息,然后改写窗体最大化高度。Screen.WorkAreaHeight就是屏幕高度减去任务栏的高度}procedure TForm1转载 2015-11-30 11:23:34 · 6489 阅读 · 2 评论 -
Delphi7 压缩图片(BMP、JPG、PNG)
/// /// 压缩图片(BMP、JPG、PNG)/// /// 文件路径/// 需要压缩后的宽度/// 需要压缩后的高度/// 压缩质量/// 是否压缩成功function CompressImageFile(FileName: string; Width, Height: integer; PressQuality:Integer= 90): Boolean; func原创 2017-12-06 16:42:28 · 5064 阅读 · 1 评论 -
DELPHI XE 10.2.1 FMX平台 在图片上写字方法
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, FMX.Contr原创 2017-12-06 16:46:32 · 1920 阅读 · 0 评论 -
Delphi CRC16校验码
unit untCRC16;interfaceuses Windows;/// <summary>/// CRC校验码(从厂家提供C语言翻译而来)/// </summary>/// <param name="crc_ini">$00</param>/// <param name="buf">&l原创 2018-09-14 15:30:22 · 3641 阅读 · 0 评论 -
解决Delphi开发DLL中窗体按钮显示状态不刷新问题.
由于DLL中没有消息循环,需要手动接收消息处理,具体操作如下:1.在窗体上放置一个Timer1组件,2.间隔时间为13.在Timer1Timer事件中写上一行代码:Application.HandleMessage; 付上我的窗体完整代码:unit untBaseForm;interfaceuses Windows, Messages, SysUti原创 2015-11-04 13:42:08 · 3411 阅读 · 0 评论 -
delphi线程中操作access数据库经常报内存地址错误解决方法
最近使用delphi开发软件中使用6个线程同时操作access数据库,反应经常无规律报错问题,分析可能是在多线程中操作ACCESS数据库存在问题.通过写了一个多线程数据库测试程序,经过测试发现在多线程操作数据库,需要注意以下3点: 1.操作ADO前必须使用 CoInitialize(nil) 和操作完成后使用CoUninitialize 2.必须使用TADOQuery.原创 2015-09-30 14:41:21 · 1804 阅读 · 0 评论 -
解决程序提示“应用程序发生异常 未知的软件异常(0x0eedfade),位置为 0x7c812fd3”
微软于2013/11/5发布了Fix it 51004补丁,用于修复Win XP和Win 2003的office漏洞.参考 https://support.microsoft.com/kb/2896666 但是普遍用户反映在更新此补丁后,出现应用程序发生异常提示:"应用程序发生异常 未知的软件异常(0x0eedfade),位置为 0x7c812fd3." 出现如上提示请更新原创 2015-09-30 14:50:31 · 36751 阅读 · 1 评论 -
调试你的包(DebugYourPackages)
先给你一个惊喜:Borland刚刚发表的DELPHI6已经可以直接调试包了! 再给你一个提醒:千万不要以为DELPHI5就不可以调试包! --- 以前,我曾读到一本讲开发DELPHI元件的好书,写的很精彩,让我受益颇多。不过其中谈到:由于没有办法在源程序基础上调试包中的元件,所以开发元件一定要特别认真仔细的写好元件的代码。的确,用DELPHI5单独打开一个*.DPK文件时转载 2014-04-21 17:46:20 · 1264 阅读 · 0 评论 -
布delphi程序(build with runtime package)要带哪些文件?
Delphi提供两种方式来编译你的程序:使用包或者是单独的exe使用包,你可以使用如下方法设置:项目选项(菜单project->options->Packages页),在Runtimes packages中勾选Build with runtime packages。这样你就能够使用包来编译了。但不是这里所有的包都是你需要,这里包含了Delphi中安装的所有的包。如果环境改变了,可能转载 2014-04-21 17:40:58 · 1007 阅读 · 0 评论 -
delphi带包编译详解(build with runtime package)
build with runtime package勾上后,为动态编译,此时bpl包里的内容不会被编译进exe,发布时需要带上所用到的bpl。优点是exe小,方便分模块升级,缺点是总文件体积大。勾上后,下面的编辑框里会自动填上所有当前环境已安装的包,这些包,只要被此次exe用到,就不会编译进exe。这里可以根据需要,只带一部分包,将另一部分包的内容编译进exe。比如,只填自己写的为此次exe服转载 2014-04-21 17:30:28 · 3730 阅读 · 0 评论 -
重新编译 vcl70.bpl
这是阿亮第一次写文章,有不正确的地方,欢迎讨论指正。 首先要更正一个错误的结论:只要程序用到Borland的包,就必须要带上VCLxx.bpl。 非也! 想必用Dll来实现功能模块分割的伙计们都有痛苦经历:无法导出类;无法共享主进程的全局变量;调用Dll时可能要传递一大堆参数;令人心烦的PChar;等等等等...Borland通过包Borland Package Lib转载 2014-04-22 13:58:06 · 2875 阅读 · 0 评论 -
delphi打勾Build with runtime packages后找到rtl.bpl文件解决方法
最近研究delphi的runtime package,对bpl包封装进行了研究。包的程序发布vcl.bpl和rtl.bpl文件要带上,一直困扰我很久,今天终于明白了,原来vcl.bpl和rtl.bpl异常是调用的包中抛出的,包中引用了vcl.bpl和rtl.bpl文件的dcp文件,运行时需要动态加载了bpl。解决方案: 1.在程序使用包少时,可将vcl.bpl和rtl.bpl包中引用增加到原创 2014-04-22 17:23:27 · 2467 阅读 · 0 评论 -
Delphi通过SendMessage函数发消息和传值实例
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; pr原创 2014-10-23 14:10:45 · 11037 阅读 · 1 评论 -
Delphi中@,^,#,$特殊符号意义
概述: ^: 指针 @: 取址 #: 十进制符 $: 十六进制符@:取址运算符;var int:integer; p:^integer;begin new(P); int:=24; p:=@int; dispose(P);end;^:指针的引用解析操作符;var pint:^integer转载 2014-10-23 14:09:10 · 3092 阅读 · 0 评论 -
写了一个DELPHI操作USB摄像头类分享给大家
最近在使用Usb摄像头做了个项目,其中写了一个操作usb摄像头类分享给大家{*******************************************************}{ }{ 操作USB摄像头类原创 2015-05-18 15:55:19 · 10260 阅读 · 3 评论 -
Halcon导出的cpp, VC++环境配置
方式一: 1.工程 -》设置(Alt+F7) -》 C/C++ -》分类:预处理器 -》附加包含路径 增加:$(HALCONROOT)/include,$(HALCONROOT)/include/cpp2.工程 -》设置(Alt+F7) -》 连接 -》分类:输入 -》附加库路径 增加:$(HALCONROOT)/lib/$(HALCONARCH)3.工程 -》设置(原创 2015-06-04 09:29:39 · 3734 阅读 · 0 评论 -
发现个delphi调用vc写的Dll中包含pchar参数报错奇怪现象
发现个delphi调用vc写的Dll中包含pchar参数奇怪现象procedure中的第一行语句不能直接调用DLL的函数,否则会运行错,在之前任意加上条语句就不报错了奇怪!vc的DLL源码地址 http://blog.csdn.net/lqena/article/details/46357165Delphi源码如下:unit Unit1;interfaceuse原创 2015-06-04 15:10:51 · 2924 阅读 · 0 评论 -
阿庆SQL智能查询分析器,使用delphi开发的一个数据库查询分析管理工具.分享给大家
为方便自己工作,使用delphi开发的一个数据库查询分析管理工具.分享给大家,具体以下特点: 1.由于使用ADO连接,理论支持SQL Server、Access、MySQL、Oracle等所有数据库 2.支持SQL关键词自动提示 3.支持表名自动提示 4.支持表字段自动提示 5.支持SQ关键词、表名、表字段不同颜色显示 6.支持SQL语句注释(包括ACCESS)原创 2015-05-27 13:02:31 · 1480 阅读 · 2 评论 -
delphi图片增加文字水印
function JpgToBmp(FilePath: string): string;var MyJPEG: TJPEGImage; MyBMP: TBitmap; s: string;begin Result := ''; s := copy(FilePath, 1, Length(FilePath) - 3) + 'bmp';原创 2014-04-03 10:36:00 · 4780 阅读 · 0 评论