在Delphi中使用CodeBlocks编译的DLL.docVIP

使用CodeBlocks新建一个DLL工程，在生成的源代码中更改函数的声明为__stdcall，新建一个Def文件在文件中声明要导出的函数，这样就OK了！ 下面贴出来示例的代码： main.h C++代码 #ifndef?__MAIN_H__ ?? #define?__MAIN_H__ ?? ?? #include?windows.h ?? ?? /*??To?use?this?exported?function?of?dll,?include?this?header ? ?*??in?your?project. ? ?*/?? ?? //#ifdef?BUILD_DLL ?? //????#define?DLL_EXPORT?__declspec(dllexport) ?? //#else ?? //????#define?DLL_EXPORT?__declspec(dllimport) ?? //#endif ?? ?? #ifdef?__cplusplus ?? extern?C?? { ?? #endif ?? void?__stdcall?SomeFunction(const?LPCSTR?sometext); ?? int?__stdcall?SayHello(const?LPCSTR?lpCaption,?const?LPCSTR?lpText); ?? #ifdef?__cplusplus ?? } ?? #endif ?? ?? #endif?//?__MAIN_H__?? main.cpp C++代码 #include?main.h ?? ?? //?a?sample?exported?function ?? void?__stdcall?SomeFunction(const?LPCSTR?sometext) ?? { ?? ????MessageBoxA(0,?sometext,?DLL?Message,?MB_OK?|?MB_ICONINFORMATION); ?? } ?? int?__stdcall?SayHello(const?LPCSTR?lpCaption,?const?LPCSTR?lpText) ?? { ?? ????MessageBoxA(0,?lpText,?lpCaption,?MB_OK?|?MB_ICONINFORMATION); ?? ????return?0; ?? ?? } ?? BOOL?WINAPI?DllMain(HINSTANCE?hinstDLL,?DWORD?fdwReason,?LPVOID?lpvReserved) ?? { ?? ????switch?(fdwReason) ?? ????{ ?? ????????case?DLL_PROCESS_ATTACH: ?? ????????????//?attach?to?process ?? ????????????//?return?FALSE?to?fail?DLL?load ?? ????????????break; ?? ?? ????????case?DLL_PROCESS_DETACH: ?? ????????????//?detach?from?process ?? ????????????break; ?? ?? ????????case?DLL_THREAD_ATTACH: ?? ????????????//?attach?to?thread ?? ????????????break; ?? ?? ????????case?DLL_THREAD_DETACH: ?? ????????????//?detach?from?thread ?? ????????????break; ?? ????} ?? ????return?TRUE;?//?succesful ?? }?? Def文件 C++代码 EXPORTS ?? ????SomeFunction ?? ????SayHello ?? 在CodeBlocks里设置项目的build option中linker Settings的Other Link Options中添加上你写的Def文件的文件名，比如MyDll.def”。这样编译好以后的dll就可以供Delphi使用了。 这里贴出在Delphi中静态调用DLL中函数的部分代码： Delphi代码 ?? implementation?? ?? {$R?*.dfm}?? procedure?SomeFunction(const?sometext:?PChar);?stdcall;?external?Dll的名称.dll; ?? function?SayHello(const?lpCaptio