Delphi学习天空
关注
分享
扫一扫
xtfnpgy
旺宝改价精灵+上货精灵原创作者！
展开
-
Delphi7 提示can‘t load package *.bpl 错误问题的解决方法
如果确认有的话，并且提示的文件也存在的话，win10电脑刚装完delphi就去装控件，就有可能环境变量不生效，需要重启下电脑，再去安装控件就可以了。终极解决方法：将bpl文件复制到C:\Windows\System32 ，这样就肯定可以找到！原创 2022-09-18 17:58:05 · 2472 阅读 · 0 评论 -
Delphi继承窗体TForm
1.手工修改窗体继承时，怎样让其父类的所有控件显示（在设计时）？File -> New -> Form，新建一个form，在form的单元文件中修改TForm1 = class(TForm) 为；TForm1 = class(TFatherForm) //TFatherForm为被继承的窗体不要忘记 uses TFatherForm的单元文件，2.再在For...转载 2019-11-12 11:54:44 · 1493 阅读 · 0 评论 -
Delphi根据方法名调用方法
type TForm1 = class(TForm) public published procedure DoJsCall(str:string); //必须声明方法为published function DoJsCall2(str:strin原创 2017-09-14 11:12:59 · 3489 阅读 · 0 评论 -
Delphi TstringList Stringlist的特殊用法
procedure TForm1.btn1Click(Sender : TObject);var m : Integer; s : string; strlst : TStringList;begin strlst := TStringList.Create; strlst.Add('张三=80'原创 2017-09-01 10:19:56 · 4364 阅读 · 0 评论 -
10进制与16进制之间的转换 delphi
delphi中有直接把10进制转换成16进制的函数： function IntToHex(Value: Integer; Digits: Integer): string; overload; function IntToHex(Value: Int64; Digits: Integer): string; overload;使用方法为：pr...转载 2018-02-09 14:06:43 · 541 阅读 · 1 评论 -
delphi HTML转义字符编码转换
网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。本文是利用IE完成转换，即利用IHTMLDocument2接口。Denon天Denon龙Denon 转换结果：uses MSHTML;function HtmlToText(HtmlText: WideString): WideString;var V: O...2018-02-09 15:26:21 · 1948 阅读 · 0 评论 -
Delphi疑难问题整理！！！
一.Dll调用时报错，例如： TGetResPrice = function(var AName: string; AFileName: string): TResourceRecArray; stdcall;var LFunction: TGetResPrice;调用： @LFunction := GetProcAddress(LDllHandle, ResPriceLoad_Fu...原创 2018-03-05 14:57:16 · 770 阅读 · 0 评论 -
delphi打开项目提示unable to find resource on dll projects
用记事本打开*.dof文件,把这行[Resource DLL Projects]及它的所属的内容删除就行了.原创 2018-04-02 14:42:30 · 533 阅读 · 0 评论 -
delphi中Application.MessageBox函数用法详解
delphi中Application.MessageBox函数用法详解Application.MessageBox是TApplication的成员函数，声明如下：functionTApplication.MessageBox(constText,Caption:PChar;Flags:Longint):Integer;引数：1.Text：要显示的信息2.Caption：信息窗口的标题文字3.Fla...转载 2018-05-07 13:51:23 · 2273 阅读 · 0 评论 -
Delphi 解决Utf8ToAnsi和Utf8DeCode转换编码为空的问题
//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷 function DecodeUtf8Str(const S: UTF8String): WideString; var lenSrc, lenDst : Integer; begin lenSrc := Length(S); if(lenSrc=0)then Exit; lenDst := MultiBy...转载 2018-06-07 14:11:43 · 9330 阅读 · 0 评论 -
Delphi 常用API 函数（好多都没见过）
AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows 排列一个父窗口的最小化子窗口AttachThreadInput 连接线程输入函数BeginDeferWindowPos 启动构建一系列新窗口位置的过程BringWindowToTop 将指定的窗口带至原创 2016-10-31 19:53:00 · 1318 阅读 · 0 评论 -
NT平台ADSL拨号连接密码恢复原理
NT平台拨号连接密码恢复原理创建时间：2004-11-08 更新时间：2004-11-12文章属性：原创文章提交：eyas (eyas_at_xfocus.org)NT平台拨号连接密码恢复原理Author : eyasEmail : eyas at xfocus.orgDate : 2004-11-08 前段时间ADSL密码忘记了，但转载 2016-08-01 22:28:51 · 820 阅读 · 0 评论 -
SqlServer存储过程输出参数
if exists(select 1 from sysobjects where name='P_PreOrderInfo')drop Procedure P_PreOrderInfogoCreate Procedure P_PreOrderInfo @RefSheetID varchar(64), @OutShopID varchar(64), @Custo原创 2016-05-18 17:53:43 · 1518 阅读 · 0 评论 -
Delphi获取其他exe程序版本号
delphi获取Exe文件版本信息的函数Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:St转载 2015-11-06 17:35:58 · 2112 阅读 · 0 评论 -
delphi EncdDecd.pas单元中Encoding方法出现#$D#$A的解决方法
例如：s:= 'http://detail.tmall.com/item.htm?id=45545826531&abbucket=_AB-M129_B17&acm=03130.1003.1.161728&aldid=4HatiDee&abtest=_AB-LR129-PV129_1393&scm=1003.1.03130.13_45545826531_161728&pos=6#detail';原创 2015-06-26 15:21:47 · 5892 阅读 · 0 评论 -
Delphi2010/XE2下隐藏程序系统任务栏的图标
Delphi7代码：SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);以上的代码在Delphi7中可以用，但是在Delphi2010后就开始不行了，搜索了一下，得到办法： 1 修改工程文件添加一句：Application.MainFormOnTaskbar := False;原创 2015-07-29 17:07:00 · 1133 阅读 · 0 评论 -
DELPHI中自定义消息的发送和接收
DELPHI中的消息处理机制Delphi是Borland公司提供的一种全新的WINDOWS编程开发工具。由于它采用了具有弹性的和可重用的面向对象Pascal(object-orientedpascal)语言，并有强大的数据库引擎(BDE)，快速的代码编译器，同时又提供了众多出色的构件。受到广大编程人员的青睐。在众多的编程语言(如VB，PowerBuilder，Powerpoint等)中脱颖而出转载 2015-07-31 15:27:55 · 8001 阅读 · 0 评论 -
Delphi2010如何获取程序内部自身版本号？
用原来的GetFileVersionInfo只能获取Delpi7的程序版本号，用在Delphi2010中就不管用了//------ 获取文件版本号function F_GetFileVersion(FN: string): string;var Temp, InfoSize: Cardinal; FileData: Pointer; FileInfo: PVSFixe原创 2015-07-02 09:38:56 · 2432 阅读 · 0 评论 -
批处理taskkill运行结束不掉程序以及停留问题
我原来就一句代码TASKKILL /F /IM QQ.exe保存为taskkill.bat，结果运行起来一直显示，但是没有结束掉进程，百度搜索才知道taskkill为系统关键字，不能命名为taskkill.bak，换个名字killQQ.bat就可以；执行以后，Dos窗口直接就消失了，想让执行完批处理之后保留窗体怎么办呢？在后面添加一句：cmd /k echo 就可以了完整命原创 2015-07-09 10:22:33 · 16454 阅读 · 1 评论 -
Delphi XE5中的新增内容
Delphi XE5中的新增内容Delphi XE5是所有Delphi开发人员的必须备升级，并且是来自Embarcadero的获奖的、多设备应用开发解决方案的最新版本。使用Delphi XE5的新特性，以交付应用Android、 iOS、Windows 和OS X。以PC机、平板电脑和智能手机为目标，更轻松地与更多数据连接 - 等等！Delphi XE5中的新特性针对设转载 2015-11-23 16:21:15 · 1537 阅读 · 0 评论 -
Delphi十进制和十六进制互转
1.十进制转十六进制Delphi 自带函数 IntToHex功能说明：该函数用于将“十进制”转换成“十六进制”。该函数有二个参数。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。 参考实例: Edit1.Text := IntToHex('100', 2); 执行结果，Edit1.Text等于64。2.十六转载 2015-11-26 14:47:52 · 3138 阅读 · 0 评论 -
Delphi获取本机的MAC地址
Delphi获取本机的MAC地址：uses NB30;function GetAdaPterInfo(lana: Char): string;var Adapter: TAdapterStatus; NCB: TNCB;begin FillChar(NCB,Sizeof(NCB),0); NCB.ncb_command := Char(转载 2015-12-03 16:54:50 · 4644 阅读 · 0 评论 -
delphi版本对应
delphi 7 delphi 8delphi 2005 ----- 9delphi 2006 ----- 10 delphi 2007 ----- 11delphi 2009 ----- 12 delphi 2010 ----- 14delphi xe --------15delphi xe2 --------16转载 2015-12-25 09:40:15 · 886 阅读 · 0 评论 -
Delphi 常用语句
1.屏蔽Float浮点数出错：Set8087CW(Longword($133f));原创 2016-03-16 17:11:17 · 1140 阅读 · 0 评论 -
delphi2010 域名转换IP
useswinsock;function GetHostIp_wwwdelphitopcom(HostName: string): string;type tAddr = array[0..100] of PInAddr; pAddr = ^tAddr;var I: Integer; WSA: TWSAData; PHE: PHostEnt; P转载 2015-11-10 16:19:29 · 919 阅读 · 0 评论