二进制字段
保存:
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出:
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));
保存:
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出:
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));
解决方案 »
- IdTCPServer的OnExecute事件中创建窗体的问题
- Delphi里有字符串数组吗?
- 分不够再加,只求最终结果,谢谢
- 我正在做一个类似聊天的程序,用tcpip,但当公用ip发信息给内部ip时应该怎么做
- 如何修改这样的数据
- 哪里有delphi中使用richedit2.0的资料?
- 如何在delphi中实现windows中net send 发送消息的功能!
- 能用delphi7开发B/S结构的程序吗?
- 我是delphi的初学者,可以告诉我,入门看什么样的书比较好!谢谢!
- ADOConnection不支持查询SQL中XML类型的字段么
- 高手快来!让两个MEMO相同状态
- 多线程程序运行时死掉了(主窗体响应不了消息,新线程也不再工作)
(query1.FieldByName('img') as TBlobField).savetostream(ms);
ms是你保存时候同类型的流