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

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

日期:2013-02-28 阅读:0num
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

最新文章
  • 有没有用过紫田中原数据基地服务器的? 有没有用过紫田中原数据基地服务器的?

    看紫田介绍是联通的核心机房,带宽貌似很充裕,相同价格下给的也比较足.在 ipip.net 上 ping 了一下,虽说是联通单线的,但是全国各地跨运营商的 ping 值都不错,我是电信的 ping 值也比较小.不知道有没有人用过.有无什么坑? PS : 10 年前紫田事件暂且不提的情况下. --cut-- alect在2016-05-08 17:10:18回答到: 你这说的我倒是很想知道 10 年前什么事情了 cevincheung在2016-05-08 17:10:18回答到: @alect h

  • 华为荣耀畅玩5X按电源键结束通话方法 华为荣耀畅玩5X按电源键结束通话方法

    华为荣耀畅玩5X按电源键结束通话方法.在我们通话的过程中,如果我们想快速结束通话的话除了滑动屏幕结束通话这么麻烦还有其他方法么,下面就让小编来给你们讲下华为荣耀畅玩5X如何快速结束通话吧! 首先我们先打开[设置],然后来到全部设置找到[辅助功能],打开后我们再把[按电源键结束通话]那栏右边的[椭圆]往右拉打开即可.(如下图)

  • 三星S6 edge+如何开启自动重启 三星S6 edge+如何开启自动重启

    S6 edge+如何开启自动重启?三星Galaxy S6 edge+新增了自动重启功能,通过在设定的时间自动优化并安静地重启您的设备,让您的设备运行顺畅.若想开启该功能,请按以下步骤操作: 自动重启条件:1:设备当前未在使用中.2:电池电量超过30%.3:SIM卡锁定已禁用. 1.在标准模式下,向左滑动屏幕. 2.点击[设定]. 3.向上滑动屏幕,点击[备份与重置]. 4.点击[自动重启]. 5.点击[关]右侧滑块,显示[开]代表开启. 6.分别点击[自动重启时间]和[自动重启日],可设置自动重

  • 红薯柿子同吃危害多

    红薯柿子同吃危害多!这个你知道吗?很多人都不注意饮食的搭配,错误的搭配会给身体造成很大的危害,甚至导致疾病的发生.红薯和柿子通吃危害就是很大的. 红薯含有一种氧化酶,这种酶容易在人的胃肠道里产生大量二氧化碳气体,如红薯吃得过多,会使人腹胀.呃逆.放屁.红薯的含糖含量较高,吃多了可刺激胃酸大量分泌,使人感到"烧心".胃由于受到过量胃酸的刺激而收缩加强,胃酸即可倒流进食管,发生吐酸水.另外,红薯的糖分多,身体一时吸收不完,剩余部分停留在肠道里容易发酵,使腹部不适.中医认为,湿阻脾胃.气滞食

  • 史前巨蟒生吞霸王龙 恐龙时代最凶猛动物盘点 史前巨蟒生吞霸王龙 恐龙时代最凶猛动物盘点

    史前生物为了能够在残酷的生存环境中立足,往往体型都长到十分巨大.在最原始的自然界中,弱肉强食的法则亘古不破.今天我们就来一起看看那些最凶猛的史前巨兽. 1.史前巨蟒 一个国际研究小组根据哥伦比亚北部出土的蛇类骨架化石推测,5500万年前生活在南美洲热带地区的一种巨蛇可能是研究者已知蛇类中最长的物种.研究人员将这条巨蛇命名为Titanoboa cerrejonensis.美国佛罗里达大学和巴拿马史密森热带研究所等机构的科学家利用计算机数学模型推测,这种远古巨蛇身至少长13米,体重能达到1.135吨

  • 笑看江湖风云起,看优信二手车的蝴蝶效应

    当一个稳定的市场即将被打破平衡时,所引起的反应是连锁的,就如同在一潭死水中掷入一颗重石,所引起的不仅是水花,还有整个湖面的涟漪,这种连锁的反应,会让世界开始更加惊醒和重视:谁投入了这颗重石. 每一次对社会或是生产力的变革,后来者或是革命者都会受到非议,但是成功的人总是以自己强有力的方式和眼光赢到了最后,一只在亚马逊煽动翅膀的蝴蝶,引起了一场风暴.在中国的二手车市场,优信二手车无疑正在扮演蝴蝶这个角色,对中国二手车市场而言,市场一片哗然,而消费者一片鼓舞. 优信二手车,愿做后来居上的强者,引起市场

  • 索尼第二代巨屏旗舰曝光 主打超薄机身 索尼第二代巨屏旗舰曝光 主打超薄机身

    索尼Xperia Z Ultra在发布之初就凭借该机6.44英寸的超大屏幕给了我们不小的震撼,它也是当时首款6.44英寸屏幕的智能手机,也是当时屏幕最大的智能手机,虽然我们没能等到Xperia Z1 Ultra,但从索尼官方的Twiiter来看,似乎索尼Xperia Z2 Ultra离我们不远了. 索尼Twiiter配图 据悉,索尼官方Twiiter表示有"next big thing"将要在本季度发生,并且还配上了一张图片,图片上显示了一个索尼手机的侧面,从电源键我们便能看出它依然采

  • 电脑重装声卡驱动后总是弹出插口已塞入或拔出该怎么办? 电脑重装声卡驱动后总是弹出插口已塞入或拔出该怎么办?

    在更新驱动后,有的电脑总是弹出小窗口,影响上机体验,这里给大家提供一种解决办法. 1.打开右下角的音频管理器 2.点击管理器中的文件样式图标 3.在禁用前面板检测前打勾,并点击确定,这样小窗口提示就不会再弹出了, 注意事项:这个操作并不会影响声卡驱动的正常运行.

  • 多米音乐盒手机版经常跳转到下一首怎么办 多米音乐盒手机版经常跳转到下一首怎么办

    多米音乐盒手机版经常跳转到下一首,请进入多米设置,找到"甩动手机切换歌曲"功能,然后关闭就行了.

  • 怎么使用iCleaner给iphone手机清除系统垃圾 怎么使用iCleaner给iphone手机清除系统垃圾

    现在手机中清除垃圾的软件越来越多,但真正能起到作用的可是少之又少啊,下面我来给大家介绍越狱版手机使用iCleaner给iphone手机清除系统垃圾方法. iphone5在使用一段时间后,系统内会出现很多垃圾文件和信息,虽然ios系统能够自己清除一部分垃圾,但仍旧不够彻底.iCleaner是一款免费的垃圾清理插件,可以非常彻底的给iphone5清理系统垃圾,它能在Cydia中搜索并下载到. 1.安装 在Cydia中搜索iCleaner需要先安装BigBoss源,如果安装了BigBoss却找不到iC

