在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库

原创 2003年07月25日 13:19:00
 

DELPHI中更简单的存取JPEG文件到SQLSERVER数据库<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

王大川(WDCZZH)

 

   最近在CSDN上看到两篇关于《DELPHI中存取JPEG文件到SQLSERVER》中的文章之后,觉得其中讲述的方法虽然有可取之处,但颇费时,我这里有更简单的操作方法,而且安全可靠,不敢一人独享,愿发布出来与大家共享。在Delphi7.0+Win2000+SqlServer 2000中测试通过,运行良好,现将思路、源码公开如下:

解决思路:

1、 关键在于将打开的JPEG文件动态转换为Tbitmap对象并显示在Timage对象中;

2、 将显示的图片提交到数据库中。

本例中在SQLSERVER2000中建立了一个试例表:exam(xm char(10),photo image)

 

程序源代码:

unit SavePic;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtDlgs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons,

  StdCtrls,Jpeg;

 

type

  TForm1 = class(TForm)

    SpeedButton1: TSpeedButton;

    ADOConnection1: TADOConnection;

    Table1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBImage1: TDBImage;

    Image1: TImage;

    SpeedButton2: TSpeedButton;

    OpenPictureDialog1: TOpenPictureDialog;

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    SpeedButton3: TSpeedButton;

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

  bmp1:TBitmap;

  jpg1:TJpegImage;

begin

 

  OpenPictureDialog1.DefaultExt:=GraphicExtension(TJpegimage);

  if OpenPictureDialog1.Execute then

     begin

     bmp1:=TBitmap.Create;

     jpg1:=TJpegImage.Create;

     try

     jpg1.LoadFromFile(OpenPictureDialog1.FileName);

     bmp1.Assign(jpg1);

     Image1.Picture.Bitmap.Assign(bmp1);

     finally

       jpg1.Free;

       bmp1.Free;

     end;

    end;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

  table1.Open;

  table1.insert;

  table1.fieldbyname('xm').asstring:=Edit1.Text;

  table1.FieldByName('photo').Assign(Image1.Picture);

  table1.post;

  table1.Refresh;

end;

end.

  以上就是将JPEG存取到SQLSERVER中的操作方法,本文在此仅是抛砖引玉,希望各位朋友举一反三想出更多、更好、更实用的应用技术,公布到CSDN为大家造福。

欢迎各位朋友来Email交流:wdcwy@tom.com

QQ:11711941

 

在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库-Delphi-编程开发

在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库王大川(WDCZZH) 最近在CSDN上看到两篇关于《DELPHI中存取JPEG文件到SQLSERVER》中的文章之后,觉得其中...
  • java169
  • java169
  • 2008年05月20日 04:17
  • 132

在DELPHI中SQL存取JPEG方法 (转)

D7自带的DBIMAGE只支持BMP文件,要实现JPG才行,不然数据库太大。 / /SQL存储JPEG方法(以D7自带的image控件进行存取,注意此时窗体上不要使用任何dbimage控件,不然总是...
  • onebigday
  • onebigday
  • 2010年03月29日 21:11
  • 2888

Delphi存取JPEG、BMP图像到数据库完整解决方案

 unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,D...
  • aroc_lo
  • aroc_lo
  • 2009年11月26日 14:11
  • 449

delphi使用ADO在sql数据库存取图片的方法

delphi使用ADO在sql数据库存取图片的方法 新手参考,老鸟绕行 我一直不认为能把代码写的和天书一样的程序员是好的程序员,那不过是因为我真的对delphi也就是略懂皮毛,太深了看不懂。 网上...
  • leavesguth
  • leavesguth
  • 2017年07月27日 11:33
  • 299

delphi 把图片存入数据库

procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程var  Stream:TMemoryStream;begin  try    Str...
  • wuheng66888
  • wuheng66888
  • 2006年05月10日 11:50
  • 2132

Delphi SQL数据库存取图片(利用流)

1、存图片到数据库  var    PicStream: TMemoryStream;  if imgBugPic.Picture.Graphic   begin     PicS...
  • my98800
  • my98800
  • 2017年03月27日 08:25
  • 343

DELPHI存取JPEG文件到SQL Server数据库(续文)

                               DELPHI存取JPEG文件到SQL Server数据库(续文)                高红岩(ghyghost)   在"DEL...
  • ghyghost
  • ghyghost
  • 2003年07月21日 08:14
  • 2092

DELPHI存取JPEG文件到SQL Server数据库

             DELPHI存取JPEG文件到SQL Server数据库                  高红岩(ghyghost)近日笔者书写一个小型的学生管理系统时,需要用到ADO控件...
  • ghyghost
  • ghyghost
  • 2003年07月21日 10:17
  • 8123

DELPHI存取JPEG文件到SQL Server数据库 [转]

近日笔者书写一个小型的学生管理系统时,需要用到ADO控件存取SQL Server数据库图片,查看资料发现基本都是针对BMP文件进行操作(巨增数据库大小),但发现了★eagletian★高手翻译的ADO...
  • sweetch
  • sweetch
  • 2004年12月20日 18:40
  • 624

VB/VBA中实现数据库与文件的存取

编程完成数据库与文件的数据相互存取 'VB/VBA中实现数据库中的文件存取 '示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串 ' '*******************...
  • lijil168
  • lijil168
  • 2013年10月04日 18:19
  • 1507
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
举报原因:
原因补充:

(最多只允许输入30个字)