1   
2   unit Unit1;
3   
4   interface
5   
6   uses
7     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8     Dialogs, DB, ADODB, StdCtrls, ExtCtrls;
9   
10  type
11    TForm1 = class(TForm)
12      Button1: TButton;
13      ADOConnection1: TADOConnection;
14      Image3: TImage;
15      procedure Button1Click(Sender: TObject);
16    private
17      { Private declarations }
18    public
19      { Public declarations }
20    end;
21  
22  var
23    Form1: TForm1;
24  
25  implementation
26  
27  {$R *.dfm}
28  
29  procedure TForm1.Button1Click(Sender: TObject);
30  
31  var
32    Pic : TADOBlobStream;
33    ADOQuery5Picture:TBlobField;
34  begin
35    Pic := TADOBlobStream.Create(ADOQuery5Picture,bmReadWrite);
36    Image3.Picture.Graphic.SaveToStream(Pic);
37    Pic.Position := 0;
38    ADOQuery5Picture.LoadFromStream(Pic);
39  
40  
41  end;
42  
43  end.
44