怎么在Delphi中打开以前用VB保存在Access中的图片

Question

如题目所述，用VB能直接打开。用delphi会提示Bitmap image is not valid.请知道的给予解答谢谢了。如果需要请留下邮箱我可以把数据库发过去

Answer 1

把delphi调用的程序贴出来看看吧

Answer 2

var
  vj : tjpegimage;
  vms : tmemorystream;
begin
  vj := tjpegimage.Create;
  vms := tmemorystream.Create;
  tblobfield(aq1.FieldByName('ZP')).SaveToStream(vms);
  vj.LoadFromStream(vms);
  i1.Picture.Assign(vj);
  vj.Free;
  vms.Free;
运行这个提示：JPEG error #42.

Answer 3

在vj.LoadFromStream(vms);这一句之前加上
vms.Position:=0;var
  vj : tjpegimage;
  vms : tmemorystream;
begin
  vj := tjpegimage.Create;
  vms := tmemorystream.Create;
  tblobfield(aq1.FieldByName('ZP')).SaveToStream(vms);
  vms.Position:=0;
  vj.LoadFromStream(vms);
  i1.Picture.Assign(vj);
  vj.Free;
  vms.Free;

Answer 4

人家VB有没对图片作加密处理呢?
图片、数据库，与VB 还是DELPHI无关呢

Answer 5

数据没有加密问题解决，结贴了，特别感谢 SuperTitan004 以及其他关心过的朋友