Delphi 呼叫VC的DLL
Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess);
輸出格式為:_ShowMess@8,“8”為函數參數位元組數
為了避免名稱分裂,可採用以下方法解決:
1.聲明中不加__stdcall,採用VC預設格式__cdecl,但在Delphi中要註明呼叫格式為cdecl。
2.在VC工程中加入def文件,如:
LIBRARY
EXPORTS
ShowMess @1
則DLL中輸出函數名稱不分裂。
PRocedure ShowMess (h:HWND; mess:PChar); Stdcall;{Cdecl;} external LibName;
如無Stdcall或Cdecl聲名,Delphi預設Register(FastCall)呼叫格式。
#pragma pack(4)
//結構定義
#pragma pack()
TDump.exe-Delphi 4 和C++ Builder 3 提供
Impdef.exe 與Implib.exe - C++ Builder 3提供
DumpBin.exe-VC5.0提供
Lib.exe-VC5.0提供
VC呼叫Delphi的DLL
Function ShowDialog( hMainWnd:THandle; Msg:PChar ):integer; stdcall;
輸出到Dll檔案時,名稱不分裂。
extern "C" __declspec(dllimport) int __stdcall ShowDialog( HWND hwnd,char* Msg );
.如帶有__stdcall,則要求Lib檔案中對應函數名稱分裂,可有下列步驟產生Lib檔案:
.用Impdef.exe產生def文件,格式為:Impdef def檔案名稱dll檔案名
.手工調製def檔案參數,如ShowDialog改為ShowDialog@8
.用Lib.exe產生lib文件,格式為:Lib /def:def文件名
.如聲名中無__stdcall,預設呼叫格式仍為stdcall,但不要求名稱分裂,以下列批次檔MkLib.bat可產生Lib檔:
@echo off
if %1.==. goto error
impdef %1.def %1.dll
lib /def:%1.def
goto end
:error
echo Usage: MkLib DllName
echo Note: Don't add extension ".dll" to parameter "DllName"
:end