调用VC++的DLL时,也是用stdcall，在使用DLL中重载函数时，Delphi
只允许调出一个重载函数，它需要在调用子句中区分不同名称，如：
exporte
someFun(char var),
someFun(int var) name 'IsomeFun';
关于重载，Delphi的OpenGL.pas单元中有一系列范例，你可以看一看!
看个例了吧：
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
//---------------------------------------------------------------------------
extern "C" __declspec(dllexport)
int WINAPIdo
uble (int n)
{
return n * 2;
}
extern "C" __declspec(dllexport)
int WINAPI Triple (int n)
{
return n * 3;
}
__declspec(dllexport)
int WINAPI Add (int a, int b)
{
return (a + b);
}
//以下是在Dlphi中调用示例
unit CallCppF;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Spin, ExtCtrls;
type
TForm1 = class(TForm)
BtnDouble: TButton;
SpinEdit1: TSpinEdit;
Label1: TLabel;
BtnTriple: TButton;
Label2: TLabel;
SpinEdit2: TSpinEdit;
BtnAdd: TButton;
Label3: TLabel;
Edit1: TEdit;
Bevel1: TBevel;
procedure BtnDoubleClick(Sender: TObject);
procedure BtnTripleClick(Sender: TObject);
procedure BtnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//定义DLL函数
function Add (A, B: Integer): Integer;
stdcall;
external 'CPPDLL.DLL' name '@Add$qqsii';
functiondo
uble (N: Integer): Integer;
stdcall;
external 'CPPDLL.DLL' name 'Double';
function Triple (N: Integer): Integer;
stdcall;
external 'CPPDLL.DLL';
procedure TForm1.BtnDoubleClick(Sender: TObject);
begin
SpinEdit1.Value :=do
uble (SpinEdit1.Value);
end;
procedure TForm1.BtnTripleClick(Sender: TObject);
begin
SpinEdit2.Value := Triple (SpinEdit2.Value);
end;
procedure TForm1.BtnAddClick(Sender: TObject);
begin
Edit1.Text := IntToStr (Add (
SpinEdit1.Value, SpinEdit2.Value));
end;
end.
