源代码网整理以下數據庫table定義
create table test(image image)
源代码网整理以下delphi程序
ADOQuery1的sql為"select * from test"
源代码网整理以下
unit Unit1;
源代码网整理以下interface
源代码网整理以下uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,JPEG,StdCtrls, Buttons, ExtCtrls, DB, ADODB; 软件开发网 www.mscto.com
源代码网整理以下type
TForm1 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery1image: TBlobField;
源代码网整理以下 procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
源代码网整理以下var
Form1: TForm1;
源代码网整理以下implementation
源代码网整理以下{$R *.dfm}
源代码网整理以下
procedure TForm1.BitBtn1Click(Sender: TObject);
var
jpeg:TJpegImage;
mem:TmemoryStream;
begin
mem:=TmemoryStream.Create;
mem.LoadFromFile("E:AdobeAdobe1.jpg");
ADOQuery1.Insert;
TBlobField(ADOQuery1.FieldByName("Image")).LoadFromStream(mem);
ADOQuery1.Post;
mem.Free;
源代码网整理以下
ADOQuery1.First;
jpeg:=TJpegImage.Create;
TBlobField(ADOQuery1.FieldByName("image")).SaveToFile("E:aa.jpg");
jpeg.LoadFromFile("E:aa.jpg");
Image1.Picture.Assign(jpeg);
jpeg.Free;
deleteFile("E:aa.jpg"); 软件开发网 www.mscto.com
源代码网整理以下end;
源代码网整理以下end.
源代码网整理以下一定要Use JPEG!!!!
通过这个方法，任何可被操作系统识别的文件，都可以载入载出到数据库。
