保持到数据库中已经用下面的代码解决
TmpImage := TMemoryStream.Create;
TmpJpg := TJPEGImage.Create;
TmpJpg.LoadFromFile(OpenDialog1.FileName);
TmpJpg.SaveToStream(TmpImage);
TmpImage.Position :=0;
Sqlquery1.ParamByName('photo').LoadFromStream(TmpImage,ftBlob);
TmpImage.Free ;
TmpJpg.Free;
读取并显示该如何做?
TmpImage := TMemoryStream.Create;
TmpJpg := TJPEGImage.Create;
TmpJpg.LoadFromFile(OpenDialog1.FileName);
TmpJpg.SaveToStream(TmpImage);
TmpImage.Position :=0;
Sqlquery1.ParamByName('photo').LoadFromStream(TmpImage,ftBlob);
TmpImage.Free ;
TmpJpg.Free;
读取并显示该如何做?
解决方案 »
- 鼠标点击webbrowser1里的一个链接,在webbrowser2里显示,要求cnzz能统计到来路
- 用Database desktop 创建数据库的问题???
- 查询中有关多线程显示的问题,急!!!!
- 如何判断一个字符串是否为有效的日期格式???
- 怎么当方向键VK_LEFT,VK_RIGHT,VK_UP,VK_DOWN 按下的时候,TWinControl捕捉不到WM_KEYDOWN消息?
- 有关treeview的问题。
- 初学这样的,觉得是很简单的思路,但找不出错误,有经验的帮忙看看
- 一个读取最大值的问题(Delphi+Ado+Oracle)在线等候
- 关于delphi调用sqlserver的存储过程的问题,有经验的进来看看!
- 我有三个imagelist控件 我想把三个imagelist里的ico合并在一起???
- MCI 的设备名称与我的别名冲突了,请问,有哪些名称比较容易被误用,我用的是mediaplayer.
- 求教DLL问题,请大家多帮帮忙!
用这个提示“bitmap image not valid” s:=Sqlquery1.CreateBlobStream(sqlQuery1.FieldByName('photo'),bmRead);
Image1.Picture.Bitmap.LoadFromStream(s);
s.Free;
uses jpeg;
保存Image1中的图象至数据库 :
var
Ms:TmemoryStream;
jpg:Tjpegimage;
begin
ms:=TmemoryStream.Create;
Jpg.Assign(Image1.Picture.Graphic);
Jpg.SaveToStream(Ms) ;
Ms.Position :=0;
ADOquery1.append;
TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
ADOquery1.Post;
Ms.Free ;
jpg.free;
end;
从数据库中读取图象到image2中:
Var
Ms:TStringStream;
jpg:Tjpegimage;
begin
Ms:=TstringStream.Create('');
TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
Image2.Picture.Assign(Jpg);
Ms.Free;
jpg.free;
end;///
用这个提示“bitmap image not valid” s:=Sqlquery1.CreateBlobStream(sqlQuery1.FieldByName('photo'),bmRead);
Image1.Picture.Bitmap.LoadFromStream(s);
s.Free;
你的代码改为:
s:=Sqlquery1.CreateBlobStream(sqlQuery1.FieldByName('photo'),bmRead);
Image1.Picture.LoadFromStream(s);
s.Free;
就可以了,就不会报错了。
一定要使用ADOquery吗?to Gui_yun(乘风)
Image1.Picture没有LoadFromStream()啊
Create
Destroy
LoadFromClipboardFormat
LoadFromFile
RegisterClipboardFormat
RegisterFileFormat
RegisterFileFormatRes
SaveToClipboardFormat
SaveToFile
SupportsClipboardFormat
UnregisterGraphicClass
with adoquery1 do
begin
sql.clear;
sql.add('select * from table where name=:'+edit1.text);
open;
Image1.Picture.Bitmap.Assign(FieldByName('photo'));//加载数据库中查找出来的图片到image中
.
.
.
end;