在将图存入数据库时提示‘invalid blob length',怎么解决?在线等...... 使用流和DBIMAGE将图存入数据库时提示‘invalid blob length',图象并不大,SQL-SERVER的IMAGE型字段,如何解决,请帮助,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 FieldByName('Photo').Assign(photo.Picture.Bitmap);这只有bmp格式才可以 var PicStream:TMemorystream; PicStream := TMemorystream.Create(); Self.Image1.Picture.Bitmap.SaveToStream(PicStream); PicStream.Position := 0;然后在这里存如数据库 我是这样作的:就是不行var Dlg: TOpenDialog; Stream: TMemoryStream;begin Dlg := TOpenDialog.Create(Self); Dlg.Title := '请选择文件!'; if Dlg.Execute then begin Stream := TMemoryStream.Create(); Stream.LoadFromFile(Dlg.FileName); table1.Append; Stream.Position := 0; TBlobField(table1.FieldByName('c_bmp')).LoadFromStream(Stream); table1.Post; Stream.Free; Dlg.Free; ShowMessage('文件保存到数据库操作完毕!'); end; 使用BDE连接的数据库就是不行,你用ADO一定行的。我那天也是这个错误,上网找了一天,就是不行,因为我是使用BDE连接SQL SERVER的 bde的参数BLOB SIZE改成大值就OK了 WaitForSingleObject 外部程序时出现假死(未响应)应该怎么办? 谁有好点的CRM 源代码 有看过或改过胜天财务进销存2003版(单机版)的朋友请帮下! 各位大虾,在WINDOWS环境下,如何通过设置注册表禁止使用系统时间? 高手救命! SQL语句问题? 超简单问题!代码如何换行写? try....except on xx do,'xx'应该是什么? 征求意见! 啊啊啊啊啊啊啊啊啊啊阿 varisnull 和 VarIsEmpty 有什麼區別?? Delphi6 + ACCESS 请进来看看,我想中午吃饭前把它给解决了!
PicStream:TMemorystream;
PicStream := TMemorystream.Create();
Self.Image1.Picture.Bitmap.SaveToStream(PicStream);
PicStream.Position := 0;然后在这里存如数据库
var
Dlg: TOpenDialog;
Stream: TMemoryStream;
begin
Dlg := TOpenDialog.Create(Self);
Dlg.Title := '请选择文件!';
if Dlg.Execute then
begin
Stream := TMemoryStream.Create();
Stream.LoadFromFile(Dlg.FileName);
table1.Append;
Stream.Position := 0; TBlobField(table1.FieldByName('c_bmp')).LoadFromStream(Stream);
table1.Post;
Stream.Free;
Dlg.Free;
ShowMessage('文件保存到数据库操作完毕!');
end;
我那天也是这个错误,上网找了一天,就是不行,因为我是使用BDE连接SQL SERVER的