面向对象实例:如何通过COM接口得到实现该接口的对象实例
如何通过COM接口得到实现该接口对象例子问题由来我为个基于COM插件结构框架需要向插件传递个IResource接口IResource需要根据区别插件传递区别内容接口定义IResource = Interface(IDispatch) Function GetPath: String; safecall;End;实现类TResource =... [阅读全文]
tchart:Tchart分析报告
1 Tchart分析报告1.1 [概述] TChart是delphi里面个标准图形显示Control控件它可以静态设计(at design time)也可以动态生成1.2 [继承关系] TObject TPersistent TComponent TControl TCustomControl TWedg... [阅读全文]
字体安装程序:程序字体，我们自已选
字体我们自已选也许我们可能对系统提供我们字体不够知足不时添加些第 3方漂亮字体比如文鼎系列但这样话假如你设计label属性fontname选择了文鼎淹水体,那么运行到区别平台字体就会改回宋体所以把自己喜欢字体带在里不就好了其实这也很简单用到addfontresource加载字体和removefontresource卸载字体字体放在c盘... [阅读全文]
测试用例:项目迭代开发手记--文件分割存储用例的实现过程（2）
项目迭代开发手记--文件分割存储用例实现过程(2) 在第 2天早上开发中我们扩展了第天迭代开发用例我们考虑增加了压缩流功能减少数据存储负担迭代2:用例:对向数据库提交 2进制流进行压缩；那么从数据库提取时候要进行解压操作以获得原始图档数据通过查询资料我们找到DelphiZLib库支持对字节流压缩和解压缩功能这样我们只要使用该类TCom... [阅读全文]
delphi例子:(Delphi)如和下载网络文件的例子
FTP下载: http://www.7880.com/Info/Article-19938be0.html http://community.csdn.net/Expert/topic/3300/3300012.xml?temp=5.028933E-02FTP下载: TIdFTPControl控件 (Delphi7 I... [阅读全文]
dbtreeview:我的DBTreeView--TreeView直接连接数据表
unit Unit1;erfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ComCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Mask,... [阅读全文]
保存图片格式:将image的图片保存为JPG格式图片方法
将image组件图片保存为JPG格式图片思路方法procedure SaveAsJPG ;var jp: TJPEGImage; //Requires the \"jpeg\" unit added to \"uses\" clause.begin jp := TJPEGImage.Create; try with jp d... [阅读全文]
绑定句柄无效:查句柄知多少
基本上句柄是标志窗口我可以根据句柄又可引申其中更多如类名windowtitle等属性所以基于这点般开发工具会提供查句柄查类名等工具vs提供spy就是个很好例子现在教你们查句柄知多少其实也简单下面贴出源代码procedure Tform1.TimerTimer(Sender: TObject);var Pos: TPo; Handle:... [阅读全文]
字符串格式:根据时间日期格式从字符串中解析日期时间
根据时间日期格式从串中解析日期时间function StrToDtFmt(const S, Fmt: String; Dft: TDateTime): TDateTime;function StrToDtFmt(const S, Fmt: String; Dft: TDateTime): TDateTime;var Pts: .gif'... [阅读全文]
删除目录下所有文件:查找某目录下的所有文件
(1)查找指定扩展名文件procedure TForm1.Button1Click(Sender: TObject);var sr: TSearchRec;begin ListBox1.Items.Clear ; FindFirst(\'D:\\work\\*.*\', faAnyFile, sr) = 0 then begin... [阅读全文]
程序界面:分析DFM文件生成程序界面
近回答了个问题是有关根据DFM文件来生成界面花了数天研究对于般界面基本可以还原了不敢自留在这里将代码贴出来里面没有多少解释可能阅读不大方便在这里表示抱歉本人没有多少时间所以就请各位有兴趣地自己分析代码了其主要思路是用递归方式来分析DFM文件再用流化技术将类生成出来以下是代码:////////////////////////////////... [阅读全文]
SaveComponentByFile
unit savecomponent1;erfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, DBTables;type TForm1 = (TForm) Button1: TButt... [阅读全文]
delphi算法:中国农历算法(delphi)
// 节日算法 请参见 农历和西历对照、万年历unit CNYear;erfaceuses sysutils;type TCNDate = Cardinal;function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate; function GetGregDateFromCN(cnYear,cn... [阅读全文]
delphi组件:Delphi编写组件封装asp代码的基本步骤(Asp组件系列)
如果你想脱离asp爱好者水平那么你就应该学会为asp编写组件我在google上搜索了下Delphi编写asp组件文章共就几篇所以今天写了这篇Delphi编写asp组件基础文章希望对新手有点帮助如果你要学习VB编写asp组件话建议看看龙卷风大哥文章(http://blog.csdn.net/online/category/9939.as... [阅读全文]
mssql:在MSSQL版参与问题有所感触
题目了然人气比较旺问答效率自然高参和了3个问题很快揭了2个这个也可能和工具自身特点有关系....---------------------------------------------可是delphi呢？？borland把不争气孩子们宠坏了:有说干就干资本:托几个窗口、Control控件拷贝些代码加上些SQL个demo就出来了有说改就改... [阅读全文]
combobox默认值:ComboBox的DataValue值
procedure TForm1.Button1Click(Sender: TObject); var s : ; begin combobox1.Clear; s := \'01\'; combobox1.Items.AddObject(\'北京\',TObject(s)); s := \'02\'; combobox1.Items.A... [阅读全文]
软件加密技术:软件注册加密技术
摘要:... [阅读全文]
oracle常用函数:SQLServer和Oracle的常用函数对比
---------数学1.绝对值S:select abs(-1) valueO:select abs(-1) value from dual2.取整(大)S:select ceiling(-1.001) value O:select ceil(-1.001) value from dual3.取整(小)S:select floor(-1.... [阅读全文]
对“网页内容查询控制”主题所得（下载）：
^知道了可以用nmhttpControl控件下载网页可是D7找不到这个Control控件了^找到了idhttpControl控件似乎可以实现相同功能可是线上有关其讨论太少^摘录点代码:直接采用Delphi自带Control控件INDY组件为例.新建个工程,放上个TIdHTTPControl控件,个TIdAntiFreezeControl控... [阅读全文]
如何设置鼠标双击:[Tips]设置双击时间
=sourcecode// Set example: procedure TForm1.Button1Click(Sender: TObject); begin // will re after system start SetDoubleClickTime(1500); end; // Get example: procedur... [阅读全文]
材料结构与性能:性能vs结构
前两天简单实现了个Delphi下MVC模式没想到真就遇到问题了想想就在不久前和人争论用不用MVC时候还暗自认为遇到麻烦是功力不够表现呵呵汗啊报应来得真快 其实说起来都不是什么大问题先是重复触发更新问题TA有3个属性每个改动都会ChangeTB里包含2个属性每个改动都会它更新内部个TA3个属性结果我在外面次改了TB两个... [阅读全文]
动态加载:动态加载和动态注册类技术的深入探索
Delphi包是Delphi IDE核心技术没有包也就没有了Delphi可视化编程包也可以用在我们开发项目中其好处是可以代码共享减小工程尺寸单纯通过替换包文件就能实现工程升级和补丁但是我们要加载包就要知道包中已经存在类有关如何动态加载包资料比比皆是我就不想就此问题讨论了但是DelphiIDE很是特殊它无需事先知道你包有哪些类就能注册组建创... [阅读全文]
所见即所得:所见及所得的类分析跟踪器
{以下代码可以分析Windows下鼠标处对象类名句柄及其递归父类等信息是很久以前火鸟工具软件Software视窗超人中段代码其触发使用了TimerControl控件其实更好实现是用Windows Mouse Hook来做触发就当抛砖引玉吧；此代码还实现了不依赖于Windows2000以上要求半透明窗口(在Win98/WinMe下也可半透明... [阅读全文]
hook详解:用hook实现dll注入详解
需要个用来注入dll(inject.dll)及个(caller.exe)流程: caller.exeprocedure TestHook;var pwnd,hChild, hwndInject :hwnd; msg:tmsg;begin //通过窗口标题用FindWindow找到要注入主窗口句柄pwnd pwnd := fi... [阅读全文]
tbutton:[TButton]运行时动态创建和删除按钮
新开个project然后拖两个Button放在窗体上代码如下:unit Unit1;erfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = (TForm)... [阅读全文]
delphi异常:Delphi异常处理的基本原则和方法
、异常来源... [阅读全文]
tstringgrid:TStringGrid多选的复制与拷贝
usesClipbrd;functionStringGridSelectText(mStringGrid:TStringGrid):;varI,J:Integer;S:;beginResult:=\'\';notAssigned(mStringGrid)thenExit;forJ:=mStringGrid.Selection.Toptom... [阅读全文]
c语言的函数库:网络函数库
{= 功 能: 网络库 时 间: 2002/10/02 版 本: 1.0=}unit Net;erface uses SysUtils ,Windows ,dialogs ,winsock ,Classes ,ComObj ,WinInet; //得到本机局域网Ip地址 Function GetLocalIp(var LocalIp:):... [阅读全文]
鼠标翻页:判断MonthCalander中鼠标点中了日期还是翻页按钮!
uses CommCtrl;var OldWindowProc: TWndMethod;procedure TForm1.MyWindowProc(var Msg: TMessage);begin if Msg.Msg = CN_NOTIFY then begin case TWMNotify(msg).NMHdr.code of MCN_GETDAYSTATE: Memo1.Line... [阅读全文]
