asp中的数组怎么在com中传入并解析处理后传出阿~~

[crazyboy119]

asp中的数组怎么在com中传入并解析处理后传出阿~~
那位达人指点一下~~
搞了二天了，这个问题还是没有解决~~
我现在要做的是实验数据的回归分析，方程拟合等，急需
这个功能，我对com还不是很了解，希望你可以帮一下我~~
主要就是参数的传递我搞不定，总是出错`~
比如说：
void isqt1(double x[],double y[],int n,double a[2],double dt[6]);//一元回归分析，x[],y[]为输入的原始数据数组，n为数组大小，a[2]和dt[6]为返回值
我想把这个封装在atl做的com中然后用asp来调用
interface ICom : IDispatch
{
[id(1), helpstring("method isqt1")] HRESULT isqt1([in]double x[],double y[],int n,[out,retval]double* a[2],double* dt[6]);
};

在atl里面我对safearray和variant类型都不是很熟，不知道怎么用~

[crazyboy119]

晕，怎么就没人回复阿
自己顶一下先

[LeeZi]

// VC

HRESULT isqtl([in] VARIANT x, [in] VARIANT y, [out, retval] VARIANT* out);

isqtl(VARIANT x, VARIANT y, VARIANT *out)
{
if (out == NULL)
return E_POINTER;

if (x.vt != (VT_VARIANT | VT_BYREF))
return E_INVALIDARG;

if (!(x.pvarVal->vt & VT_ARRAY))
return E_INVALIDARG;

if (y.vt != (VT_VARIANT | VT_BYREF))
return E_INVALIDARG;

if (!(y.pvarVal->vt & VT_ARRAY))
return E_INVALIDARG;

SAFEARRAY* pX = NULL;
SAFEARRAY* pY = NULL;

if (x.pvarVal->vt & VT_BYREF)
pX = *(x.pvarVal->pparray);
else
pX = x.pvarVal->parray;

if (y.pvarVal->vt & VT_BYREF)
pY = *(y.pvarVal->pparray);
else
pY = y.pvarVal->parray;

if (::SafeArrayGetDim(pX) != 1)
return E_INVALIDARG;
if (::SafeArrayGetDim(pY) != 1)
return E_INVALIDARG;

LONG LBound, UBound;
::SafeArrayGetLBound(pX, 1, &LBound);
::SafeArrayGetUBound(pX, 1, &UBound);
LONG Count = UBound - LBound + 1;
::SafeArrayGetLBound(pY, 1, &LBound);
::SafeArrayGetUBound(pY, 1, &UBound);
if ((UBound - LBound + 1) != Count)
return E_INVALIDARG;

vector<DOUBLE> vx;
vector<DOUBLE> vy;

_variant_t v;
VARIANT* pvData = NULL;
::SafeArrayAccessData(pX, (void**)&pvData);
for (LONG i=0; i<Count; ++i)
{
v = pvData[i];
v.ChangeType(VT_R8);
vx.push_back(v.dblVal);
}
::SafeArrayUnaccessData(pX);

::SafeArrayAccessData(pY, (void**)&pvData);
for (i=0; i<Count; ++i)
{
v = pvData[i];
v.ChangeType(VT_R8);
vy.push_back(v.dblVal);
}
::SafeArrayUnaccessData(pY);

v.Clear();
v.vt = VT_VARIANT | VT_ARRAY;
v.parray = ::SafeArrayCreateVector(VT_VARIANT, 0, 8);

VARIANT* pd = NULL;
::SafeArrayAccessData(v.parray, (void**)&pd);
pd[0] = _variant_t(vx[0]).Detach();
pd[1] = _variant_t(vx[1]).Detach();
pd[2] = _variant_t(vy[0]).Detach();
pd[3] = _variant_t(vy[1]).Detach();
pd[4] = _variant_t(vy[2]).Detach();
pd[5] = _variant_t(vy[0]).Detach();
pd[6] = _variant_t(vy[1]).Detach();
pd[7] = _variant_t(vy[2]).Detach();
::SafeArrayUnaccessData(v.parray);

*out = v.Detach();
return S_OK;
}

//我直接取X的前两个，重复取Y的前三位返回,具体的自己写吧。
//应该还有错误处理，我省了。
========================================================================
//asp
Dim obj
set obj = CraeteObject(...)

Dim a(4)
For I = 0 To 4
a(I) = I + 1
Next

Dim b(4)
For I = 0 TO 4
b(I) = I * I
Next

dim Sum
Sum = obj.isqtl(a, b)

if (IsArray(sum)) Then
for j = LBound(sum) To UBound(sum)
Response.Write CStr(sum(j)) & "<BR>"
Next
End if

[ColderRain]

HRESULT Proc1(
[in] short m;
[in, size_is(m)] short a[]); // If m = 10, a[10]
HRESULT Proc2(
[in] short m;
[in, size_is(m)] short b[][20]); // If m = 10, b[10][20]
HRESULT Proc3(
[in] short m;
[size_is(m)] short * pshort); /* Specifies a pointer
to an m-sized block of shorts */
HRESULT Proc4(
[in] short m;
[size_is( , m)] short ** ppshort); /* Specifies a pointer
to a pointer to an m-sized
block of shorts */
HRESULT Proc5(
[in] short m;
[size_is(m ,)] short ** ppshort); /* Specifies an
m-sized block of pointers
to shorts */
HRESULT Proc6(
[in] short m;
[in] short n;
[size_is(m,n)] short ** ppshort); /* Specifies a pointer to an
m-sized block of pointers, each
of which points to an n-sized
block of shorts.*/
HRESULT Proc7(
[out] long * pSize,
[out, size_is( , *pSize)] my_type ** ppMyType); /* Specifies a pointer
to a sized pointer,
which points to a block
of my_types, whose size is
unknown when the stub
calls the server. */

[crazyboy119]

感谢上面两位大虾的帮忙，在你们的帮助下，我已经成功解决这个问题~~