Sql里如何放BMP?
解决方案 »
- 如何用Delphi进行图像编程实现投影图效果?
- 版主请教:Delphi方法问题
- DbIMAGE控件是不透明的,在数据库中没图片时就是一个灰色的框框!怎么让他透明,省点没图片时成了灰色的框影响美观!
- 翻譯!
- 一个超简单的问题
- 关于dll的基本问题
- 哪里有这样的软件呀!!!!
- 怎么样在win2000中注册win98自带的控件Comctl32.ocx
- access做数据库时,如果日期为2002-5-2格式, 能不能查出所有五月份的记录,即不要日,只查2002-5
- 请教:如何在Delphi中导入txt文件到DBGrid中?
- 问题:两人怎样才能以最快速度拥抱在一起?
- SetHeight 不能重载,怎么动态设置高度啊
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;