位置:首页 » 技术 » 急求!delphi中将图片保存到Aceess数据中如何做

急求!delphi中将图片保存到Aceess数据中如何做

日期:2013-02-28 阅读:1num
Advertisement

急求!delphi中将图片保存到Aceess数据中怎么做啊
急求!delphi中将图片保存到Aceess数据中怎么做啊

老板的要求是:把客户的合同扫描件(图片)保存到数据库中,还要提供下载功能,也就是从数据库中读出来并且保存为图片文件,谁有这样的源码啊,分享一下啊。分数都给你了啊

------解决方案--------------------
TBlobField(adoquery1.FieldByName('pic')).LoadFromFile('xxxxx');
------解决方案--------------------
采用流方式保存到Aceess/SQL:
fStream:=TMemoryStream.Create;
fStream.LoadFromFile('D:\1.jpg');
adoquery1.append;
TBlobField(adoquery1.FieldByName('pic')).LoadFromStream(fStream);
adoquery1.post;

取出另存:
adoquery1.open;
TBlobField(adoquery1.FieldByName('pic')).SaveToStream(fStream);
fStream.Position:=0;
fStream.SaveToFile('D:\1_1.jpg');
------解决方案--------------------

Delphi(Pascal) code
Parameters.ParamByName('已付').VALUE := LabeledEdit_pay.Text;
        Parameters.ParamByName('备注').VALUE := LabeledEdit_remark.Text;
        if Image1.Picture.Graphic <> nil then
        begin
          MS_Image := TMemoryStream.Create;
          try
            Image1.Picture.Graphic.SaveToStream(MS_Image);
            Parameters.ParamByName('图片').LoadFromStream(MS_Image, ftBLOB);
          finally
            MS_Image.Free;
          end;
        end;
        if ExecSQL = 1 then
        begin
          AddHintToStatusbar(0, '数据添加成功!');
          MessageBeep(MB_ICONINFORMATION);
        end;
------解决方案--------------------  DBImage1.Picture.SaveToFile(ImagePath+DBEdit1.Text+'.BMP');

------解决方案--------------------探讨

TBlobField(adoquery1.FieldByName('pic')).LoadFromFile('xxxxx');

急求!delphi中将图片保存到Aceess数据中如何做的相关内容

