社区
数据库相关
帖子详情
这个问题帮忙解决一下
jaybrownpage
2006-03-02 02:50:17
我怎么把图形上传到ACCESS,sql数据库当中,然后又是怎么读取,显示出来,希望给充代码与比较祥细的注释!谢谢!
...全文
79
3
打赏
收藏
这个问题帮忙解决一下
我怎么把图形上传到ACCESS,sql数据库当中,然后又是怎么读取,显示出来,希望给充代码与比较祥细的注释!谢谢!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chb5210
2006-03-06
打赏
举报
回复
给你一个插入数据库SQL SERVER 的
uses jpeg;
procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程
var
testStream:TMemoryStream;
begin
try
testStream := TMemoryStream.Create; // 创建内存流
Image1.Picture.Graphic.SaveToStream(testStream); // 将图片保存到内存流中
adoquery1.Close;
adoquery1.SQL.Clear;
adoQuery1.SQL.Add('Insert into tbltemp (Image) values (:photo)'); // 进行插入操作
adoQuery1.Parameters.ParamByName('photo').LoadFromStream(testStream,ftBlob); // 读取保存的内存图
adoquery1.ExecSQL;
finally
testStream.Free; // 释放内存流
end;
end;
kv2002
2006-03-06
打赏
举报
回复
这个显示图片方法有点障眼法,感觉不好。参考下好了
var
MyJPEG: TJPEGImage;
begin
Image1.Picture.Graphic := nil;
try
MyJPEG := TJPEGImage.Create;
MyJPEG.Assign(DBGrid.DataSource.DataSet.FieldByName('Photo'));
MyJPEG.SaveToFile('tmp.jpg');
Image1.Picture.LoadFromFile('tmp.jpg');
finally
MyJPEG.Free;
end;
end;
kv2002
2006-03-06
打赏
举报
回复
数据库是 SQLServer
var
BS1: TMemoryStream;
begin
try
BS1 := TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(BS1);
with EmpQuery do
begin
Close;
SQL.Clear;
s1 := 'insert into 表(Photo) values (:pPhoto)';
SQL.Add(s1);
Parameters.ParamByName('pPhoto').LoadFromStream(BS1, ftGraphic);
EXECSQL;
end;
finally
BS1.free;
end;
//显示也类似
解决
Win 10与不兼容VirtualBox操作过程文档+(附带软件).zip
配套博客标题(完美
解决
)升级win10,提示VirtualBox 立即卸载此应用,因为它与Windows 10 不兼容 适用人群:在线更新Windows或者离线更新Windows的人群 ...有
问题
可以私下联系我,如果看到可以
帮忙
远程操作
怎么去思考一个
问题
,提高
解决
问题
的能力
怎么去思考一个
问题
,提高
解决
问题
的能力 前言: #:本文转发自【半路歌雨】 #:http://blog.jboost.cn/think-like-a-programmer.html #:如有侵权,联系即删 技术人员的价值,不在于你能写出多么优美的代码,也不...
利用计算机
解决
实际
问题
,计算机程序可以
解决
哪些实际
问题
你家里想弄个自动化 你就可以用程序控制 你里面软件
问题
···· 什么都有用 就看你仔细想不参考回答:理论上可以
解决
所有和电有关的任何
问题
话题:1、 用计算机
解决
某个实际
问题
的一般过程包括哪几个阶段?...
解决
问题
的科学方法
解决
问题
的科学方法本人思考和总结的一些
解决
问题
的方法和流程。欢迎补充和批评,以及添加一些材料。 一,明确定义,
问题
是什么出现了
问题
,往往忽略了这一步,没有仔细思考
问题
到底是什么,
问题
本质是什么。这有助...
怎样成为
解决
问题
的高手?——关于
问题
解决
的关键4步骤
一个真正的高手,其实应该有能力用一套方法论去
解决
问题
的所有,不管这个
问题
再难,再新鲜,再简单都能搞定。 什么是
问题
?一言以蔽之,
问题
来源于现实与目标的差距。 因此,
问题
产生的原因可能是: ...
数据库相关
2,507
社区成员
88,454
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章