IMAGE。PICTURE。BITMAP。ASSING(FILENAME);
解决方案 »
- WebBrowser提交表单,有个验证码要点击文本框才显示,怎么点?
- 放200分,为了提高D版的人气。
- 请问在TStringGrid中可以加入复选框么?DevExpress的cxGrid是不是只能用于数据库啊?
- 各位大虾:如何写这个代码???
- 有沒有朋友幫我解說一下下面的
- 用mapinfo ,在delphi中装什么控件来调用?
- 武汉,招聘有经验的delphi,pb程序员,开发mis。
- 问一下,怎么判断Win98的RunOnce运行结束了呢?(问题有点长,打扰各位了^_*)
- 大虾,请进,关于类
- Get lan ip address in lan
- SHChangeNotifyRegister 不能监视文件大小的变化哦
- 请教一个报表的问题
image1.loadfromfile(filepath);
第三个问题楼上已经解决
应该是
image1.picture.loadfromfile(filepath);
然后你那个图象如果不用第三方控件的话,就只能用image控件了。
下面就是存和读的代码,自个看着办吧。
procedure Tfrmado.ImageDblClick(Sender: TObject);
begin
with topendialog.Create(Self) do
begin
if execute then
begin
if not (adoquery1.State in [dsedit]) then adoquery1.Edit ;
tblobfield(adoquery1.FieldByName('jpg')).LoadFromFile(FileName) ;
end;
end;
end;procedure Tfrmado.DataSource1DataChange(Sender: TObject; Field: TField);
var
jpeg:tjpegimage;
stream :TMemoryStream;
begin
if adoquery1jpg.BlobSize>0 then
begin
jpeg:=tjpegimage.Create;
stream :=TMemoryStream.Create;
tblobfield(adoquery1.FieldByName('jpg')).savetostream(stream);
Stream.Seek(0,soFromBeginning);
jpeg.loadfromstream(stream);
image.Picture.Bitmap.Assign(jpeg);
jpeg.Free;
stream.Free;
end
else
image.Picture:=nil;
end;