高分赠送：vc代码如何转成Delphi代码 ？

[haj77]

VC代码为：
CString path="c:\\1.jpg";
CFile myFile;
byte* data;
if(myFile.Open(path, CFile::modeRead | CFile::typeBinary))
{
UINT filelen=myFile.GetLength();
data = new byte[filelen];
_variant_t outData;
UINT dw=myFile.Read(data,filelen);
if (dw==filelen)
{

theApp.buffer->ByteToVariant(data,filelen,&outData);
myFile.Close();
int x0,x1,y1,y0;
BOOL ok1=theApp.face->FindFace(outData,&x0,&x1,&y0,&y1);
}
}


其中 ByteToVariant 函数为：

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

[jixingzhong]

封装成 dll 供delphi 调用吧 ···

[ToperRay]

自动转换估计不太可行,
你得读懂VC代码,然后用DELPHI实现.

封装成dll最方便。

[Joyfulmath]

楼主先把VC的代码改成标准的C++代码, 移植就可行了

[diudiuqqqq]

用DLL最方便

不想用DLL基本上只能一句一句转化了,前提是要你懂VC和DELPHI的代码