access ole对象中的图片如何转存到sqlite中

凡人晓悟

如题，想将access数据库转换成sqlite ，其中有ole对象的字段存放图片，如何做？

凡人晓悟

最后将图片用dbtools 导入到sqlite中，图象可以在sqlite expert中显示出来，但我要用image1显示时却出现jpeg err的错误，代码如下，帮看看有什么错误。
var
  mem:Tstream;
  jpeg:TJpegimage;

begin
  jpeg:=TJpegimage.Create;
  mem:=zquery1.CreateBlobStream(zquery1.FieldByName('相片'),bmRead);
  mem.Position:=0;
  if mem.Size>0 then
  begin
    jpeg.LoadFromStream(mem);
    image1.Picture.Assign(jpeg);
  end;

凡人晓悟

使用如下代码，仍提示jpeg error

tblobfield(zquery1.FieldByName('a9901')).SaveToFile('temp.jpg');
  image1.Picture.LoadFromFile('temp.jpg');

凡人晓悟

自已解决了，是zero控件的问题
我用lazarus自带的sqliteconn连接就解决了。

samsam598

凡人晓悟:自已解决了，是zero控件的问题
我用lazarus自带的sqliteconn连接就解决了。 (2011-12-16 01:59)

zero有问题？俺怎么没碰上？

2. uses
3.   classes, sysutils, db, fileutil, forms, controls, graphics, dialogs, DbCtrls,
4.   StdCtrls, Buttons, ZConnection, ZDataset, ZAbstractDataset,lconvencoding,fpimage;
6. type
8.   { tform1 }
10.   tform1 = class(tform)
11.     datasource1: tdatasource;
12.     dbtxtid: TDBEdit;
13.     dbtxtpath: TDBEdit;
14.     dbimage1: tdbimage;
15.     dbnavigator1: tdbnavigator;
16.     label1: tlabel;
17.     label2: tlabel;
18.     opendialog1: topendialog;
19.     speedbutton1: tspeedbutton;
20.     zconnection1: tzconnection;
21.     zquery1: tzquery;
22.    
23.     procedure writeimagetodb;
24.     procedure readimagefromdb;
28.   private
29.     { private declarations }
30.   public
31.     { public declarations }
32.   end;
35. var
36.   form1: tform1;
37.   fstream:tstream;
38.   fpicture:tjpegimage;
41. implementation
43. {$R *.lfm}
45. { tform1 }
49. procedure tform1.writeimagetodb;
50. begin
52.   try
54.     tblobfield(zquery1.fieldbyname('picture')).LoadFromFile(utf8tocp936(dbtxtpath.text));
56.   except
57.     on e:exception do
58.     showmessage(e.Message);
60.   end;
62. end;
64. procedure tform1.readimagefromdb;
65. begin
66.   if not (tblobfield(zquery1.FieldByName('picture')).IsNull) then
67.      begin
68.        fstream:=zquery1.CreateBlobStream(zquery1.FieldByName('picture'),bmread);
69.        fpicture:=tjpegimage.create;
71.        try
72.        fpicture.LoadFromStream(fstream);
73.        dbimage1.Picture.Assign(fpicture);
74.        finally
75.          fstream.Free;
76.          fpicture.Free;
77.        end;
78.      end;
80. end;

复制代码

凡人晓悟

我用的是ZEOSDBO7.0 sqlite 3..7.9  ，数据是用dbmanage3.4.7(dbmanage3.3.1导入的其他sqlite管理工具不能识别）从原有access中导入。用ZConnection1连接后其他字段可正常显示，图片不能显示，提示jpeg 错误，改用自带的SQLite3Connection1连接，可正常显示图片。

richard9902

我用的是ZEOSDBO7.0 sqlite 3..7.9  ，数据是用dbmanage3.4.7(dbmanage3.3.1导入的其他sqlite管理工具不能识别）