原文参见： http://blog.csdn.net/ingener/archive/2007/12/22/1958535.aspx
关于Delphi中DLL封装对象的几种方法整理及体会
Delphi用DLL来封装对象的技术主要有三种:
用接口实现
用纯虚和抽象类方法实现
用类引用实现
前两种，都是在DLL中生成类实例；第3种通过在调用方生成实例。三种方法的共同局限如下：
调用方只能调用封装类中的virtual方法；
调用方和提供方都必须提供类的描述，接口实现中需要提供接口描述（COM方法例外）；
不能创建DLL包含对象的派生类（接口派生除外）。
首先，用接口实现当然包括COM实现，不过由于COM是一种实现接口技术的独立门类，所以在下面说的接口实现中不包括这方面的东西。其次用纯虚和抽象类方法实现，在《Delphi 6 Developer‘s Guide》中提及的inc文件作为公用的头文件，和刘艺在《Delphi面向对象编程思想》中提及的方法本质上是一样的。无非都是为了在调用方加入abstract关键字，而无需方法实现，从而使得编译通过。inc文件的方法是利用宏指令来达到统一处理，不用inc方法是在两处都需要进行描述。
下面用一个例子来展示所以上面提到的集中方法。
调用方主要文件列表为：
UnitMain.pas 调用DLL� ......
在Delphi中Ado系列控件使用xxxxx.Parameters.Refresh,可以获得存储过程的Return值
以TADOStoredProc为例
ADOStoredProc1.Connection := 'xxxx';
ADOStoredProc1.ProcedureName := 'XXXX';
ADOStoredProc1.Parameters.Refresh; //刷新存储过程的参数列表
//参数赋值
ADOStoredProc1.ExecProc;
ADOStoredProc1.Parameters[0].Value; //就是Return的返回值 ......
把以前做过的项目总结一下！参加工作以来一共用三种不同语言实现了获得文件夹及其子文件信息。为了方便以后使用总结一下
air实现：
private function getfile(filelist:File):Array{
var list:Array = filelist.getDirectoryListing();
var count:uint=list.length;
for (var i:uint = 0; i < count; i++) {
if(list[i].isDirectory) {
var listtemp:Array = getfile(list[i]);
list = list.concat(listtemp);
}else{
continue;
}
}
return list;
}
把最后的文件信息放到array里面
delphi实现：
procedure Tallmark.GetDirectoryFiles(const ADirectory: string;
fileList: TStrings);
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
if fileList <> nil then
begin
Path := Ex ......
把以前做过的项目总结一下！参加工作以来一共用三种不同语言实现了获得文件夹及其子文件信息。为了方便以后使用总结一下
air实现：
private function getfile(filelist:File):Array{
var list:Array = filelist.getDirectoryListing();
var count:uint=list.length;
for (var i:uint = 0; i < count; i++) {
if(list[i].isDirectory) {
var listtemp:Array = getfile(list[i]);
list = list.concat(listtemp);
}else{
continue;
}
}
return list;
}
把最后的文件信息放到array里面
delphi实现：
procedure Tallmark.GetDirectoryFiles(const ADirectory: string;
fileList: TStrings);
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
if fileList <> nil then
begin
Path := Ex ......
from : http://zhyhero.googlepages.com/heartset
file:0 前言
本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。
file:1 准备工作part1
delphi版本:delphi2007 for win32 update3。任意安装版本即可。
sqlite dll版本:3.5.3。目前最新版本的sqlite引擎。[ http://www.sqlite.org/
]
sqlite for delphi:simple sqlite 3.0 for delphi。目前的最新版本的发布日期为27 August 2007，支持sqlite dll版本3.4.2。经简单测试，3.5.3也是可以的。自带demo。[ http://www.itwriting.com/sqlitesimple.php
]
file:2 准备工作part2
新建一个窗体应用程序工程，并设定保存的文件夹。将simple sqlite 3.0 for delphi 中的
sqlite3.pas，sqlite3table.pas，sqlite3udf.pas拷贝至工程所在的文件夹。并在工程中添加这三个文件。拷贝
sqlite.dll到 ......
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！
使用Hashtable,查找和删除复杂度都是常数级别的!
type
PPHashItem = ^PHashItem;
PHashItem = ^THashItem;
THashItem = record
Next: PHashItem;
Key: String;
Value: Variant;
end;
THashTable = class
private
Buckets: array of PHashItem;
protected
function Find(const Key: String): PPHashItem;
function HashOf(const Key: String): Cardinal; virtual;
public
constructor Create(Size: Cardinal = 256);
destructor Destroy; override;
procedure Put(const Key: String; Value: Variant);
procedure Clear;
procedure Remove(const Key: String);
function Modify(const Key: String; Value: Variant): Boolean;
function Get(const Key: String): Variant;
function ContainKey(const Key: String):boolean;
end;
proced ......
Delphi语言，无论是从开发速度、还是运行速度、还是编译速度、还是编译之后的执行文件体积，都是数一数二的。因此被作为共享软件、开发产品、制作“绿色软件”的首选。但是，由于诸多原因，Delphi中，有一些控件，存在一些bug。不论广大技术人员如何反应，Delphi官方就是“视而不见”。有问题，人家虽然不给解决，但是，总不能不用这种语言吧，毕竟优点还是大于缺点的。还是“自己动手，丰衣足食”吧。
最近笔者在开发泛东协同管理系统客户端的时候，使用了Delphi中的WebBrowser控件，相信这个控件，是使用最广泛的控件之一，几乎所有与Internet相关的产品，都离不开这个控件。但是这Delphi中的WebBrowser控件，在使用过程中，发现三个Bug。
1、如果打开的页面中，有通过javascript关闭页面的，只会把控件关闭，包含控件的窗口仍然存在，并且手工关闭窗口时，出现问题；
2、打开的页面，通过鼠标选定的内容，不能复制，无论是通过右键菜单复制，还是通过Ctrl+C快捷键复制，都不可以；
3、打开有WebBrowser控件的窗口，关闭窗口之后，内存得不到释放（此Bug在其他语言中也存在）。
以上三个问题，是必须解决的。通 ......
最新文章 : delphi