Image类型不行。
解决方案 »
- 求Delphi的右侧悬浮窗口实现,内附图。最好是用VCL实现的。
- listview复制到TreeView的问题
- 使用DEPHI怎么实现对文件夹的移动,和创建?
- 应聘的问题:有些在写字楼里单间的公司(只有几个人,墙还是旧的,桌椅都是木的,和老板在一起,单休),值得去吗?
- 回车问题,有兴趣的进来看看。
- 请教:Intraweb可以实现主机域名的绑定吗?
- 请教RichEdit和rtf格式文件之间的问题
- 当用查询控件时,返回多个结果,该怎样区分啊?!谢谢!
- 怎么把.iss文件转成.exe文件啊
- 我下载了TTab95Control改良控件,成功装上了。但在使用用它进行编译时,却提示我未找到dsgnintf.dcu,不知是和原因。希望各位能帮帮忙。
- 好难啊
- delphi中如何檢測內存泄露?高分送﹐在線等﹗急急急。UP有分﹗
你用bmp的存储方法肯定不成。我们就用image存储过ico和jpeg
begin
Q_Worker.Edit ;
TBlobField(Q_Worker.FieldByName('Worker13')).LoadFromFile(PicDlg.FileName);
end;
end;
end;
出错的 ‘Bitmap image is not valid’
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;
if PicDlg.Execute then
begin
Q_Worker.Edit ;
TBlobField(Q_Worker.FieldByName('Worker13')).LoadFromFile(PicDlg.FileName);
end;
end;
end;
如果选取的是*.ICO类型文件,就出错的 ‘Bitmap image is not valid’
如果选取的是*.BMP类型文件,就没问题啊
唉明天中午结帖
你不用它就可以了。