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;

浅谈对数据库模型进行性能优化：【上一篇】
SQL SERVER 中查找无相关性的表、查找触发器的SQL语句：【下一篇】