在C++ Builder 中如何调用Delphi的窗体单元和类,函数,请举例说明(50分)

  • 主题发起人 主题发起人 HEPAM
  • 开始时间 开始时间
在C++ Builder中调用Delphi的窗体,类,函数可通过DLL进行,
利用动态调用DLL的函数的方法,不必有其他声明,也比较简单,
希望的"Borland C++ Builder3自学培训教程"中有比较详细的介绍,
但问题关键是如何继承DLL中的类在Cbuilder中使用,这样可以使用Delphi有而
Cbuilder没有的控件编程.
我出$400都无人回答.


 
实例:
hpp:
typedef int (*MYPROC1)(AnsiString Ser);
cpp:
void __fastcall TMainform::DLL_About(void)
{
HINSTANCE Hinstlib;
MYPROC1 DLL_ab;
Hinstlib=LoadLibrary("delapp.dll");
//调用Delphi的DLL
DLL_ab=(MYPROC1)GetProcAddress(Hinstlib,"DLL1");
DLL_ab(Q_Ver);
FreeLibrary(Hinstlib);
}
pas:
library Sdelcom;

uses
SysUtils,
Classes,
About in 'About.pas' {AboutForm};
Exports
DLL_about name 'DLL1';
begin
end.

Function DLL_about(Ver :String): Integer;stdcall;
implementation
{$R *.DFM}
procedure TAboutForm.FormCreate(Sender: TObject);
var
LibHandle : THandle;
begin
LibHandle:=LoadLibrary(Pchar('sres'));
//Delphi调用资源DLL
Image2.Picture.Bitmap.LoadFromResourceID(LibHandle,1);
FreeLibrary(LibHandle);
end;

Function DLL_about(Ver :String): Integer;stdcall;
begin
AboutForm:= TAboutForm.Create(Application);
AboutForm.Label2.Caption:=Ver;
AboutForm.ShowModal;
Result:=1;
end;

调用Delphi做的函数,About窗,类.
 
更正:
library Sdelcom;
library delapp;
 
接受答案了.
 
后退
顶部