请看此文章:
如何在C++Builder中使用Delphi 控 件
上 海 铁 道 大 学
施 江 杰
我 的 使C++Builder 使 用Delphi VCL 类 库 的 方 法 基 于Windows 中 较 通 用 的DLL方 式。 在 实 际 应 用 中 找 到 了 将VCL 控 件 转 化 为DLL 库， 在C++Builder 动 态 调 用DLL。
此 法 适 用 于 非 可 视VCL 控 件。
假令在Delphi中有一Sample 控 件，有 属 性Actived、Pro1、Pro2，欲将这个控件转到C++Builder 中 使 用。
一：Delphi 中DLL 的 制 作
在Delphi中新建一DLL项目SampleDLL，在此项目中Create一 个新的
类TTtempcomp基类为TComponent即也为一个控件，在其中加入一
个constructor Create1，但不作任何动作；
在 DLL 中 加 入 要 导 出 的 属 性 的Function
（Actived、Pro1、Pro2）&Create、Destroy 的 框 架，Exports 中 加 入 导 出的Function、Procdure 名 称；
在DLL 的 主 过 程 中 对TTempcomp 的 实 例temp1 进 行Create1，另外保 存出口和设置ExitProc；
在OpenSample 的 函 数 中 加 入 HwCtrl:= Sample1.Create(temp1) 对Sample进行实例化，对CloseSample 和 其 它 属 性 加 入 相 应 的 语 句；
二：C++Builder 中DLL 的 使 用
将Delphi 中 生 成 的DLL 用implib 生 成LIB 文 件 加 入 C++Builder 的 工 程 文 件；
在 头 文 件 中 加 入
extern "C" __declspec(dllimport) bool _stdcall OpenSample(void)
extern "C" __declspec(dllimport) void _stdcall
CloseSample(void)
extern "C" __declspec(dllimport) bool _stdcall Actived (void)
extern "C" __declspec(dllimport) int _stdcall Pro1 (void)
extern "C" __declspec(dllimport) int _stdcall Pro2 (void)
在OpenSample 后 你 就 可 以 使 用Delphi 中 的 属 性Actived 、Pro1、Pro2
三： 参 考DLL Source 如 下：
library SampleDLL；
uses
SysUtils， Classes， Sample；
TYPE
TTempcomp = class(TComponent)
private
public
constructor Create1；
published
end；
var
Sample1 :Sample；
SaveExit
ointer；
temp1 :TTempcomp；
constructor TTempcomp.Create1；
begin
// inherited Create(self)；
end；
/==============================================
function OpenSample: Boolean； stdcall； export；
begin
HwCtrl:= Sample1.Create(temp1)；
If Sample1.Actived then result:=true；
end；
procedure CloseSample； stdcall； export；
begin
Sample1.Destroy；
end；
function Actived: Boolean； stdcall； export；
begin
result:=Sample1.Actived；
end；
function Pro1: Interger； stdcall； export；
begin
result:= Sample1.Pro1;
end；
function Pro2: Interger； stdcall； export；
begin
result:= Sample1.Pro2;
end；
/==============================================
procedure libexit； far
begin
if Sample1.Actived =true then
Sample1.Destroy；
ExitProc:=SaveExit；
temp1.Destroy；
end；
exports
OpenSample，CloseSample，Actived ，Pro1，Pro2；
begin
temp1:=TTempcomp.Create1；
SaveExit:=ExitProc；
ExitProc:=@libexit；
end.
---- 解 释：
---- 因 为VCL 控 件 都 继 承 于TComponent，TComponent 的 构 造 函 数 需 要 一 个AOwner
并 且 也 是TComponent，VCL 控 件 的Create、Destroy 都 由 控 件 的 拥 有 者 来 动 作， 也 就
是AOwner； 所 以 我 在 此DLL 中 新 设 置 了 一 个TTempcomp 类 继 承 于Tcomponent 且 性 设
置 了 一 个constructor（ 构 造 函 数）Create1， 而 实 际 构 造 时 什 么 都 不 做， 以 次 作 为
要Create 的Aowner；
---- 其 他 还 有 一 种 办 法 就 是 用Application 作 为Aowner 但 是 它 是 基 于Tform 的 作
出 来 的DLL 太 大；
---- 其 实，Inprise（ 原 Borland） 尽 可 以 象MicroSoft 一 样 用 一 些 象DCOM 类 似 的
组 件 形 式 使 得 产 品 在 同 一 产 品 时 代 保 持 一 定 的 互 用 性， 来 增 加 产 品 群 的 生 命 力.
