c++builder XE 10 封装log4z日志管理动态库

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <windows.h> #include "Main.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TfrmLogMngr *frmLogMngr; enum ENUM_LOG_LEVEL { LOG_LEVEL_DEBUG, LOG_LEVEL_INFO, LOG_LEVEL_WARN, LOG_LEVEL_ERROR, LOG_LEVEL_ALARM, LOG_LEVEL_FATAL, }; bool(__stdcall *LogD )( const char* log ); //debug bool(__stdcall *LogI )( const char* log ); //info bool(__stdcall *LogW )( const char* log ); //warning bool(__stdcall *LogE )( const char* log ); //error bool(__stdcall *LogA )( const char* log ); //alarm bool(__stdcall *LogF )( const char* log ); //fatal bool(__stdcall *SetPathName )( const char* Path,const char* Prefix ); bool(__stdcall *SetLogLevel )( ENUM_LOG_LEVEL Level); //--------------------------------------------------------------------------- __fastcall TfrmLogMngr::TfrmLogMngr(TComponent* Owner) : TForm(Owner) { hInst = NULL; hInst_temp = NULL; hInst = LoadLibrary( L"Log.dll" ); if (hInst) { ( FARPROC & )LogD = GetProcAddress( hInst, "LogD" ); ( FARPROC & )LogI = GetProcAddress( hInst, "LogI" ); ( FARPROC & )LogW = GetProcAddress( hInst, "LogW" ); ( FARPROC & )LogE = GetProcAddress( hInst, "LogE" ); ( FARPROC & )LogA = GetProcAddress( hInst, "LogA" ); ( FARPROC & )LogF = GetProcAddress( hInst, "LogF" ); ( FARPROC & )SetPathName = GetProcAddress( hInst, "SetLogPathPrefix" ); ( FARPROC & )SetLogLevel = GetProcAddress( hInst, "SetLogLevel" ); } } //--------------------------------------------------------------------------- void __fastcall TfrmLogMngr::btn1Click(TObject *Sender) { //test debug bool DD = LogD(" *** hello wolrd *** "); bool II = LogI("INFO"); bool AA = LogA("ALARM"); bool WW = LogW("WARNING"); bool EE = LogE("ERROR"); bool FF = LogF("FATAL"); if (DD&&WW&&II&&AA&&EE&&FF) { ShowMessage("write logger"); } } //--------------------------------------------------------------------------- void __fastcall TfrmLogMngr::btn2Click(TObject *Sender) { //set path and name bool path = SetPathName("D:\\log","ccc"); if (path) { ShowMessage("set path and name"); } } //--------------------------------------------------------------------------- void __fastcall TfrmLogMngr::btn3Click(TObject *Sender) { //set level bool level = SetLogLevel(LOG_LEVEL_INFO); if (level) { ShowMessage("set level"); } } //---------------------------------------------------------------------------