两个image 字段 FieldByName(Image) := FieldByName(Image1) 怎么付值 image1 字段是有图片的了
解决方案 »
- 请教个算法问题?
- 怎么样让用户改桌面主题,但我的界面不走样
- 一个月1万条记录选用什么库
- 能给点提示吗?
- ADO数据库连接SQL,如何定时检查是否连接或者是连接失败?!
- 为什么我的信誉分在我每次结帖之后都会变少?why?
- 如何实现以下功能,在浏览器中选中一段文字,点右键保存到自己的数据库中?
- Rave报表,CDS中包含DataSetField字段,无法显示数据
- brcc32.exe head.rc执行出错
- 请教:我用delphi的execl控件打开了execl程序,当我把execl关闭时,delphi的应用程序怎么知道execl已经关闭,并断开连接并释放内存?
- 求一个字符串比较算法
- delphi cxgrid主从简单问题
或者
var
tmpStream : TMemoryStream;
……
TBlobField(FieldByName(Image1)).SaveToStream(tmpStream);
tmpStream.Seek(0,0);
TBlobField(FieldByName(Image)).LoadFromStream(tmpStream);
stream : TStream;
begin
stream := TMemoryStream.Create;
try
TBlobField(qry1.FieldByName('Image')).SaveToStream(stream);
stream.Position := 0;
TBlobField(qry1.FieldByName('Image1')).LoadFromStream(stream);
finally
stream.free;
end;
这样不行 出来的都是 ? 号