проблема такая:
есть некая COM-dll-ка ( на делфи писаная ( если это значение имеет ) )
она отдает SafeArray:

Код

procedure Calc.SomeProcedure(out SA: PSafeArray); var     bounds: SAFEARRAYBOUND;     i: integer;     idx: array[0..0] of integer;     xxx: double; begin   bounds.cElements := 36;   bounds.lLbound := 0;   SA := SafeArrayCreate(varDouble, 1, bounds);   for i := 0 to 35 do   begin     idx[0] := i;     SafeArrayPutElement(SA, idx, i);     SafeArrayGetElement(SA, idx, xxx);     s := s + IntToStr(i) + ': ' + FormatFloat('0.##', xxx) + #10#13;   end;   ShowMessage(s); end;

( код немного покоцанный, но смысл -- тот )

потом в билдере я вызываю эту процедуру и получаю массив:

Код

LPSAFEARRAY SA = NULL;     FCalcSrv.SomeProcedure(&SA);     //потом работаю с ним:     double DValue;     for (long i = 0; i < 36; i++)     {         SafeArrayGetElement(SA, &i, &DValue);         stringGrid->Cells[1][i] = FormatFloat("0.##", DValue);         //и вот тут начинается самое интересное -- значения в таблице не такие как должны быть -- просто нули и одно/два правильных значения     }

вот мне и интересно -- толи я туплю не по детски, то ли лыжи не едут...

Попробуйте

Код

STDMETHOD CoIBla::GetArray(VARIANT v) {     if((v.vt & VT_ARRAY) && (v.vt & VT_R8))     {         SAFEARRAY *pSA = v.parray;         double *pdbl = NULL;         SafeArrayAccessData(pSA, (void**)&pdbl);         for(int i = 0; i < pSA->rgsabound->cElements; i++)         {             ....pdbl[i];         }         SafeArrayUnaccessData(pSA);     }     return S_OK; }

и куда это совать? в длл-ку? ( забыл сказать: она не моя )
в свой модуль? так длл-ка отдает SAFEARRAY**

Может так?

Код

double * pDValue = NULL; SafeArrayGetElement(,, &pDValue)

нет. и тогда уже:
SafeArrayGetElement(,, pDValue)

stdcall, pascal, safecall, fastcall и т.д. ?? может это
(очень похоже)

тоже вряд ли -- функция из TLB-хи...

_hunter
А клиент из VBA может работать с этим SafeArray?

напрямую нет -- только через варианты ( хотя при чем тут это? )

Цитата(_hunter @ 22.8.2005, 10:01)

напрямую нет -- только через варианты ( хотя при чем тут это?  )

Значит сервер правильно работает. Ошибка у твоего C++ клиента.
_hunter, помог бы, но вот не знаю чем