Delphi 数据库中存取图片

原创 2006年05月30日 14:57:00
将图片插入数据库中
var 
    picnamestr:Tnamestr;
    pjpg:tjpegimage;
ms:tmemorystream;
   begin
        picnamestr[i]:=self.DirectoryListBox1.Directory+'/'+FileListBox1.Items[i];
        image1.Picture.LoadFromFile(picnamestr[i]);
        pjpg:= TJPEGImage.Create;
        pjpg.Assign(image1.Picture.Graphic);
        MS:=TMemoryStream.create;
        pjpg.SaveToStream(ms);
        qryinsert.Close;
        qryinsert.SQL.Clear;
        qryinsert.SQL.Add('insert into sbtp (id,empname,idcardno,company,pic,pic_name)'
                                   +'values(:id,:empname,:idcardno,:company,pic,pic_name)');
        qryinsert.Parameters.ParamValues['id']:=maxid+1;
        qryinsert.Parameters.ParamValues['empname']:=trim(edtname.Text);
        qryinsert.Parameters.ParamValues['idcardno']:=trim(edtpwd.Text);
        qryinsert.Parameters.ParamValues['company']:=company;
        qryinsert.Parameters.ParamByName('pic').LoadFromStream(ms,ftBlob);
        qryinsert.Parameters.ParamValues['pic_name']:=getname(self.FileListBox1.Items[i]);
        qryinsert.ExecSQL;

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

delphi数据库图片的存取

一、 原理介绍--流式数据的类型及其应用 在Dephi中提供了TStream来支持对流式数据的操作。TStream是万流之源。 但由于它是一个抽象类,故不能被直接使用;而要使用其相应的子类, 如...

delphi三层中怎么保存图片到sqlserver数据库

procedure   TForm1.BitBtn2Click(Sender:   TObject);     //保存图片 var     ms     :TMemoryStream; ...

delphi 中操作 图片保存读取access数据库

Sql数据库可以存放图片这是以前听过,但是一直都没相信的事情,这阵子由于工作需求,遍开始尝试存取,在网上找了很多方法,试了都是可以存,但是却始终取不出来,研究了两天,最终实现了,现将代码共享出来,大家...

小谈c#数据库存取图片的三种方式

第一种方式 文件夹与数据库配合近来做了不少关于这块的功能 ,随着网络的飞速发展,网络存取图片已不再是神话,而成为了一种时尚,如果是你 是用Asp.net开发的话,可能更多的人会考虑使用数据库存储图片的...

Delphi ADO 存取图片源代码

  • 2015-04-02 23:41
  • 823KB
  • 下载

Android 数据库存取图片

数据库中存取图片通常使用两种方式,一种是保存图片所在路径,二是将图片以二进制的形式存储(sqlite3支持BLOB数据类型)。对于两种方法的使用,好像第二种方法不如第一种方法更受程序员欢迎,他们认为,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)