First, you need to declare all the functions exported by your Delphi DLL with the keywords export; stdcall;
Secondly, your VC++ header file should declare all the functions as of type __declspec(dllexport) __stdcall (double leading underscores, and should enclose the function prototypes within extern "C" { ... } . (You can also use __declspec(dllimport) instead...) For example:
extern "C" {
int __declspec(dllexport) __stdcall plusone(int);
}
Thirdly, in VC++ the compiler does insist on decorating __stcall function names, so your Delphi DLL has to export these functions accordingly. The way to do it is to modify the Delphi 2.0 .DPR file for your DLL by modifying the names of all functions as they appear in the exports clause. For example, if you are exporting a function plusone(intval : Integer) you need to include it in the .DPR file's exports clause as:
plusone name 'plusone@4'
The number following the @ symbol is the total length in bytes of all the function's arguments. The simplest way to find out the correct values is to try to link your VC++ program and inspect the "unresolved external" linker errors that result.
FINALLY, you can easily create an import library using the LIB utility supplied with VC++. To do it, you need to manually (!!) create a .DEF file for your DLL, with an exports clause listing the names and/or ordinals of all the functions the DLL exports. The format of the .DEF file is simple:
library MYLIB
description 'My very own DLL'
exports
plusone@4
Then you execute LIB from the DOS/Win95 command line, supplying your .DEF file as a command-line parameter. For example, LIB /DEF:MYDLL.DEF . You tell VC++ about your .LIB file in the Build|Settings|Linker dialog.
Sample code follows:
*******MYDLLMU.PAS
unit MyDLLMU;
interface
function plusone(val : Integer) : Integer; export; stdcall;
procedure ChangeString(AString : PChar); export; stdcall;
implementation
uses
Dialogs,
SysUtils;
function plusone(val : Integer) : Integer;
begin
Result := val + 1;
end;
procedure ChangeString(AString : PChar);
begin
if AString = 'Hello' then
StrPCopy(AString, 'World');
end;
end.
***********MYDLL.DPR
library mydll;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
View-Project Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the DELPHIMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using DELPHIMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
SysUtils,
Classes,
MyDLLMU in 'MyDLLMU.pas';
exports
plusone name 'plusone@4',
ChangeString name 'ChangeString@4';
begin
end.
*************** MYDLL.DEF
; -----------------------------------------------------------------
; File name: MYDLL.DEF
; -----------------------------------------------------------------
LIBRARY MYDLL
DESCRIPTION 'Test Delphi DLL, static loading into VC++ app'
EXPORTS
plusone@4
************** DLLTSTADlg.H
// DLLTSTADlg.h : header file
//
#define USELIB
#ifdef USELIB
extern "C" {
int __declspec(dllimport) __stdcall plusone(int);
}
#endif //USELIB
/
// CDLLTSTADlg dialog
class CDLLTSTADlg : public CDialog
{
// Construction
public:
CDLLTSTADlg(CWnd* pParent = NULL); // standard constructor
~CDLLTSTADlg();
// Dialog Data
//{{AFX_DATA(CDLLTSTADlg)
enum { IDD = IDD_DLLTSTA_DIALOG };
CString m_sVal;
CString m_sStr;
//}}AFX_DATA
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CDLLTSTADlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
//}}AFX_VIRTUAL
// Implementation
protected:
#ifndef USELIB
HINSTANCE hMyDLL;
FARPROC lpfnplusone;
typedef int (*pIIFUNC)(int);
pIIFUNC plusone;
#endif //USELIB
HICON m_hIcon;
// Generated message map functions
//{{AFX_MSG(CDLLTSTADlg)
virtual BOOL OnInitDialog();
afx_msg void OnPaint();
afx_msg HCURSOR OnQueryDragIcon();
afx_msg void OnBtnplusone();
afx_msg void OnBtnplusoneClick();
afx_msg void OnBtndostringClick();
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};
************ DLLTSTADlg.CPP
// DLLTSTADlg.cpp : implementation file
//
#include "stdafx.h"
#include "DLLTSTA.h"
#include "DLLTSTADlg.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
extern CDLLTSTAApp theApp;
/
// CDLLTSTADlg dialog
CDLLTSTADlg::CDLLTSTADlg(CWnd* pParent /*=NULL*/)
: CDialog(CDLLTSTADlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CDLLTSTADlg)
m_sVal = _T("1");
m_sStr = _T("Hello");
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
#ifndef USELIB
hMyDLL = LoadLibrary("C:\\delpwork\\MYDLL.DLL");
if(hMyDLL == NULL)
PostQuitMessage(1);
lpfnplusone = GetProcAddress(HMODULE(hMyDLL), "_plusone");
if(lpfnplusone == NULL)
PostQuitMessage(2);
plusone = pIIFUNC(lpfnplusone);
#endif //USELIB
}
CDLLTSTADlg::~CDLLTSTADlg()
{
#ifndef USELIB
if (hMyDLL != NULL)
FreeLibrary(hMyDLL);
#endif //USELIB
}
void CDLLTSTADlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CDLLTSTADlg)
DDX_Text(pDX, IDC_LBLINT, m_sVal);
DDX_Text(pDX, IDC_LBLSTRING, m_sStr);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CDLLTSTADlg, CDialog)
//{{AFX_MSG_MAP(CDLLTSTADlg)
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_BTNPLUSONE, OnBtnplusoneClick)
ON_BN_CLICKED(IDC_BTNDOSTRING, OnBtndostringClick)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/
// CDLLTSTADlg message handlers
BOOL CDLLTSTADlg::OnInitDialog()
{
CDialog::OnInitDialog();
// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon
// TODO: Add extra initialization here
return TRUE; // return TRUE unless you set the focus to a control
}
// If you add a minimize button to your dialog, you will need the code below
// to draw the icon. For MFC applications using the document/view model,
// this is automatically done for you by the framework.
void CDLLTSTADlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting
SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;
// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}
// The system calls this to obtain the cursor to display while the user drags
// the minimized window.
HCURSOR CDLLTSTADlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}
void CDLLTSTADlg::OnBtnplusoneClick()
{
int iTemp;
char sTemp[10];
iTemp = atoi(m_sVal);
iTemp = plusone(iTemp);
m_sVal = itoa(iTemp, sTemp, 10);
UpdateData(FALSE);
}
void CDLLTSTADlg::OnBtndostringClick()
{
UpdateData(FALSE);
}
转自:http://www.esanu.name/delphi/DLL/Calling%20delphi%20DLL%20from%20MS%20Visual%20C.html