图片保存到数据库及读取到image显示

procedure TForm1.Savebmp;
var
  MyStm:TMemoryStream;
  Jpg:TjpegImage;
begin
  MyStm:=TMemoryStream.Create;
  jpg:=TJPEGImage.Create;
  Jpg.Assign(cxImage1.Picture.Graphic);
  Jpg.SaveToStream(MyStm);
  MyStm.Position:=0;
  ADOQuery1.Edit;
  TBlobField(ADOQuery1.FieldByName('photo')).LoadFromStream(MyStm);
  ADOQuery1.Post;
   messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
  Jpg.Free;
  MyStm.Free;

end;

procedure TForm1.Showbmp;
var
  MyStm:TMemoryStream;
  Jpg:TjpegImage;
begin
  if TBlobField(ADOQuery1.FieldByName('photo')).IsNull then
  begin
    cxImage1.Picture.Bitmap.Assign(nil);
    Exit;
  end;
  MyStm:=TMemoryStream.Create;
  TBlobField(ADOQuery1.FieldByName('photo')).SaveToStream(MyStm);
  MyStm.Position:=0;
  Edit1.Text:=Format('%d',[mystm.Size]);
  jpg:=TJPEGImage.Create;
  Jpg.LoadFromStream(MyStm);
  cxImage1.Picture.Bitmap.Assign(Jpg);
  Jpg.Free;
  MyStm.Free;

end;

uses Clipbrd;

  clipboard :=TClipboard.Create;  //
Image1.Picture.Assign(clipboard);  //从剪贴板读取数据


var gif:TGIFImage;
begin
        gif:=TGIFImage.Create;
        gif.LoadFromFile('38.gif');
        clipboard.Assign(gif);
end;


  clipboard.Free;