delphi程序绘制jpeg图像源代码

				SQLServer存储图像数据的策略与方法 
				
				--------------------------------------------------------------------------------
				 
				http://www.pcdog.com 2004-12-19 3L工作窒 
				 
				上一页 1 2 
				
				
				
				
				　　使用Remote Data控件建立与远程数据库的连接步骤如下：
				　　1．在Visual Basic的窗体中加入一个Remote Data控件。 ，
				
				　　2．在Remote Data控件DataSourceName属性的下拉列表中选择一个ODBC数据源。例如pubs。
				
				　　3．在Remote Data控件的 
				SQL属性中输入SQL查询语句。例如，Select * from pub_info。
				
				　　2.3 绑定OLE和Remote Data控件实现图像数据的存储与编辑
				
				　　OLE是允许应用程序相互之间交换和显示数据的一项技术，使用OLE，可以从支持OLE技术的任何应用程序中读取信息，也可以在任何支持OLE的程序中显示和编辑它。在Visual Basic中，可利用OLE容器控件与Remote Data控件的绑定，来实现显示、存储和编辑SQL Serve数据库中的image类型数据。
				
				　　1.显示SQL Serve数据库image类型字段的图像数据
				
				　　具体步骤如下：
				　　(1)在加入了Remote Data控件的Visual Basic的窗体中，添加一个OLE容器控件。创建OLE容器控件时，会出现“插入对象’：对话框，此时点击“取消”按钮，不必为该容器指定对象。
				
				　　(2)将OLE容器控件的DataSource属性设置为Remote Data控件的名字，实现控件的绑定。
				
				　　(3)在OLE容器控件。DataField属性的下拉列表中选择要显示的字段名。例如，logo。
				
				　　(4)运行应用程序。对于包含image数据类型的logo字段的数据将在OLE容器控件中显示一幅图像。
				
				　　2.在SQL Sever数据库image类型字段中添加存储图像数据
				
				　　具体步骤如下：
				　　(1)将Remote Data控件的EOFAction属性设置为rdAddNew，实现数据库的数据添加功能。
				
				　　(2)在Visual Baisic的窗体中添加一个CommandButton控件，并编写图像文件嵌入OLE容器控件的程序代码。例如：
				    Private Sub Command_Click()
				
				    OLEl.CreateEmbed“c：＼图片．bmp”
				
				    End Sub 
				
				　　(3)运行应用程序，点击Remote Data控件的记录指示按钮，移动到新的记录，然后点击CommandButton控件按钮，实现图像数据的添加入库操作。
				
				　　3.编辑SQL Serve数据库image数据类型字段的图像数据
				
				　　具体步骤如下：
				
				　　(1)在Visual Basic的窗体中添加一个CommandButton控件，编写对OLE对象的编辑程序代码。例如：
				    Private Sub Command2--_Click()
				
				    OLEl.DoVerb VbOLEOpen
				
				    End Sub  
				
				　　(2)运行应用程序，点击Remote Data控件的记录指示按钮，选择需要编辑的图像，然后点击CommandButton控件按钮，在分隔的应用程序窗口打开对象，进行图像的编辑操作。
				
				　　4、图像文件自动入库方式的实现
				
				　　在数据库的实际应用中，经常需要将图像文件批量存储，以提高数据入库操作的自动化程度。对于图像文件批量存储，在程序代码的编写中，可充分利用OLE容器控件与RemoteData控件的诸多属性和方法，加以实现。
				
				　　具体步骤如下：
				　　(1)将OLE和RemoteData控件的Visible属性设置成False，使OLE和RemoteData控件不可视。
				
				　　(2)建立图像文件的批处理文件。
				
				　　(3)编写以下基本代码，实现批处理功能。
				    Private Sub Command3_Click()
				
				    Dim FileName As String
				
				    Open "c:＼tesffile．txt"ForlnputAs#1注释：打开批处理文件。
				
				    DoWhileNotEOF(1)注释：循环至文件尾。
				
				    Input#l，FileName注释：读入图像文件名。
				
				    MSRDCl.Resultset.AddNew‘结果集添加记录
				
				    OLEl.CreateEmbedFileName‘嵌入图像文件
				
				    MSRDCl.Resultset.Update
				
				    Loop
				
				    Close #1
				
				    End Sub 
				
				　　(4)运行应用程序。点击CommandButton控件按钮，完成图像文件的自动入库。
				
				　　五、结束语
				
				　　随着SQL Serve数据库管理系统功能的不断增强、性能的不断完善，将各类数据完全由数据库管理系统统一存储和管理，已成为技术发展的趋势。只有这样，SQL Serve数据库管理系统的强大功能才能得到充分发挥，数据的安全性才能得到充分的保障，使得诸如数据库复制、数据的转移等许多工作，变得非常简单容易。