如何新建一个图片文件,并把内存数据写入图片文件?

xingzhihao

如题:
如有一段DELPHI源代码如下,如何改写VB的代码,各位高人指教.
fillchar(photo,100,#0);
  Len:=GetPhotoBMP(@photo[1],100*1024);
  fileHandle:=FileCreate('F:\VC++Project\IDCardReader\Debug\photo.bmp');
  if fileHandle<>0  then
  begin
    FileWrite(fileHandle,photo,Len);
    FileClose(fileHandle);
    image1.Picture.LoadFromFile('F:\VC++Project\IDCardReader\Debug\photo.bmp');
  end;
end;

tmtony

可以使用二进制读写文件，不过，图片文件的内容格式比较复杂，要知道向文件中写入什么内容才行

xingzhihao

感谢老大的热心帮助{:soso_e100:}
这个是用 读卡机读取 照片的一段代码，可惜是DELPHI源代码
其中 GetPhotoBMP(@photo[1],100*1024);
是一个读卡机自带的内部函数
作用是把身份证照片读入内存中的photo变量中，然后新建一个BMP文件，用FileWrite函数把photo写入文件中。
求VBA代码。

roych

参考下红尘的上传下载实例试试看？不过创建BMP文件这部分貌似没有。
http://www.office-cn.net/thread-83567-1-1.html