VC和Delphi的混合编程

 VC的MFC大框架非常的完美，开发程序功能强大，几乎没有他做不了的事。但经常使用他的朋友们，一定对他的控件深有感触，控件太少，功能不够，不灵活，界面不漂亮。而DELPHI的控件丰富，功能强大，可扩展性强。如果在开发程序时，主程序用VC开发，界面操作利用delphi强大的控件，真是使VC如虎添翼。事半功倍。如何使VC和delphi完美的结合呢？答案是：利用动态链接库（DLL）。故本文提出的用delphi编制DLL，由VC来调用。使两者完美结合。

一。delphi的DLL的实现。

1.首先用delphi的“DLL Wizard”生成DLL的工程Test。添加一个form，根据您的需要在对话框上添加几个控件。在工程文件中添加DlgShow过程，用于弹出对话框。工程源代码如下：

//Test工程文件源代码

library Test;
uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};

procedure DlgShow;stdcall;export;
begin
    form1 := TForm1.Create(nil);
    form1.ShowModal;
    form1.Free;
end;

exports
    DlgShow Index 1name 'DlgShow';
begin

end.

注意：DlgShow文件声明时后面必须带stdcall和export，否则VC将不能正常调用。在exports的后面添加输出文件的声明， 您可以指定索引号，并重新命名，如果有多个函数，之间要用“，”分开。编译生成Test.dll。

二。VC编程调用DLL

对DLL的调用，本文中是用动态加载的方式。用VC6.0生成一个基于对话框的工程。在对话框上添加一个按钮，在按钮的单击消息函数中，加入如下代码：

void CTestDlg::OnButton1() 
{
typedef void (*fun)(void);
 fun f;
 HINSTANCE hDLL = LoadLibrary("Test.dll");
 if ( hDLL!=NULL )
 {
  f = (fun)GetProcAddress(hDLL, "DlgShow");
  f();
  FreeLibrary(hDLL); 
 }
}

将上面生成的Test.dll手动拷贝到新工程的DEBUG目录下，编译执行VC程序，在对话框中，点击按钮，可以看到我们在DELPHI中编辑的对话框界面，测试各项功能，没有问题，大功告成。
注意：首先在函数的开始声明了一个函数的指针，然后加载Test.dll，找到函数的地址，并赋给f，执行，最后卸载Test.dll，完成DLL的调用。读者也可以扩展成静态的加载方式。

本人才疏学浅，不对之处望网友指正。