相关文章
  • 急求!delphi中将图片保存到Aceess数据中如何做

    急求!delphi中将图片保存到Aceess数据中怎么做啊 急求!delphi中将图片保存到Aceess数据中怎么做啊 老板的要求是:把客户的合同扫描件(图片)保存到数据库中,还要提供下载功能,也就是从数据库中读出来并且保存为图片文件,谁有这样的源码啊,分享一下啊.分数都给你了啊 ------解决方案-------------------- TBlobField(adoquery1.FieldByName('pic')).LoadFromFile('xxxxx'); ------解决方案----

  • DELPHI将图片保存到ORACLE下,二进制流保存到变量存不进去,高分想求,该如何处理

    DELPHI将图片保存到ORACLE下,二进制流保存到变量存不进去,高分想求,急- procedure TForm1.Button1Click(Sender: TObject); var mem:TMemoryStream; begin mem:=TMemoryStream.Create; try if OpenDialog1.Execute then begin mem.LoadFromFile(OpenDialog1.FileName); mem.position:=0; with ADOQ

  • DELPHI将图片保存到ORACLE下,二进制流保存到变量出现有关问题

    DELPHI将图片保存到ORACLE下,二进制流保存到变量出现问题 procedure TForm1.Button1Click(Sender: TObject); var myPicture:TJPEGImage; mem:TMemoryStream; begin mem:=TMemoryStream.Create; myPicture:=TJPEGImage.Create; if(OpenDialog1.Execute()) then begin mem.LoadFromFile(OpenDi

  • 怎么将图片保存到Oracle数据库中

    如何将图片保存到Oracle数据库中 在开发的时候很多地方使用到将图片保存到数据库(Oracle)中,使用的时候直接从数据库中提取出来,避免因为保存路径的问题而找不到图片. //声明需要用到的封装类 Connection conn=null; Statement st=null; ResultSet rs=null; OutputStream output=null; BufferedOutputStream outputStream=null; BufferedInputStream inpu

  • android,怎么把gif格式的图片保存到SD卡中

    android,如何把gif格式的图片保存到SD卡中 我想从网上下载一些gif格式的图片,现在已经可以得到它的Bitmap对象(bmp),要把它保存到SD卡中(file),发现有下面的方法: BufferedOutputStream bos = new BufferedOutputStream(new FileOutputStream(file)); bmp.compress(Bitmap.CompressFormat.JPEG, 80, bos); 但是好像compress()方法只能保存jp

  • 急怎么把TIFF文件保存到oracle数据库中!

    急:如何把TIFF文件保存到oracle数据库中!!! 急:如何把TIFF文件保存到oracle数据库中!!! 还有从oracle中读取该ITFF!! 谢谢各位大侠!! ------解决方案-------------------- TIFF文件是图像文件吧. ------解决方案-------------------- 那就把TIFF文件存入BLOB字段.

  • Android 从网络获取图片保存到SD卡中

    今天做分享功能时,需要把分享的图片保存在SD中,不是本地.把代码分享一下,后面会附上Demo 1.要把图片缓存到SD卡中,需要获取写入数据的权限和创建删除文件的权限,另处,要获取网络,需要从获取上网根限 2.就是正式代码了.需要开一个异步任务请求网络 class MyImageAsync extends AsyncTask{ @Override protected String doInBackground(String... params) { HttpClient httpClient =

  • 将JPG格式图片保存到ACCESS数据表中

    var Ind,i:Integer; FName:string; AJPeg:TJPEGImage; temp:TBitmap; begin if opd1.Execute then begin btnAdd.Enabled:=False; Ind:=Opd1.Files.Count; for i:=0 to Ind-1 do begin FName:=opd1.Files.Strings[i]; Application.ProcessMessages; tbl1.Append; tblPict

  • 急求delphi高手。万分感谢,该如何解决

    急求delphi高手.万分感谢 c语言中的 fgets(c_str,80,wmmdat); sscanf(c_str,"%d%d%d%d%d%d",&m1,&m2,&m3,&m4,&m5,&m6); 这两个语句,改成的delphi的话是怎么弄的啊? 比如我文本中有数据:10 20 30.我想读出这行数,并且使得10赋给变量m,20赋给变量n. 当然,数据中的数据是未知的,而且有很多行. 谢谢大家帮忙了 ------解决方案--------

  • 用VB6写程式从数据库中把某个图片保存到EXCEL的Image控件中(急)解决思路

    用VB6写程式从数据库中把某个图片保存到EXCEL的Image控件中(急) 各位大哥大姐们,请教如下内容: 1.我有一VB6写的程式,主要是从数据库导出数把到EXCEL模板中,现需要从数据库Images字段(图片)保存到EXCEL中的一Image控件中.不知怎样写VB6程式了,谢谢各位! 2.除了在EXCEL中用Image控件,还有其它方法吗? ------解决方案-------------------- 参考这个: 使用流对象保存和显示图片 打开vb6,新建工程. 添加两个按钮,一个image

  • php中将一个对象保存到Session中的方法

    这篇文章主要介绍了php中将一个对象保存到Session中的方法,涉及php操作对象及session的技巧,具有一定参考借鉴价值,需要的朋友可以参考下 本文实例讲述了php中将一个对象保存到Session中的方法.分享给大家供大家参考.具体如下: 要保存对象到session其实很简单,我们可以使用session_register()函数,下面是使用范例 person_class.inc.php如下: ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 1

  • 急求&lt;&lt;Delphi串口通信技术与工程实践&gt;&gt; \《delphi串口通信编程》电子书解决方法

    急求<<Delphi串口通信技术与工程实践>> \<delphi串口通信编程>电子书 最近要开发一个串口通信的程序,急求 < <Delphi串口通信技术与工程实践> > \<delphi串口通信编程>电子书,哈哈.哪位有书传给俺? [email protected] ------解决方案-------------------- 我有!QQ:673600108

  • 急求delphi开发环境界面设置解决方案

    急求delphi开发环境界面设置 记得本人初学delphi的时候,曾经见过有人用过一个工具,可以对delphi的控件栏进行多行排列,用起来很方便,还有辅助调试功能,用起来很顺手,但是不知道叫什么软件,请老虾米们给个提示,谢谢!! ------解决方案-------------------- 去找GExperts 使用菜单: configretion | component palette | multiline tabs

  • 请教怎么将PICTURE控件里的图片保存到ACCESS中去

    请问如何将PICTURE控件里的图片保存到ACCESS中去? 请问如何将PICTURE控件里的图片保存到ACCESS中去? 同样,如何将ACCESS里的图片取出来放入PICTURE中? 最好能给出示例代码,谢谢! ------解决方案-------------------- 首先在access数据库里把要存的图象字段保存为OLE对象, 然后通过程序把图片写入到数据库中即可. 具体可在网上索,或本论坛搜索. ------解决方案-------------------- http://topic.c

  • 跪求在EXCEL2007中利用VBA读取XML文件中指定元素,并将结果保存到CSV文件中。该怎么处理

    跪求在EXCEL2007中利用VBA读取XML文件中指定元素,并将结果保存到CSV文件中. <?xml version="1.0" encoding="utf-8"?> <AppList Name="TEST"> <App id="1"> <standard> <Name>Microsoft Office Word 2003</Name> <Path

  • 把image里的图片(jpeg) 里的图片保存到access2000 ole字段 保存不上呀!该怎么解决

    把image里的图片(jpeg) 里的图片保存到access2000 ole字段 保存不上呀!! 图片显示控件是 image 保存方法是TBlobField(Adoquery1.FieldByName( 'Photo ')).Assign(AviFrame.Image2.Picture); 我测试过了 保存了个5k的 bmp 的图片可以保存 我保存了个 20k的jpeg的图片却保存不进去 ole是空的 我现在图片全是 Jpeg的 如果转换成bmp 的就太大了 (1M) 如何实现jpeg的 acc

  • 急求 delphi xe2 win7上 屏蔽 Ctrl+Alt+Del方法。

    急求 delphi xe2 win7下 屏蔽 Ctrl+Alt+Del方法.. 急求 delphi xe2 win7下 屏蔽 Ctrl+Alt+Del方法.. 早前 xp下 delphi2007 实现过 有个hook控件 直接调用即可 后来ide升级 系统也升级到win7 原来写的 在win7下就失效了 这个问题之前也问了好久 在csdn 一直没有个完美结果 这次还请大侠前来帮忙 谢谢... ------解决方案-------------------- XP下,我都没有实现过,呵呵,帮忙顶了.

  • 关于将图片保存到word中,之后将word导出的有关问题

    关于将图片保存到word中,之后将word导出的问题 有这样一个问题,将一个图片保存到word中,再将word导出.因为数据量很大,所以我不采用生成word文件再下载的方式 首先写上这句 response.setHeader("Content-Disposition", "attachment; filename=print.doc"); 再讲做好的word模板保存成网页格式,再讲源代码复制到jsp中. 现在问题来了,作为图片显示在网页上没问题,只要已导出成word

  • 急求 Delphi编写 三次样条插值函数解决方案

    急求 Delphi编写 三次样条插值函数 哪位大侠有 Delphi编写 三次样条插值函数?急待解决 ------解决方案-------------------- http://download.csdn.net/source/1894278我有VB的例子,你参考一下: ------解决方案-------------------- <常用数值算法丛书 Delphi常用数值算法集>电子书,下一本,里边有.

  • 急求delphi中行列数不固定的统计表,该如何处理

    急求delphi中行列数不固定的统计表 表1 收费类型ID 收费类型名称 分类 01 西药 0 02 成药 0 03 治疗 1 04 检查 1 05 化验 1 06 手术 1 表2 申请时间 申请科室 收费类型ID 费用分类ID 收费项目ID 收费项目金额 2013-11-12 急诊科 03 1 0001 3 2013-11-12 急诊科 03 1 13100 3 2013-11-12 急诊科 04 1 566 0 2013-11-14 急诊科 01 0 1115 67.83 2013-11-1

最新文章
  • 公司的 outlook exchange 邮箱缩进功能无效。

    hi 公司的 outlook 使用缩进功能之后没有效果,大家遇到过这种情况没? 就是这种没有效果. 问了 ithelp 他们也不知道怎么回事 身边的人也没有这个问题呢 大家知道么 --cut--

  • 如果你同时有好几个 OS X 10.10 和 iOS 8 以上的设备,这时来了个电话……

    在同一个房间里,岂不是吵死-- 而且它们的铃声可以全部不一样! --cut-- jsonline在2014-09-18 14:18:1回答到: 快接不就完了. kchum在2014-09-18 14:26:4回答到: FaceTime 也这样的.iPad iPhone MacBook 同时响. aliao0019在2014-09-18 14:26:4回答到: @jsonline 刚才在公司来了个电话,手机和iPad同时响了,铃声还不一样,一下子手忙脚乱搞得好尴尬 lguan在2014-09-18

  • 电子化阅读和纸质阅读究竟还有怎样差异呢? 电子化阅读和纸质阅读究竟还有怎样差异呢?

    e-ink在视觉效果和纸质书籍已经比较接近了,仔细想了想我自己的阅读体验,能够感知到的两者差异主要在于: 1.首先是纸质阅读能够随意翻阅,而电子阅读(如Kindle)主要还是线性翻阅为主:随意翻阅的作用对于我来讲主要在于前后对照,或者是快速略读.当然电子设备通过目录.书签等功能也能实现,但是远没有纸质阅读来得自然. 2.其次是纸质书籍拿在手里其实是对阅读进度的实体感知,比如我翻到某一页,(通过对厚度的观察和触摸)我能通过视觉以及手的触觉非常直观的感知到目前已经读过多少页,还剩多少页,这是一种潜在

  • 充了 30,支持一下 V2ex

    交易尾号:3346 --cut-- Livid在2015-05-02 21:34:3回答到: 收到,谢谢支持!

  • 可爱的动物造型小手袋DIY制作方法 可爱的动物造型小手袋DIY制作方法

    小女孩都喜欢模仿大人,在手上挎一个小的动物小提包.今天,小编就教各位小朋友一起来学习一下手袋的制作方法吧. 需要到的器材如下: 剪刀.胶水.马克笔.毛毡等,具体的方法步骤如下: 第一步,用胶水在一个圆形的步上粘眼睛.嘴巴.鼻子等,然后用笔画出小细节,在另外一块圆形的布料上黏贴尾巴和其余的部位; 第二步,在毛毡上剪类似的布,然后在每一块的上面剪下一小块,这是手柄,也就是跨在小朋友手臂上的; 第三步,在圆形的布料上涂上胶水,包括手柄,将圆的布料对其,然后用胶水粘合在一起,压紧; 第四步,另外的其他类

  • 汉堡如何吃更健康

    蘑菇的营养: 一个大的褐蘑菇(约100克)包含你日常所需维生素B3(烟酸)的38%和维生素B2(核黄素)的12%.B族维生素有助于转化碳水化合物为身体所需的燃料. 制作方法: 1.将400克切碎的褐蘑菇和少量香菜放在搅拌器里慢慢搅拌至糊状. 2.加入一杯(约250ml)面包屑,2汤匙(约30ml)芝麻酱,1/3杯(约75ml)切碎的烤核桃,剁碎的大蒜,1汤匙(约5ml)酱油和干牛至,搅拌均匀. 如果粘性不够,可增加一些面包屑. 冷藏30分钟,制成厚约4.5英寸的肉饼. 3.切少些洋葱圈,少油煎炒

  • 七夕情人节贺词50则(精选)

    1. 值此七夕佳节到来之际,我谨代表月老先生祝天下有情人无情人痴情人薄情人豪情人寡情人多情人真情人七夕节快乐,愿天下有情人终成眷属 2. 想你是一种诱惑,思你是一份煎熬,不爱是一种折磨;见你是一种享受,想你有一种冲动,梦你是一种幸福;伴你是一生所求,爱你一生无求.愿你开心永久! 3. 夜色绮丽,月照七夕;我紧握手机,将真诚与祝愿融汇,编辑字字珠玑,让祝穿越记忆中的往昔,传去我久违的爱意,捎来我依然的气息!祝你幸福安康! 4. 夜朦胧,月朦胧,你侬我侬情意浓;鹊桥边,柳树后,郎情妹意来碰头;剪不断

  • Win8开发者账号注册图文流程 Win8开发者账号注册图文流程

    Windows 8开发者账号注册流程: 1.打开MSDN中文网站,点击"Windows"按钮 2.进入Windows开发中心首页,在导航栏中点击Windows应用商店应用页面 3.进入Windows应用商店应用页面,在导航栏中点击仪表板页面 4.输入您的Microsoft帐户,如果您没有Microsoft帐户,可以选择"立即注册" 5.登录后,系统会要求验证计算机的安全性,请根据要求提交验证码 6.进入"帐户信息"页面,在这里请选择"使

  • 时尚客厅装修误区有哪些方面 时尚客厅装修误区有哪些方面

    首先,小编给大伙介绍时尚客厅最常见的五大误区:1.客厅不宜射灯太多.2.地板砖不应低档化.3.买电线.水管不要图便宜.4.电源插头不要少.5.客厅装修不应软装过多.空间冗余. 看到以上五大误区,您是否在深思,究其原因呢?来,小编给您说道说道. 1.客厅不宜射灯太多:在时下的装潢中,许多工薪家庭都追求灯光带来的美丽.于是他们在家居装潢中尽可能多地安装射灯.但事实上这是一大误区.首先,过多的射灯容易造成安全隐患.这些射灯虽然看似瓦数少,但它们在小小的家居上积聚热量大,短时间内即产生高温,时间一长易引

  • 湖州黄龙宫

    在湖州市北10公里黄龙山麓.1966 年发现.洞主室长45米,宽20米,高20米.系石灰岩溶洞.洞内满布钟乳石,奇形怪状,巨细皆备.最大的一块,正面酷似白玉观音,背面有如临风垂柳.洞顶有钟乳一条,蜿蜒30余米,宛如游龙,首尾鳞爪稀可辨,因以名洞.西侧有许多互通的小洞,诸洞交会处,有石钟乳从数十米高的洞顶"泻"下,状如瀑布.石瀑对面有牛角状的大钟乳近百支,叩击发音悦耳,音色浑厚,清脆不一.按音高低编成石磬,能奏音乐.洞西北 100米处峭壁下,有黄龙洞.俯视状如巨井,阴森深邃.北望太湖,天

热门推荐
  • 内分泌失调不孕应注意的生活习惯 内分泌失调不孕应注意的生活习惯 内分泌失调引起的不孕症状不仅需及时通过治疗调节症状,同时也需要想做妈妈的女性朋友在生活习惯上要特别注意,才能双管齐下,共同作用,让内分泌系统恢复平衡,为迎接新生命的到来做好铺垫.那应注意的生活习惯有哪些呢?如下: 一.改变饮食,少吃油炸食品,动物脂肪,甜食及刺激性食品,要多吃蔬菜和水果,多吃粗粮.黑黄豆,多吃核桃.黑芝蔴.黑木耳.蘑菇.平时可多饮用绿茶,多吃粗纤维含量高的水果及蔬菜等. 二.生活起居要有规律,平时要劳逸结合,充足睡眼,少熬夜;适当的进行快走.慢跑的运动,有条件可以健身房去舒展自己
  • 支招肥胖人士如何挑选减肥茶 支招肥胖人士如何挑选减肥茶 节食者→浓黑乌龙茶 2.减重喝→乌龙减肥茶3.润肠通便→玫瑰荷叶茶 4.消涨通气→荞麦茶 5.消脂美白→柠檬茶 6.腹满积食→普洱茶 7.养胃活血→玫瑰花茶 8.清火排毒→胎菊王 9.丰胸瘦身→葛根粉 10.降脂降压→牛蒡茶.
  • 六种碱性蔬菜煲汤有排毒功效 六种碱性蔬菜煲汤有排毒功效 不少人喜欢用蔬菜煲汤,新鲜又有营养.专家表示,各种新鲜蔬菜是碱性食物,通过消化道进入人体内,可使体液环境呈正常的弱碱性状态,有利于人体内的污染物或毒性物质重新溶解,随尿排出体外,尤其以下几种蔬菜. 哪些碱性食物煲汤有排毒的功效 海带 性寒味咸,有化痰.软坚.降血压的功效.适宜高血压.高血脂.冠心病和动脉硬化病人食用,对老年慢性支气管炎也有很好的疗效.佝偻病.软骨症.骨质疏松患者等都可以多吃海带.海带汤还可以御寒,由于其中含有大量的碘元素,而碘元素有助于刺激甲状腺激素的合成. 白萝卜 其中含有木质
  • 如何像那些网红一样呼风唤雨? 如何像那些网红一样呼风唤雨? 不论是做品牌的,还是写文案的,谁都想呼风唤雨--文章一出,犹如一声令下,千万人转发,无数"自来水"声援支持. 就像前段时间的"六小龄童上不了春晚"的事件,众多网友发愤支持,有的甚至声称"再也不看春晚". 就像在之前的"D8远征FB"事件中,无数D8网友放下手头工作,严密组织,让本站新闻等FB号"寸草不生". 就像罗永浩,让粉丝起来反对不对称手机设计,就真的有大量人疯狂响应. 或者像在互联网时代到来之前,三十
  • 你学会欣赏别人,就成了别人眼里的风景 你学会欣赏别人,就成了别人眼里的风景 挑剔,是指对别的人和事永远不满意.喜欢挑剔的人都觉得自己很完美,又拿着放大镜看别人,满眼望去全是缺点和瑕疵.欣赏,是指会享受美好的事物并领略其中的趣味.会欣赏别人的人,清澈的眼神透着心灵的上善若水,你在桥上看风景,看风景的人在看你. 在L小姐的眼里,世上几乎是没多少好人的,她必须处处提防以免被骗,时时警惕不然全是危险.当然,恋爱还是要谈的,最近她都在忙于各种相亲,也算是一种积极的情感态度.可没过多久L小姐就又心灰灰起来,用她的话说:"渣男全在拼尽全力做暖男,优质男人已经绝迹."总之别人
  • 学习shell脚本之前的基础知识 学习shell脚本之前的基础知识 第十二章 学习 shell脚本之前的基础知识 日常的linux系统管理工作中必不可少的就是shell脚本,如果不会写shell脚本,那么你就不算一个合格的管理员.目前很多单位在招聘linux系统管理员时,shell脚本的编写是必考的项目.有的单位甚至用shell脚本的编写能力来衡量这个linux系统管理员的经验是否丰富.笔者讲这些的目的只有一个,那就是让你认真对待shell脚本,从一开始就要把基础知识掌握牢固,然后要不断的练习,只要你shell脚本写的好,相信你的linux求职路就会轻松的多.笔