您的位置：程序门 -> delphi -> windows sdk/api

vc函数如何转换成delphi代码？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vc函数如何转换成delphi代码？

发表于：2008-02-22 11:14:34 楼主

对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;}

发表于：2008-02-22 11:32:381楼得分:0

沙发。，试试

发表于：2008-02-22 14:09:472楼得分:0

试试这个:

delphi（pascal) code


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;

其他资讯