Insert images into the database
VaR
Picnamestr: tnamestr;
Pjpg: tsf-image;
MS: tmemorystream;
Begin
Picnamestr [I]: = self. directorylistbox1.directory + '/' + filelistbox1.items [I];
Image1.picture. loadfromfile (picnamestr [I]);
Pjpg: = tsf-image. 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;