流的用法。。。。望高人指點。 我的圖片是jpg檔的,但是我用流把圖片存入到mssql數據當中時如果圖片的高度高於450時這張圖片下部份就全是馬賽克了,請問是不是我用流的時候要加入什麼語句呀 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //存储部分参看显示部分//TBlobField(qryShow.FieldbyName('Image')).LoadFromStream(MS);//关键是设置Position//下面是显示部分var strFace:TMemoryStream; bmp:TBitmap;begin if qryShow.IsEmpty then exit; //显示图象 bmp:=TBitmap.Create; strFace:=TMemoryStream.Create; try TBlobField(qryShow.FieldByName('face_image')).SaveToStream(strFace); strFace.Position:=0; bmp.LoadFromStream(strFace); imgFace.Picture.Assign(bmp); finally strFace.Free; end;end; Delphi中WebBrowser控件如何得到当前鼠标所在的超链接? DBGrid如何遍历每一行 Tquery SQL 访问数据库的问题 Dbgrideh表格控件的如何单击直接编辑???? 能不能从一个接口直接继承为一个类 我的blog为什么发表不了文章啊~~~~~~~~~~????????? 用bde访问数据库的问题? 怎样给PANEL控件加个图片背景呀? 如何判断硬盘上某文件(如;*.txt)是否存在? Delphi中对象的Anchors属性是什么东西? 小函数 时间能否加减(字段类型TIME),怎样计算时间差?
//TBlobField(qryShow.FieldbyName('Image')).LoadFromStream(MS);
//关键是设置Position
//下面是显示部分
var
strFace:TMemoryStream;
bmp:TBitmap;
begin
if qryShow.IsEmpty then
exit;
//显示图象
bmp:=TBitmap.Create;
strFace:=TMemoryStream.Create;
try
TBlobField(qryShow.FieldByName('face_image')).SaveToStream(strFace);
strFace.Position:=0;
bmp.LoadFromStream(strFace);
imgFace.Picture.Assign(bmp);
finally
strFace.Free;
end;
end;