Acess数据库中存取图形及二进制数,字段应为什么类型及如何存取???
解决方案 »
- dbgrideh怎么特殊化处理部分显示数据
- cxGrid如何实现此功能?
- 天气真好
- 求救~~有没有方法让ADODataSet.SaveToFile来保存MYSQL查询后的结果。
- 为什么我用FR做的报表的只能显示一个Master header?谢谢!
- 奶奶的快看看
- 非控制台模式程序,如何在命令行下运行时直接向当前命令行窗口输出?
- Delphi6中如何用ADO连接Oracle数据库?
- 关于使用Dos命令
- 如何解决用Ado控件,当记录集为空关闭时会出现关于EOF的错误?解决后马上给分!!!
- delphi7 的DBEXPRESS问题
- 各位老大,帮帮忙,救救我,adoquery的问题,急急急.......
Ms:TmemoryStream;
MyJPEG:TJpegimage;
///读取
if not (fieldbyname('F_syt').IsNull) then
begin
try
Ms:=TmemoryStream.Create;
MyJPEG:=TJpegimage.Create;
TBlobField(FieldByName('F_syt')).SaveToStream(MS);
MS.Position:=0;
MyJPEG.LoadFromStream(MS);
image1.Picture.Bitmap.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end
else
image1.Picture:=nil;
//示意图保存
if (image1.Picture.Graphic<>nil) then
begin
Jpeg:=TJpegImage.Create;
try
jpeg.Assign(image1.Picture.Graphic);
ms:=Tmemorystream.Create;
jpeg.SaveToStream(ms);
ms.Position:=0;
TBlobField(FieldbyName('F_syt')).LoadFromStream(MS)
finally
jpeg.Free;
ms.Free;
end;
end;