编写多层Web应用程序定义COM接口，在不同机器上产生不同错误

[neuapostle]

我用Type Library Editor 新建一个Method将应用程序服务器上PageProducer1的内容传给Web服务器（通过TDCOMConnection）。最初，程序调试成功，在浏览器中可以看到传来的后台数据库中的表格，当我修改程序来改变表格属性后，程序不能编译通过，编译到第七行时，产生错误如下：
[C++ Fatal Error] DiscServer.cpp(11): F1004 Internal compiler error at 0xc39cad with base 0xc10000
错误显示在Project1.cpp文件中 TComModule _ProjectModule(0 /*InitATLServer*/); 语句（Project1.cpp中第七行）。而且以后再修改，都将产生同样的错误。以前调试成功的程序（使用过Type Library Editor ）再次保存后都将产生同样的错误，重装C++ Builder后才可以运行。但我在其他机器上运行却不会产生上面的错误。

接口方法程序如下：
STDMETHODIMP TServerImpl::Discussion(BSTR INPUT, BSTR* ret)
{
*ret=(WideString)(m_DataModule->PageProducer1->Content());
}

Project1.cpp文件中程序如下：
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
#include <atl\atlmod.h>
#include "ServerImpl.h"
USEFORM("UnitDisc.cpp", Form1);
USEFORM("ServerImpl.cpp", Server); /* TCRemoteDataModule: File Type */ /* Server: CoClass */
//---------------------------------------------------------------------------
TComModule _ProjectModule(0 /*InitATLServer*/);
TComModule &_Module = _ProjectModule;

// The ATL Object map holds an array of _ATL_OBJMAP_ENTRY structures that
// described the objects of your OLE server. The MAP is handed to your
// project's CComModule-derived _Module object via the Init method.
//
BEGIN_OBJECT_MAP(ObjectMap)
OBJECT_ENTRY(CLSID_Server, TServerImpl)
END_OBJECT_MAP()
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}

[neuapostle]

C++ Builder 是不是有 Bug?^_^

[neuapostle]

我发现了，只要出现错误提示后立刻保存就可以了，然后就可以执行了。