delphi 把圖片存入資料庫

procedure TForm1.Button1Click(Sender: TObject); // 插入圖片過程
var
  Stream:TMemoryStream;
begin
  try
    Stream := TMemoryStream.Create; //  建立記憶體流
    Image1.Picture.Graphic.SaveToStream(Stream);   // 將圖片儲存到記憶體流中
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoQuery1.SQL.Add('Insert into tbltemp (Image) values (:photo)');    // 進行插入操作
    adoQuery1.Parameters.ParamByName('photo').LoadFromStream(Stream,ftBlob); // 讀取儲存的記憶體圖
    adoquery1.ExecSQL;
  finally
    Stream.Free;     // 釋放記憶體流
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); //讀取圖片過程
var
  Stream:TMemoryStream;
  Jpg:TjpegImage;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='SELECT * FROM tbltemp';   // 查詢圖片
  ADOQuery1.Open;
  if not ADOQuery1.FieldByName('Image').IsNull then
  begin
    Stream:=TMemoryStream.Create ;
    Jpg:=TjpegImage.Create ;
    TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(Stream);    // 顯示的轉換為BlobField並儲存到記憶體流
    Stream.Position :=0;
    jpg.LoadFromStream(Stream);    // 載入圖片
    image2.Picture.Assign(Jpg);
  end
  else
  begin
    image2.Picture :=nil;
  end;
end;