调用DLL 中的MDI子窗体,提示"Cannot create form.No MDI forms are currently active"

[mimong_lin]

如果,我的程序结构是这样的,一个存放MDI Child 子窗体的DLL(DLLMDIChildPro.dll),一个管理这些MDI Child子窗体DLL的管理DLL(DLLMDIChildManagePro.dll),MDI主程序(DLLMDIChildTestPro.exe).程序结构就要求这样子,不能改变的.显示MDI Child子窗体的过程是这样的,MDI主程序中的一个MDI Child子窗体(在主程序里带的,不是DLL生成)调用管理DLL中的接口来显示MDI Child.

DLLMDIChildPro.dll的导出函数

extern "C" __declspec(dllexport)
bool GetReportFileInfo(ReportInfo& rptInfo)
{
    rptInfo.formClass = __classid(TFormFirstDLLMDIChild);
    rptInfo.ppForm = (TForm **)&FormFirstDLLMDIChild;
    //rptInfo.reportTitle = std::string("第一个DLL MDI子窗体");
    //rptInfo.reportType = std::string("测试报表");

    return true;
}

DLLMDIChildManagePro.dll的导出函数

extern "C" __declspec(dllexport)
void ShowFirstMDIChild(TApplication* pApp)
{
    if(g_SavedApp == NULL)
    {
        g_SavedApp = Application;
        Application = pApp;
    }

    if(g_firstDLLMDIChildIns == NULL)
    {
        g_firstDLLMDIChildIns = ::LoadLibrary("DLLMDIChildPro.dll");
        if(g_firstDLLMDIChildIns == NULL)
        {
            return ;
        }
    }

    struct ReportInfo rptInfo;
    GETREPORTFILEINFOFUNC GetInfo
        = (GETREPORTFILEINFOFUNC)::GetProcAddress(g_firstDLLMDIChildIns, "_GetReportFileInfo");
    if(GetInfo == NULL)
    {
        return ;
    }
    GetInfo(rptInfo);

    if(rptInfo.ppForm == NULL)
    {
        return ;
    }
    if((*rptInfo.ppForm) == NULL)
    {
        Application->CreateForm(rptInfo.formClass, rptInfo.ppForm);
    }
    (*rptInfo.ppForm)->Show();
}

DLLMDIChildTestPro.exe中的调用代码

void __fastcall TFormDLLMDIChildUsage::btn1Click(TObject *Sender)
{
    typedef void (*SHOWFIRSTMDICHILDFUNC)(TApplication* pApp);
    SHOWFIRSTMDICHILDFUNC ShowFunc
        = (SHOWFIRSTMDICHILDFUNC)::GetProcAddress(m_dllMDIChildMIns, "_ShowFirstMDIChild");
    if(ShowFunc == NULL)
    {
        throw(Exception(Format("函数取址失败:%u", ARRAYOFCONST(((int)::GetLastError())))));
    }
    ShowFunc(Application);
}

Application->CreateForm(rptInfo.formClass, rptInfo.ppForm);
这个是在网上找到的内容,说是在调用DLL中的MDI Child子窗体的时候,需要从外部传入Application,在调试的时候,我查看传进来的Application的MainForm的FFormStyle,是2(fsMDIForm),但是在这一步调用的时,问题提示"Cannot create form.No MDI forms are currently active".

这究竟是什么问题呢?要怎么解决?

[mimong_lin]

经过调试发现,对于fsMDIChild的窗体,调用Application->CreateForm的时候,似乎需要CreateForm这个操作和fsMDIChild窗体在同一个模块中(同一个DLL或者EXE文件中,也就是同一个项目中),是否是这样子的呢?

请向前辈们求证一下.

[mimong_lin]

问题解决,是认识上的错误.
虽然知道DLL中的Application和MDI主程序中的Application是不同样的,在ShowForm有替换DLL中的Application.以为用GetFormClass后是在MDI主程序中调用Application->CreateForm,应该不关DLL中的Application的事,没想到它还是会去判断DLL中的那个Application.所以,需要在GetFormClass的时候,也替换DLL中的Application,才能解决问题.新的函数接口如下:

void GetFormClass(TApplication* pApp, struct FormClass& f) 
{
    if(g_SavedApp == NULL) 
    { 
        g_SavedApp = Application; 
        Application = pApp; 
    }
 
    f.ppForm = (TForm **)&FormDLL; 
    f.formClass = __classid(TFormDLL); 
}

这样就OK了.

[我来看看CB]

关注。。。。。。