热门推荐
  • 【了不起的实践】AlphaGo之后,企业人工智能应用的几点看法 【了不起的实践】AlphaGo之后,企业人工智能应用的几点看法 AlphaGo和李世石的"人机围棋大战"所引进的社会效应还在不断发酵,它使得"人工智能"从一个大多数人眼中的科幻小说词汇,变成了现实生活中近在咫尺的高逼格存在.事实上,是云计算和大数据的蓬勃发展使人工智能迎来了新的契机,而人工智能也不仅仅意味着一个会下棋的机器人,从手机上的计算器到医疗.教育,到无人机.无人驾驶汽车,到未来可能改变世界的重大变革. 本期<了不起的实践>邀请国际机器人及智能装备产业联盟创始人兼执行主席罗军,揭开AlphaGo战胜李世石背后的
  • 越来越小?迷你版7.9英寸iPad Pro曝光 越来越小?迷你版7.9英寸iPad Pro曝光 在今年的春季新品发布会上,苹果推出了9.7英寸iPad Pro,不过这似乎也没有能扭转苹果整体销量下滑的事实.而近日,就有消息称苹果将会推出新产品--7.9英寸iPad Pro,不知道这越来越小的iPad Pro设备对于沉寂已久的平板市场来说能否激起一点浪花呢? (图源: CNET) 据悉,新迷你版的7.9英寸iPad Pro屏幕大小将会与iPad mini系列一致,同时7.9英寸iPad Pro也将会延续12.9英寸版本的配置,如果真是这样的话,或许就意味着iPad mini系列或被放弃?对此
  • 淘宝金牌卖家也玩“特色”? 淘宝金牌卖家也玩“特色”? 一.什么是特色淘宝金牌卖家? 1.所谓特色就是有与他人不同的地方,特色金牌卖家即是由一些在成交.转化.流量获取等方面具有特色.特出的卖家组成,他们也能享有原有的淘宝金牌卖家享受的权益.但是与现有的淘宝金牌卖家不同,特色金牌卖家的指标和阈值随着特色内容的不同也会各有差异.达到考核标准后,这些具有特色经营能力的卖家才会被授予金牌卖家称号. 2.特色金牌卖家的标准和规则将会随着特色金牌卖家的表现而不断调整,网游和虚拟类目暂不参与特色金牌. 二.特色淘宝金牌卖家可享受的权益有哪些? 1.特色淘宝金牌卖家
  • 最昂贵的免费营销 从QQ商城收费说起 最昂贵的免费营销 从QQ商城收费说起 QQ商城也要收费了,这让那些才逃离淘宝半年的中小商家纠结不已,心中高唱"我想有个店"的他们不得不继续流浪,寻找免费.又有一定人气与知名度的电子商务平台暂时栖身. 其实这样的故事在网络上不停地上演着,只不过没有QQ商城收费吸引眼球而已,最近的例子是,前不久百度知道与众多知名论坛严打AD外链,严打广告,网上骂娘声.哀叹声此起彼伏. "免费是世界上最昂贵的东西",这些中小电商与推广者的厄运让人不由想到了马云这句著名的话,虽然马云这话是对急于牟取更大利润的免费服务提供商说的
  • Photoshop结合LR调出漂亮的萌系美女照片 Photoshop结合LR调出漂亮的萌系美女照片 效果图: 步骤如下: ▲LR界面 ▲PS界面 1.照片裁剪 前期因为诸如镜头.场景等种种原因,可能构图不会尽如人意,这时候就需要通过后期的裁剪来调整合适的构图. 2.数码调色 这里要提到两个常用软件,一个是photo shop(以下简称PS) ,另一个是隶属于photo shop的light room(以下简称LR).LR的内容和功能类似于camera raw,简单实用.上面是原图与调整后的对比图. 首先通过LR做基础的调整 因为色差原因,相机屏幕与电脑屏幕的颜色不会完全一致,如若在电脑上看到白
  • 三星Galaxy A5降噪功能是什么 三星Galaxy A5降噪功能是什么 1.在手机待机的界面上,点击[电话],如下图. 2.点击屏幕右上角的[菜单键],然后选择[设定],如下图. 3.点击[通话],如下图. 4.在[通话]界面中,找到并勾选[降噪]即可开启降噪功能,如下图.
  • win7电脑多窗口显示优化技巧 win7电脑多窗口显示优化技巧 在介绍这个操作之后,大家不妨试试多开窗口,会呈现出如下图中所示的界面,可能对于有强迫症的朋友来说,这样的显示方式真的有些恼火吧?看起来很不舒服,也很影响到以美观著称的win7 32位纯净版,那么是否有办法可以优化win7电脑的多开窗口显示呢?小编有一个小技巧,有兴趣的朋友就来看看吧! 1.在介绍之前,咱们还是来看看小编所说的这种显示方式,大家有兴趣的话就继续看下去吧!如下图中所示: 2.首先,咱们将鼠标移动到下方任务栏中,选择一个空白处点击右键,然后出现的菜单中我们可以看到,显示的方式有层叠窗口
  • 李昇基《那样的人》中文歌词 李昇基《那样的人》中文歌词 李昇基<那样的人>中文歌词 作曲 : PSY/유건형 作词 : PSY 말을 하지 않아도 那些没有说出口的话 알아 얼굴만 봐도 看着你的脸就可以知道 어떤 사람이 널 아프게 했어 某些人曾经让你痛苦 내내 기대 울다가 对他总是充满期待 却还是弄哭了你 내게 너는 물었어 所以你问我 어떤 사람을 만나야 하냐고 到底应该遇到哪一种人才行 너에게는 对你来说 기쁠땐 박수가 되고 开心的时候能为你鼓掌 슬플땐 품을 내주는 悲伤的时候能够给你拥抱 그런 사람이 어울려 那样的人才适合你