对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;}
解决方案 »
- 我都快疯了,帮帮我吧.....
- 一个相当郁闷的问题
- 怎么开发CORBA客户端?
- 请问delphi中如何控制控件显示的文字的间距
- !!!在线等待一个关于日期的函数。已知一个日期,如何获取下一天日期??
- 如何将自己的应用程序放到鼠标右键的快速连接?
- 有劳你们了!
- 为什末我安装控件时提示我找不到“dsgnintf.dcu”???急谁有?能否发给我!
- (EHLib是针对DBGridEh的),谁有针对DBGrid控件的打印控件?帮助文件应该用什么工具写,方法怎样?
- 求DELPHI开发的二张图片人脸比对的源码啊,可用的,离线的
- 运行一个SQL语句时出现一个提示:ADOQUERY1:COMMANDTEXT does not reture result set! 要点确定才下去,怎么让这个提示不影响以后的程序运行?
- 字符串判断问题
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;