DELPHI 存取四种图形格式(BMP、EMF、WMF、ICO、JPEG) 到SQL Server 数据库.doc

下载文档 降价啦

62
0
约6.65千字
约 11页
2018-01-01 发布于河南
举报
版权申诉
保障服务

DELPHI 存取四种图形格式(BMP、EMF、WMF、ICO、JPEG) 到SQL Server 数据库.doc

1、本文档共11页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

DELPHI 存取四种图形格式(BMP、EMF、WMF、ICO、JPEG) 到SQL Server 数据库

DELPHI 存取四种图形格式(BMP、EMF、WMF、ICO、JPEG) 到SQL Server 数据库程序根据图形文件的属性，在流文件的头上写入属性和文件长，而后再写入数据库，从数据库中读出数据后根据图形文件的格式，调用相应的驱动。此程序原是写来自用的，觉得我的思路和他的有很大的不同，希望对大家有点启发，有任何问题，概不负责。 LSI.DMF object Form1: TForm1 　Left = 256 　Top = 115 　Width = 452 　Height = 380 　Caption = ’Form1’ 　Color = clBtnFace 　Font.Charset = DEFAULT_CHARSET 　Font.Color = clWindowText 　Font.Height = -11 　Font.Name = ’MS Sans Serif’ 　Font.Style = [] 　OldCreateOrder = False 　OnCreate = FormCreate 　PixelsPerInch = 96 　TextHeight = 13 　object Image1: TImage 　　Left = 152 　　Top = 24 　　Width = 145 　　Height = 177 　　Stretch = True 　end 　object ButtonLoadImg: TButton 　　Left = 56 　　Top = 272 　　Width = 105 　　Height = 25 　　Caption = ’Load Img To DB’ 　　TabOrder = 0 　　OnClick = ButtonLoadImgClick 　end 　object ButtonSaveImg: TButton 　　Left = 264 　　Top = 272 　　Width = 113 　　Height = 25 　　Caption = ’Read Img From DB’ 　　TabOrder = 1 　　OnClick = ButtonSaveImgClick 　end 　object ADOConnection1: TADOConnection 　　Connected = True 　　ConnectionString = 　　　’Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In’ + 　　　’fo=False;Initial Catalog=MYDB;Use Procedure for Prepare=1;Auto T’ + 　　　’ranslate=True;Packet Size=4096;Workstation ID=MY-SERVER;Use E’ + 　　　’ncryption for Data=False;Tag with column collation when possible’ + 　　　’=False’ 　　LoginPrompt = False 　　Mode = cmShareDenyNone 　　Provider = ’SQLOLEDB.1’ 　　Left = 32 　　Top = 40 　end 　object ADOTable1: TADOTable 　　Connection = ADOConnection1 　　CursorType = ctStatic 　　TableName = ’Img’ 　　Left = 32 　　Top = 80 　end 　object OpenPictureDialog1: TOpenPictureDialog 　　Left = 32 　　Top = 128 　end end //…………………………………………………………………………………….. LSI.PAS unit LSI; interface uses 　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 　StdCtrls, ExtCtrls, Db, ADODB, Jpeg, ExtDlgs, LoadSaveImg; type 　TForm1 = class(TForm) 　　Image1: TImage; 　　ButtonLoadImg: TButton; 　　ButtonSaveImg: TButton; 　　ADOConnection1: TADOConnection; 　　ADOTable1: TADOTable; 　　OpenPictureDialog1: TOpenPic