可当我存jpg图片的时候就报错! "无法将一个tpicture分配给一个tblobfield" 这是为什么?? 我的代码如下: var pp:tpicture; begin //vmaoeidt;2001-9-5; if openpicturedialog1.Execute then begin pp:=Tpicture.Create ; try pp.LoadFromFile(openpicturedialog1.filename); datamodule1.TBItem.Edit; datamodule1.tbitem.FieldByName('图片').Assign(pp); datamodule1.tbitem.Post ; finally pp.Free; end; end;
我uses jpeg就不报错了! 我改为这样 if openpicturedialog1.Execute then begin query1.Edit; dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName); query1.Post ; end; 存jpg图片不报错!但dbimage为什么看不到! 是没存进去还是不能显示??
我是通过ODBC访问的!!
没有BLOB SIZE属性呀??
我就是在BDE的abin里设置的!还是不好用!!!
现在好了!
原来是我的BDE坏了!我重装98就好了!
重装delphi没用!不知是不是和我上次升级BDE有关!
你知道为什么不能存JPEG图片到数据库吗??
"无法将一个tpicture分配给一个tblobfield"
这是为什么??
我的代码如下:
var
pp:tpicture;
begin
//vmaoeidt;2001-9-5;
if openpicturedialog1.Execute then
begin
pp:=Tpicture.Create ;
try
pp.LoadFromFile(openpicturedialog1.filename);
datamodule1.TBItem.Edit;
datamodule1.tbitem.FieldByName('图片').Assign(pp);
datamodule1.tbitem.Post ;
finally
pp.Free;
end;
end;
我改为这样
if openpicturedialog1.Execute then
begin
query1.Edit;
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
query1.Post ;
end;
存jpg图片不报错!但dbimage为什么看不到!
是没存进去还是不能显示??
如果用dbimage不行的话,干脆用TImage
按道理的话!就算存不进也应该报错才是!!
竟然加了uses jpeg后既不报错!又存不进!!
var
FStream: TStream;
FJpeg: TJPEGImage; FJpeg := TJPEGImage.Create;
FStream := TBlobStream.Create(TBlobField(DataSet.FieldByName('ImageField'), bmRead);
try
FJpeg.LoadFromStream(FStream);
Image1.Picture.Assign(FJpeg);
finally
FStream.Free
end这不是数据库存不进,而是DBIMAGE不显示罢了。
这几天被WEB SERVICE整的稀里糊涂,还是.net做的爽,Delphi到现在我还没弄通。
QQ是不能用的,很多MM找我聊天(鬼知道是真MM,还是假MM),真受不了。
休息去了,晚安