表中有两个字段 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.
请问如何解决
如果可以的话,也请告之读取图片和修改图片的方法