// *********************************************************************//
// Interface: rdoConnectionEvents
// Flags: (4112) Hidden Dispatchable
// GUID: {8B39DFBD-3647-11CF-814A-00AA00A40C25}
// *********************************************************************//
interface rdoConnectionEvents : public TDispWrapper<IDispatch>
{
void __fastcall Connect(TOLEBOOL ErrorOccurred)
{
_TDispID _dispid(/* Connect */ DISPID(2));
TAutoArgs<1> _args;
_args[1] = ErrorOccurred /*[VT_BOOL:0]*/; //这在5.0中运行正常在6.0中就不行
OleProcedure(_dispid, _args);
}

void __fastcall BeforeConnect(BSTR* ConnectString, TVariant* Prompt)
{
_TDispID _dispid(/* BeforeConnect */ DISPID(1));
TAutoArgs<2> _args;
_args[1] = ConnectString /*[VT_BSTR:1]*/;
_args[2] = Prompt /*[VT_VARIANT:1]*/;
OleProcedure(_dispid, _args);
}




Build
[C++ Warning] RDO_TLB.h(770): W8053 'TVariantInParam' is obsolete
[C++ Error] RDO_TLB.h(1095): E2015 Ambiguity between '_fastcall System::Variant::operator =(const bool)' and '_fastcall System::Variant::operator =(const short)'
[C++ Error] RDO_TLB.h(1119): E2015 Ambiguity between '_fastcall System::Variant::operator =(const bool)' and '_fastcall System::Variant::operator =(const short)'
[C++ Warning] PublicFuction.h(126): W8098 Multi-character character constant
[C++ Warning] Nurse.cpp(85): W8030 Temporary used for parameter 'str' in call to 'SpaceCopy(AnsiString &,int,int,int)'
[C++ Error] Nurse.cpp(130): E2015 Ambiguity between '_fastcall TDateTime::operator double() const' and '_fastcall TDateTime::operator int() const'
[C++ Error] Nurse.cpp(188): E2451 Undefined symbol 'exception'

那位大哥能帮帮我，我的E-Mail是jackhandsame@163.com