插入修改 保存图象
bmtemp:=tbitmap.create;
ms:=tmemorystream.create;
try
qryface.close;
qryface.sql.clear;
qryface.sql.add('update video_face_image set face_image2=:face_image2');
qryface.sql.add(format('where event_id=%d',[qryprepare.fieldbyname('event_id').asinteger]));
bmtemp.loadfromfile('c:\face2.bmp');
bmtemp.savetostream(ms);
qryface.parameters.parambyname('face_image2').loadfromstream(ms,ftblob);
finally
ms.free;
bmtemp.free;
end;
如何在image组件中显示
bmtemp:=tbitmap.create;
ms:=tmemorystream.create;
try
tblobfield(qryface.fieldbyname('face_image1')).savetostream(ms);
ms.position:=0; //最最重要的一点
bmtemp.loadfromstream(ms);
imgface1.picture.bitmap:=bmtemp;
finally
ms.free;
bmtemp.free;
end;