? ? 我們平常要和圖片打交道，那么我們如何把圖片存在數據庫中呢？

? ??-------------------------------------------------------------------------------------------------美麗分割線---------------------------

? ?年代：2007

? ?文件：My0919.7z

? ?程序運行效果如下圖：

? ?

? ?

? ?單元文件：

? ?Unit1.pas

?

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ADODB, StdCtrls, ExtCtrls, ExtDlgs, LoadSaveImg, DBCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;ADOConnection1: TADOConnection;ADODataSet1: TADODataSet;OpenPictureDialog1: TOpenPictureDialog;Button3: TButton;ADODataSet1car_number: TStringField;ADODataSet1pic1: TBlobField;DataSource1: TDataSource;DBNavigator1: TDBNavigator;Image1: TImage;DBMemo1: TDBMemo;procedure Button1Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }TS: TMemoryStream;LSI: TLSImg;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); varFName, FType: string; beginOpenPictureDialog1.Filter := GraphicFilter(TGraphic);if OpenPictureDialog1.Execute thenbeginFName := OpenPictureDialog1.Files.Strings[0];FType := Copy(FName, LastDelimiter(' .', FName) + 1, Length(Fname) - LastDelimiter(' .', Fname));LSI := TLSImg.Create;if LSI.GetImgType(FType) <> 0 thenbeginTS := TMemoryStream.Create;LSI.Picture.Graphic.LoadFromFile(FName);LSI.SaveToStream(TS);with ADODataSet1 dobegintryAppend;(Fields[1] as TBlobField).LoadFromStream(TS);Post;exceptraiseend;end;TS.Free;end;LSI.Free;end; end;procedure TForm1.Button3Click(Sender: TObject); begin//ADOConnection1.Close;ADOConnection1.Open;Application.MessageBox('connection success!','hint',0);//ADODataSet1.Close;ADODataSet1.CommandText:='select car_number,pic1 from totalTable';ADODataSet1.Open;Application.MessageBox('query success!','hint',0); end;procedure TForm1.Button2Click(Sender: TObject); beginwith ADODataSet1 dobeginif not Eof thenbeginLSI := TLSImg.Create;TS := TMemoryStream.Create;(Fields[1] as TBlobField).SaveToStream(TS);LSI.LoadFromStream(TS);Image1.Picture := LSI.Picture;TS.Free;LSI.Free;end;end; end;end.

?

?

?

轉載于:https://www.cnblogs.com/snake-hand/archive/2013/06/10/3131116.html

總結

以上是生活随笔為你收集整理的我的学习生涯（Delphi篇） - 21的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。