5,388
社区成员
发帖
与我相关
我的任务
分享VC函数如何转换成Delphi代码？
对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;}
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;}
...全文
请发表友善的回复…
发表回复
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;
