从数据库中读取图片数据**

loster

请问从数据库中读取图片数据时只能用SQL语句读出数据赋值么？
可以用控件直接读取并显示么？

jiahaiming

如果数据是用x3平台存入的，可以直接用dataedit显示。
方法：
把字段的表现类型设置为图片即可

loster

是用平台导入到表的图片字段中的，可以导进去，但是读不出来，
我想用image 控件显示，能给个小例子么，用image控件显示图片数据

loster

procedure TCT1.Button3Click(Sender: TObject);
var
      ms:TMemoryStream;
      bmtemp:Tbitmap;
  begin
    bmtemp:=Tbitmap.Create;
    ms:=TMemoryStream.Create;
    with   query1   do
    try
        query1.Close;
        query1.CommandText:='select   ZP   from  TB';
        query1.CommandText:='where   BH='+edit1.Text;
        TBlobField(query1.FieldByName('ZP')).SaveToStream(ms);
        ms.Position:=0;
        bmtemp.LoadFromStream(ms);
        image1.Picture.Bitmap:=bmtemp;
        finally
        ms.Free;
        bmtemp.Free;
  end;
  end;

我是用这种方法取的 总提示我 没有ZP 字段，但是数据已经导入到ZP字段中了
还有别的方法读取显示么？

jiahaiming

最初由 loster 发布
[B]是用平台导入到表的图片字段中的，可以导进去，但是读不出来，
我想用image 控件显示，能给个小例子么，用image控件显示图片数据 [/B]

楼主，您是怎么用平台导入到表中的？

loster

最初由 jiahaiming 发布
[B][QUOTE]最初由 loster 发布
[B]是用平台导入到表的图片字段中的，可以导进去，但是读不出来，
我想用image 控件显示，能给个小例子么，用image控件显示图片数据 [..

以下省略...... [/B]

procedure TCT1.Button2Click(Sender: TObject);
begin
  DataSetBroker1.Dataset.Open;
  DataSetBroker1.Dataset.Append;
  DataSetBroker1.Dataset.FieldByName('BH').Value:=Edit1.Text;
  TBlobField(DataSetBroker1.Dataset.FieldByName('ZP')).LoadFromFile(OpenDialog1.FileName);
  DataSetBroker1.Dataset.Post;
  DataSetBroker1.DataSet.ApplyUpdates;
end;
这样导入的
但是不知道读取的语法怎么写，也用这些控件可以实现么？
怎么写

jiahaiming

楼主，有个简单的办法，不用写代码：
1、设置字段的数据类型为二进制流
2、设置字段表现类型为图片
3、用DataEdit表现该字段
   在DataEdit上单击鼠标右键，弹出菜单中有加载图片的选项

loster

最初由 loster 发布
[B][QUOTE]最初由 jiahaiming 发布
[B][QUOTE]最初由 loster 发布
[B]是用平台导入到表的图片字段中的，可以导进去，但是读不出来，
我想用image 控件显示，..

以下省略...... [/B]

这样不行，我想用image展现数据库中存储的图片数据，因为展现之后 我还要对图片进行放大、缩小和漫游的操作，这些操作在数据编辑框中好像没法完成，上面得代码可以顺利的插入图片到数据库的字段中，不能仿照上面得代码反过用么？或者其他的实现方法也行，只要点击按钮就可以根据text框中输入的图片ID、编号等数据从数据库中读取出想应得图片数据并用image控件展现图片

jiahaiming

参考下这个：
http://bbs.justep.com/forum.php?mod=viewthread&tid=25081

jiahaiming

我做了个例子，你参考一下：