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

Java Webservice 取数据库图片,图片以数组方式传递到Delphi前台显示

login.java public String[] lookImage_Array(Connection conn, String sID) throws SQLException {   ...

delphi实现存储图片到SQL数据库

  • 2017年06月22日 12:04
  • 182KB
  • 下载

DELPHI存取JPEG、BMP图像到数据库完整解决方案

程序代码如下所示: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graph...
  • my98800
  • my98800
  • 2016年08月15日 16:19
  • 2249

Delphi实现在数据库中存取图像

向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图1所示。 图1 主界面 本系统中需要设计一个新的基于Par...

Delphi ADO 存取图片源代码

  • 2015年04月02日 23:41
  • 823KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 数据库中存取图片
举报原因:
原因补充:

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