表中有两个字段 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.
请问如何解决
如果可以的话,也请告之读取图片和修改图片的方法
代码如下:
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.
请问如何解决
如果可以的话,也请告之读取图片和修改图片的方法
解决方案 »
- 句柄 ?
- 开源的控件 对象按下ctrl,就可以查看源代码?
- 有用过unidac的朋友吗?
- Drawtext 用法
- 收藏 不显示删除回复显示所有回复显示星级回复显示得分回复 dxDbgrid控件根据内容显示颜色
- BDE+MSSQL打包问题!~
- 哪里有dbexpress for mysql4.1的驱动阿,现在的是3.2的驱动(最好是C++Builder的)。
- 如何实现用鼠标左键点击Button弹出快捷菜单Popupmenu?
- 出現錯誤,‘找不到要更新的資料列,最後讀取的值已被改變’
- 简单问题
- Delphi类库中可有像JAVA中的Collection,Set,List, Map 这样的类,是否需要自己实现?谢谢!
- 请教如何实现远程对数据库的操作?
以后自己先搜搜老帖子哈