各位大神，小白求助一下，我用cb2010寫的應用里面，把其中一段處理方式改造成了dll，改造完成后程式運行及處理完全正常，問題是凡是涉及到呼叫了dll的操作之后，關閉程式時行程就不會結束，只能在任務管理器里面殺行程才會結束，進行的操作不涉及dll呼叫方法就沒問題，可以正常關閉，因此感覺問題出在dll沒有被正確釋放，因此求助各位大大，我的呼叫及釋放是不是有問題？應該怎么修正呢？分值不多,謝謝！
呼叫及釋放代碼如下（想法是只在需要的時候才呼叫dll，每次呼叫完之后立即釋放，但不確定方法對沒有，方法來自百度后自行改造
：HINSTANCE Hdl;
newp_funpath = ExtractFilePath(Application->ExeName) + "Reload.dll";
// 定義函式原型
Hdl = ::LoadLibrary(newp_funpath.c_str()); // 載入DLL
if (Hdl != NULL) {
log_reason = (AnsiString __stdcall(*)(AnsiString,
AnsiString))::GetProcAddress(Hdl, "logreason");
// 獲取函式入口地址
if (log_reason != NULL) {
newp_reason = log_reason(newp_dev_ip, newp_log_source);
}
else {
ShowMessage("Reload.dll讀取失敗!請檢查程式完整性!");
}
log_reason = NULL;
FreeLibrary(log_reason); // 釋放dll
log_reason = NULL;
Hdl = NULL;
::FreeLibrary(Hdl); // 釋放dll
delete Hdl;
附:DLL部分代碼:
extern "C" __declspec(dllexport) AnsiString __stdcall logreason(AnsiString log_dev_ip, AnsiString logresource) // 縱向告警原因判定函式
{
AnsiString newp_func_inipath, newp_func_ws_dm, newp_func_ws_n;
.................省略中間程序代碼..............
newp_func_ado->Close(); //關閉程序中臨時創建的的ado連接
newp_func_ado->SQL->Clear(); //清空sql陳述句
delete newp_func_ado;洗掉ado
}
return(newp_func_src_data_net_p + "." + newp_func_dev_data_net_p + "." + newp_func_dst_data_net_p + "." + newp_func_logtype); //回傳結果字串
}
uj5u.com熱心網友回復：
這三行刪掉：log_reason = NULL;
FreeLibrary(log_reason); // 釋放dll
log_reason = NULL;
這么釋放庫屬于腦殘了么：
Hdl = NULL;
::FreeLibrary(Hdl); // 釋放dll
uj5u.com熱心網友回復：
兩個問題1. LoadLibrary，調研函式后，直接 FreeLibrray 即可
2. 不建議使用 AnsiString 作為 DLL 引數或者回傳值使用，而采用 char * 等標準型別，需注意區域變數回傳無效的問題
C++ Builder 的描述：
// Important note about DLL memory management when your DLL uses the
// static version of the RunTime Library:
//
// If your DLL exports any functions that pass String objects (or structs/
// classes containing nested Strings) as parameter or function results,
// you will need to add the library MEMMGR.LIB to both the DLL project and
// any other projects that use the DLL. You will also need to use MEMMGR.LIB
// if any other projects which use the DLL will be performing new or delete
// operations on any non-TObject-derived classes which are exported from the
// DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
// EXE's to use the BORLNDMM.DLL as their memory manager. In these cases,
// the file BORLNDMM.DLL should be deployed along with your DLL.
//
// To avoid using BORLNDMM.DLL, pass string information using "char *" or
// ShortString parameters.
//
// If your DLL uses the dynamic version of the RTL, you do not need to
// explicitly add MEMMGR.LIB as this will be done implicitly for you
//---------------------------------------------------------------------------
uj5u.com熱心網友回復：
我也知道這樣NULL之后再釋放不合適，但現在有個問題是如果我不先NULL再釋放，那么dll根本就釋放不了.....DLL里面呼叫的所有VCL我都全部停掉了的，第一次改寫dll，所以這個確實不太明白
我把代碼改成下面這樣后，程式到 ::FreeLibrary(Hdl);這一步就走不了了，表現為訊息1有，訊息2就沒了：
//log_reason = NULL;
FreeLibrary(log_reason); // 釋放dll
//log_reason = NULL;
//Hdl = NULL;
ShowMessage("1"); //1會彈出
::FreeLibrary(Hdl); // 釋放dll //這兒釋放出問題了....
ShowMessage("2"); //2就沒有了
delete Hdl;
//Hdl = NULL;
// ::FreeLibrary(Hdl); // 一定不要忘記呼叫完畢后釋放DLL
uj5u.com熱心網友回復：
謝謝!根據您的提示，我把AnsiString 換為char*回傳，可以正常執行，但dll釋放還是有問題，直接釋放的時候就是釋放不了....請問下一步我該往哪個方向查?dll里面所有用到的組件在里面我都全部刪掉了,除了ansistring沒刪以外,應該就沒有任何資源占用了呀?
uj5u.com熱心網友回復：
::LoadLibrary，加載DLL，需要FreeLibrary來釋放。::GetProcAddress只是找到入口，找到后呼叫即可，沒有配套釋放。
以上的應該還不是問題的關鍵，
AnsiString newp_func_inipath, newp_func_ws_dm, newp_func_ws_n;
.................省略中間程序代碼..............
newp_func_ado->Close(); //關閉程序中臨時創建的的ado連接
newp_func_ado->SQL->Clear(); //清空sql陳述句
delete newp_func_ado;洗掉ado
}
這是你的DLL，看代碼你只是釋放和洗掉了ADO（可能是查詢ADOquery），但是ADOConnect沒看到你的洗掉在哪里。
應該是ADO鏈接還存在，造成不能完全釋放。
uj5u.com熱心網友回復：
1. 確實不需要 FreeLibrary 函式名
2. 建議誰申請的記憶體，誰釋放，意思就是 Exe 申請的Exe 釋放，DLL 申請的 DLL 釋放，不過這個僅僅是建議，沒有強制，一般這樣使用，如果你不是這樣，最好注明一下
uj5u.com熱心網友回復：
謝謝解答，確實我用的是ADOquery，newp_func_ado->Close()這一句不是關閉了嗎？還是說我必須得用newp_func_ado->Connection->Close()這樣來關閉呢？我晚點試著用后者試試
uj5u.com熱心網友回復：
謝謝，主要是這個怎么實作釋放一直不了解...求大神指點
uj5u.com熱心網友回復：
一個資料集關閉，一個連接關閉，不是一回事。
uj5u.com熱心網友回復：
我把newp_func_ado->Close()改為newp_func_ado->Connection->Close()的時候,程式執行直接就報dll記憶體錯了,感覺就是這句連接關閉有問題
我試過用newp_func_ado->Free()好像也不行,各種組合試的有點多了...求下面釋放ADOquery的正確順序應該是啥newp_func_ado->Close();
newp_func_ado->SQL->Clear();
newp_func_ado->SQL->Add(newp_func_sql);
newp_func_ado->Open();
newp_func_ado->SQL->Clear();
//newp_func_ado->Close();
newp_func_ado->Connection->Close();
//newp_func_ado->Connection->Destroying();
newp_func_ado->Free();
//FreeLibrary(newp_func_ado);
delete newp_func_ado;
uj5u.com熱心網友回復：
不懂，我直接在表單放的連接，如果你是new的，就用delete。uj5u.com熱心網友回復：
各位大大...求助指點下小白呀
uj5u.com熱心網友回復：
一般來說 ADOquery 使用方法：ADOquery1 = new TADOquery(NULL); // or 一個視窗 Handle
ADOQuery1->ConnectionString = ... ...
ADOQuery1->SQL->Clear();
ADOQuery1->Prepared=false;
ADOQuery1->SQL->Add(... ...);
ADOQuery1->Prepared=true;
ADOQuery1->ExecSQL(); // Or
ADOQuery1->Open();
... ...
ADOQuery1->Close();
delete ADOQuery1;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/12514.html
標籤：VCL組件使用和開發
下一篇：新手剛學萌新。