您好,登錄后才能下訂單哦!
打開C++Builder6集成開發(fā)界面,選擇File-New-Other,彈出New Items對話框,選擇DLL Wizard選項(xiàng),在DLL Wizard對話框中選擇Use VCL選項(xiàng),點(diǎn)擊OK按鈕。進(jìn)入界面后,此時(shí)工作空間名稱和文件名稱都是默認(rèn)的,可以選擇File-Save Project As重命名工作空間名稱和文件名稱等,當(dāng)你新添加一個(gè)文件時(shí),可以使用ctrl+s來重命名。
接下來往這個(gè)DLL項(xiàng)目中分別添加Form和Data Module。他們都是在File-New-Form 與 File-New-Data Module中添加,名稱重命名可ctrl+s實(shí)現(xiàn)。首先添加Data Module,彈出一個(gè)界面,在工具欄的BDE一項(xiàng)拖拽Query和Database控件,并設(shè)置Database的屬性選項(xiàng)中的LoginPrompt為false值,防止彈出登錄數(shù)據(jù)庫的界面。
以上都設(shè)置好后,還要設(shè)置一項(xiàng),否則調(diào)用DLL文件是會報(bào)無法加載DLL文件。解決方法:創(chuàng)建DLL時(shí)編譯鏈接時(shí)注意設(shè)置Project Options。Packages標(biāo)簽,去除Builder with runtime packages檢查框;Linker標(biāo)簽,去除Use dynamic RTL檢查框。其它選項(xiàng)說明,Directories/Conditionals可以設(shè)置生成DLL文件的最終路徑,如我在Final output中輸入../bin/,最后點(diǎn)擊OK完成。
下面給出部分接口代碼:
(1) DLL端接口代碼extern "C" __declspec(dllexport) bool __stdcall SetInstChangeLogInit(AnsiString DBName,TStrings *Params,AnsiString areacode,AnsiString username,TComponent* Owner);
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
return 1;
}
//---------------------------------------------------------------------------
bool __stdcall SetInstChangeLogInit(AnsiString DBName,TStrings *Params,AnsiString areacode,AnsiString username,TComponent* Owner)
{
//調(diào)用窗體的初始化函數(shù),做些初始化操作
}
(2) 主調(diào)端接口代碼
void __fastcall TFmMain::N33Click(TObject *Sender)
{
ReSet(Sender);
HINSTANCE hld;
bool (*SetInstChangeLogInit)(AnsiString DBName,TStrings *Params,AnsiString cAreaCode,AnsiString userName,TComponent* Owner);
hld=LoadLibrary("setInstChangeLog.dll");
if(hld)
{
(FARPROC &)SetInstChangeLogInit=GetProcAddress(hld,"SetInstChangeLogInit");
if(SetInstChangeLogInit)
{
if(!SetInstChangeLogInit(FmDm->Database1->DatabaseName,FmDm->Database1->Params,FmDm->AreaCode,FmDm->userName,this))
MessageBox(Handle,"模塊中的函數(shù)執(zhí)行錯(cuò)誤(setInstChangeLog.dll)!!!","錯(cuò)誤!",MB_OK|MB_ICONERROR);
}
else
MessageBox(Handle,"模塊中的函數(shù)無法定位(setInstChangeLog.dll)!!!","錯(cuò)誤!",MB_OK|MB_ICONERROR);
}
else
MessageBox(Handle,"此功能沒有提供","錯(cuò)誤! setInstChangeLog.dll!",MB_OK|MB_ICONERROR);
FreeLibrary(hld);
}
總結(jié):注意屬性欄的屬性設(shè)置。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。