VC函数如何转换成Delphi代码？

haj77 2008-02-22 11:14:51

对VC不熟悉，下列VC函数如何转换成Delphi.
void CImageBuffer::ByteToVariant(byte *bData, long bSize, VARIANT *pOutAarry)
{
SAFEARRAY* psa;
SAFEARRAYBOUND rgsabound[1];
rgsabound[0].lLbound = 0;
rgsabound[0].cElements =bSize;
psa = SafeArrayCreate(VT_UI1, 1, rgsabound);

for (long i = 0; i <bSize; i++)
SafeArrayPutElement (psa, &i,bData++);
pOutAarry->vt = VT_ARRAY | VT_UI1;
pOutAarry->parray = psa;}

...全文

57 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

gjw310 2008-02-22

打赏
举报

关注..

sunriseknits 2008-02-22

打赏
举报

顶！

qkhhxkj102 2008-02-22

打赏
举报

就是不会指针

jadeluo 2008-02-22

打赏
举报

试试这个:



procedure ByteToVariant(bData: PByte;  bSize: Longint;  var pOutArray: VARIANT);

var

  pOutData: PByte;

  i : Integer;

begin

  pOutArray := VarArrayCreate([0, bSize - 1], varByte);

  pOutData := VarArrayLock(pOutArray);

  try

    for i := 1 to bSize do

    begin

      pOutData^ := bData^;

      inc(pOutData);

      inc(bData);

    end;

  finally

    VarArrayUnlock(pOutArray);

  end;

end;