还是关于存储图片的问题

[gerrylc]

表中有两个字段 id 和 photo, id是自动编号的,photo字段类型我用的是image,现我往表中添加图片,
代码如下:


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
var
Query : TADOQuery;
Stream : TMemoryStream;
begin;
try
Stream := TMemoryStream.Create;
Image1.Picture.Graphic.LoadFromStream(Stream);
Query := TADOQuery.Create(self);
Query.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=meeting';
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('insert image(photo) values (:pho)');
Query.Parameters.ParamByName('pho').LoadFromStream(stream,ftBlob);
Query.ExecSQL;


finally
Stream.Free;
end;
end;




但是报错,错误提示如下:
Project project1.exe raised exception class EJPEG with message
'JPGE error #42'.Process stopped,use Step or Run to Continue.


请问如何解决


如果可以的话,也请告之读取图片和修改图片的方法

[yyjzsl]

关注，顶下

[gerrylc]

怎么没人回答啊自己顶下

[gerrylc]

怎么没人回答啊......

[chb5210]

http://community.csdn.net/Expert/topic/4719/4719997.xml?temp=.2928583


以后自己先搜搜老帖子哈

[gerrylc]

我就是按照这个帖子上写的啊,怎么会出错呢,不明白

[gerrylc]

我知道错在哪里了,一段代码写错了,谢谢你们