chenamo9651的专栏

欢迎光临chenamo9651的博客,请多提意见!

Delphi 数据库中存取图片

将图片插入数据库中
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 数据库 image
下一篇Delphi中使用ActiveX的一些心得
想对作者说点什么? 我来说一句

图片数据库存取.pdf

2009年02月23日 450KB 下载

delphi存取xml

2011年08月19日 497KB 下载

Delphi 二进制图片的存储和读取

2016年07月04日 3.44MB 下载

Delphi ADO 存取图片源代码

2015年04月02日 823KB 下载

没有更多推荐了,返回首页

关闭
关闭