那位大侠帮忙把VC++的代码转换成BCB的？

//
// callback.cpp : Defines the class behaviors for the callback
// This callback object receives the connection point
// callbacks from the OPC server
//

#include "pre_opc.h" // for OPC: include MFC, ATL and OPC header files - for OPC only
#include "OPCDA_Async.h" // include class declaration for application class
#include "OPCDA_AsyncDlg.h" // include class declaration of dialog class

#include "Callback.h" // for OPC: include class declaration fpr this callback class

CString GetQualityText(UINT qnr);
// for OPC: prototype for a helper function to get OPC quality
// text description from quality code

/////////////////////////////////////////////////////////////////////////////
//
// IOPCDataCallback - implementation

// OnDataChange called by OPC server when the OPC server has detected modified data
// (being called only when group and item is set to active)

STDMETHODIMP COPCDataCallback:: OnDataChange(
/* [in] */ DWORD dwTransid,
/* [in] */ OPCHANDLE hGroup,
/* [in] */ HRESULT hrMasterquality,
/* [in] */ HRESULT hrMastererror,
/* [in] */ DWORD dwCount,
/* [size_is][in] */ OPCHANDLE __RPC_FAR *phClientItems,
/* [size_is][in] */ VARIANT __RPC_FAR *pvValues,
/* [size_is][in] */ WORD __RPC_FAR *pwQualities,
/* [size_is][in] */ FILETIME __RPC_FAR *pftTimeStamps,
/* [size_is][in] */ HRESULT __RPC_FAR *pErrors)
{

// The input parameters dwTransid, hGroup, hrMasterquality, hrMastererror, pErrors are not checked within this sample...

CString szReadVal; // CString array with values as text
CString szReadQuality; // CString array with quality texts
CString szReadTS; // CString array with timeStamps as text

CComVariant * pvarOut; // ATL wrapper for VARIANT data type
DWORD i;
for (i = 0; i<dwCount; i++) {
pvarOut = new CComVariant(pvValues[i]); // create VARIANT and init with received value
pvarOut->ChangeType(VT_BSTR); // change Variant Type to String
szReadVal.Format("%ls", pvarOut->bstrVal);
// put BSTR in CString
delete pvarOut; // delete VARIANT
szReadQuality=GetQualityText(pwQualities[i]);
// Call helper function to get text description
szReadTS=COleDateTime( pftTimeStamps[i] ).Format();
// MFC OLE Date wrapper used to change to CString

switch (phClientItems[i]) {
case 0:
m_pCDlgClass->DisplayData0(szReadVal, szReadQuality, szReadTS);
// Call OPCDa_AsyncDlg::Display Data0 Method to
// show Data for Item 0 in Dialog
break;

case 1:
m_pCDlgClass->DisplayData1(szReadVal, szReadQuality, szReadTS);
// Call OPCDa_AsyncDlg::Display Data1 Method to
// show Data for Item 1 in Dialog
break;
default: ASSERT(0); // SHOULD NEVER HAPPEN
}
}


return S_OK;
};

//
// OnReadComplete is being called by OPC server when an async read request has been carried out
//

STDMETHODIMP COPCDataCallback::OnReadComplete(
/* [in] */ DWORD dwTransid,
/* [in] */ OPCHANDLE hGroup,
/* [in] */ HRESULT hrMasterquality,
/* [in] */ HRESULT hrMastererror,
/* [in] */ DWORD dwCount,
/* [size_is][in] */ OPCHANDLE __RPC_FAR *phClientItems,
/* [size_is][in] */ VARIANT __RPC_FAR *pvValues,
/* [size_is][in] */ WORD __RPC_FAR *pwQualities,
/* [size_is][in] */ FILETIME __RPC_FAR *pftTimeStamps,
/* [size_is][in] */ HRESULT __RPC_FAR *pErrors)
{


// The input parameters dwTransid, hGroup, hrMasterquality, hrMastererror, pErrors are not checked within this sample...

/* if no error: Update Data */
if (pErrors[0] == S_OK) {
CComVariant * pvarOut; // ATL wrapper for VARIANT data type
pvarOut = new CComVariant(pvValues[0]); // create VARIANT and init with received value
pvarOut->ChangeType(VT_I4); // change Variant Type to signed long
CString readQuality = GetQualityText(pwQualities[0]);
// Call helper function to get text description
CString readTS = COleDateTime( pftTimeStamps[0] ).Format();
// MFC OLE Date wrapper used to change to CString
m_pCDlgClass->DisplayData(pvarOut->intVal,readQuality, readTS);
// Call OPCDa_AsyncDlg::Display Data Method to
// show Data in Dialog
delete pvarOut;
} else {
/* error case: display error text */
CString readQuality = GetQualityText(pErrors[0]);
m_pCDlgClass->DisplayData(0,readQuality,"");
}


return S_OK;
};


//
// OnWriteComplete called by OPC server when an async write request has been carried out
//
STDMETHODIMP COPCDataCallback::OnWriteComplete(
/* [in] */ DWORD dwTransid,
/* [in] */ OPCHANDLE hGroup,
/* [in] */ HRESULT hrMastererr,
/* [in] */ DWORD dwCount,
/* [size_is][in] */ OPCHANDLE __RPC_FAR *pClienthandles,
/* [size_is][in] */ HRESULT __RPC_FAR *pErrors)
{

/* Display Error Text */

m_pCDlgClass->DisplayData(pErrors[0]);

return S_OK;
};

//
// Converts opc quality codes into text strings
//

CString GetQualityText(UINT qnr)
{ CString qstr;

switch(qnr)

{ case OPC_QUALITY_BAD: qstr = "BAD";
break;
case OPC_QUALITY_UNCERTAIN: qstr = "UNCERTAIN";
break;
case OPC_QUALITY_GOOD: qstr = "GOOD";
break;
case OPC_QUALITY_NOT_CONNECTED: qstr = "NOT_CONNECTED";
break;
case OPC_QUALITY_DEVICE_FAILURE:qstr = "DEVICE_FAILURE";
break;
case OPC_QUALITY_SENSOR_FAILURE:qstr = "SENSOR_FAILURE";
break;
case OPC_QUALITY_LAST_KNOWN: qstr = "LAST_KNOWN";
break;
case OPC_QUALITY_COMM_FAILURE: qstr = "COMM_FAILURE";
break;
case OPC_QUALITY_OUT_OF_SERVICE:qstr = "OUT_OF_SERVICE";
break;
case OPC_QUALITY_LAST_USABLE: qstr = "LAST_USABLE";
break;
case OPC_QUALITY_SENSOR_CAL: qstr = "SENSOR_CAL";
break;
case OPC_QUALITY_EGU_EXCEEDED: qstr = "EGU_EXCEEDED";
break;
case OPC_QUALITY_SUB_NORMAL: qstr = "SUB_NORMAL";
break;
case OPC_QUALITY_LOCAL_OVERRIDE:qstr = "LOCAL_OVERRIDE";
break;
default: qstr = "UNKNOWN ERROR";
}
return qstr;
}