...
//Пакуем массив в VARIANT
V_VT(vtOutRecordsArray) = VT_ARRAY | VT_VARIANT;
V_ARRAY(vtOutRecordsArray) = pSA;
...
И еще одна особенность - я не блокирую SAFEARRAY (SafeArrayLock(psa);), может в этом дело (хотя не должно быть). Попробуйте так запаковать.
Ниже клиентский код по распаковке. Клиентский компонент по отношению к серверному работает с ASP страницей (но не суть важно). На HTML тэги можно не обращать внимания
Такой подход работает (создано лично), если проблемы не исправятся будем думать дальше.
Надеюсь поможет
Тим
=========================================================================
На сервере:
=========================================================================
void CSmartADO::FillArrayFromRecordset(VARIANT *vtOutRecordsArray)
{
if (m_spRecordset)
{
//Число записей в наборе
long lRecordsCount = 0;
//Определяем число записей в наборе
while (!m_spRecordset->adoEOF)
{
m_spRecordset->MoveNext();
lRecordsCount++;
}
if (lRecordsCount > 0)
{
m_spRecordset->MoveFirst();
}
SAFEARRAY *pSA;
SAFEARRAYBOUND aDim[2];
aDim[0].lLbound = 0;
aDim[0].cElements = lRecordsCount + 1; //Помимо строк заносим еще и имена полей, поэтому + 1
aDim[1].lLbound = 0;
aDim[1].cElements = m_spRecordset->GetFields()->GetCount(); //По числу полей в наборе
long l[2];
int i, j;
_variant_t vt;
//Создаем массив
pSA = SafeArrayCreate(VT_VARIANT, 2, aDim);
if (pSA)
{
//Заносим в первую строку массива имена полей из набора
for (i = 0; i < m_spRecordset->GetFields()->GetCount(); i++)
{
l[0] = 0; l[1] = i;
vt = m_spRecordset->GetFields()->GetItem((CComVariant)i)->GetName();
SafeArrayPutElement(pSA, l, &vt);
}
j = 1;
//Пробегаем по всем записям и заносим их в массив
while (!m_spRecordset->adoEOF)
{
for (i = 0; i < m_spRecordset->GetFields()->GetCount(); i++)
{
l[0] = j; l[1] = i;
vt = m_spRecordset->GetFields()->GetItem((CComVariant)i)->GetValue();
SafeArrayPutElement(pSA, l, &vt);
}
j++;
m_spRecordset->MoveNext();
}
}
else
{
throw;
}
//Удаляем набор данных (больше он не нужен, т.к. данные в массиве)
m_spRecordset->Close();
m_spRecordset.Release();
//Пакуем массив в VARIANT
V_VT(vtOutRecordsArray) = VT_ARRAY | VT_VARIANT;
V_ARRAY(vtOutRecordsArray) = pSA;
}
else
{
//Возвращаем пустой указатель
V_VT(vtOutRecordsArray) = VT_ARRAY | VT_VARIANT;
V_ARRAY(vtOutRecordsArray) = NULL;
//throw;
}
}
=========================================================================
На клиенте:
=========================================================================
void CCertificate::DrawCalculations(VARIANT *pvtArray)
{
HRESULT hr;
SAFEARRAY *psa = NULL;
LONG lLBound1, lUBound1, lLBound2, lUBound2;
LONG lInd[2];
VARIANT vtValue;
//Присваиваем указатель на SAFEARRAY в переменную psa из варианта
psa = pvtArray->parray;
//m_pIResponse->Write((_variant_t)"Определение границ массива...<BR>");
//Узнаем границы массива
SafeArrayGetLBound(psa, 1, &lLBound1);
SafeArrayGetUBound(psa, 1, &lUBound1);
SafeArrayGetLBound(psa, 2, &lLBound2);
SafeArrayGetUBound(psa, 2, &lUBound2);
//m_pIResponse->Write((_variant_t)"Обход массива...<BR>");
//Производим отображение данных
m_pIResponse->Write((_variant_t)"<TABLE border=2>");
for (LONG i = lLBound1; i <= lUBound1; i++)
{
m_pIResponse->Write((_variant_t)"<TR>");
for (LONG j = lLBound2; j <= lUBound2; j++)
{
lInd[0] = i; lInd[1] = j;
hr = SafeArrayGetElement(psa, lInd, &vtValue);
if (FAILED(hr)) _com_issue_error(hr);
m_pIResponse->Write((_variant_t)"<TD>");
m_pIResponse->Write(vtValue);
m_pIResponse->Write((_variant_t)"</TD>");
}
m_pIResponse->Write((_variant_t)"</TR>");
}
m_pIResponse->Write((_variant_t)"</TABLE>");
//m_pIResponse->Write((_variant_t)"Удаление массива...<BR>");
//Не забываем удалить массив (SmartADOComponent - создает, а здесь - удаляем)
hr = SafeArrayDestroy(psa);
if (FAILED(hr)) _com_issue_error(hr);
}