我在DBNavigator控件中的click事件中写的代码:如下,想实现当点击向前,或向后按钮时,实现image中的图片也跟着改变 ,可是下面的代码只能显示第一个数据纪录中图片,请教应该怎么改,才能达到image中的图片也在改变
var ms:TMemoryStream;
jpg:TJPEGImage;
begin
ms:=TMemoryStream.Create;
Jpg:=TJPEGImage.Create;
TBlobField(DBNavigator1.datasource.dataset.FieldByName('picture')).SaveToStream(ms);
ms.Position :=0;
Jpg.LoadFromStream(ms);
Image1.Picture.Assign(Jpg);
ms.Free;
jpg.free;
image1.refresh
end;
var ms:TMemoryStream;
jpg:TJPEGImage;
begin
ms:=TMemoryStream.Create;
Jpg:=TJPEGImage.Create;
TBlobField(DBNavigator1.datasource.dataset.FieldByName('picture')).SaveToStream(ms);
ms.Position :=0;
Jpg.LoadFromStream(ms);
Image1.Picture.Assign(Jpg);
ms.Free;
jpg.free;
image1.refresh
end;
解决方案 »
- 求,动态生成控件代码
- TWordapplication的问题
- Delphi 2005 火热下载!!!!!!!
- tcxtreelist 每个 node设置不同properties 有人解决吗?QQ281482913 在线等!
- 如何开发语音催缴系统
- 关于OPENDIALOG问题
- 求助,如何从flash动画提取画面上每一点的color,保存为hex文件或者bin文件
- soap /web server思考
- Delphi 中Application 是什么对象?与TForm有何关系?
- delphi6的midas与delphi5有那些不同?
- 如何使用dbgrid中的一组数据!
- ********希捷和西部数据,哪个牌子的硬盘好,后天想去买一块*********
需要修改的很少吧,胜利就在自己手里了,还何必出来问呢?