将图片插入数据库中
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;

发表于 @ 2006年05月30日　14:57:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:基坑测斜数据处理软件实现 | 新一篇:Delphi中使用ActiveX的一些心得