求助VC中Fwrite转成delphi如何实现!

Question

VC :
FILE *pFile = fopen((sSaveDir + sFileName + ".jpg").c_str(), "wb");
if (NULL != pFile)
{
fwrite(pRecvBuf + unHeaderSize, 1, unImgSize, pFile);
fclose(pFile);
}在Delphi中用var
 ams:tmemorystream;
begin
 ams      := Tmemorystream.Create;
// 这里需要调试 不知道如何取
  unImgSize   := Getrecvdatalen(pRecvBuff);
  unHeaderSize:= unDataBlockSize - unImgSize;
  ams.SetSize(unImgSize); 
  move(pRecvBuff[unHeaderSize],ams.memory^,unImgSize);
  ams.SaveToFile('D:\' + sFileName + '.jpg');
  ams.Free;
end;但保存下来的文件图片无法浏览！ 求助！！

Answer 1

你的问题是什么？
不能预览，可能是数据不对。