用 ImageEnView 将图片及截图保存到数据库

 

procedure TEditProduct . BitBtn2Click(Sender :  TObject);
var
  I  :   integer ;
  T , NewMake  :   string ;
  MS : TMemoryStream;
  MS2 : TMemoryStream;  
  bmp  :  Tbitmap;
  jpeg  :  Tjpegimage;
begin
     if  not ImageEnView1 . IsEmpty then
    begin
      MS := TMemoryStream . Create;
      ImageEnView1 . IO . SaveToStreamJpeg(MS);
      MS . Position    := 0 ;
      ((MyQuery1 . FieldByname( ' imgbig ' ))  As  TBlobField) . LoadFromStream(MS);
      MS . Free;
      MS2 := TMemoryStream . Create;
      jpeg  :=  Tjpegimage . Create;
      bmp  :=  Tbitmap . Create;
      bmp . Width  :=   200 ;
      bmp . Height  :=   156 ;
      bmp . Canvas . StretchDraw(Rect( 0 ,   0 ,   200 ,   156 ) , ImageenView1 . Bitmap);
      jpeg . Assign(bmp);
      jpeg . SaveToStream(MS2);
      MS2 . Position    := 0 ;
      ((MyQuery1 . FieldByname( ' imgdata ' ))  As  TBlobField) . LoadFromStream(MS2);
      jpeg . Free;
      bmp . Free;
      MS2 . Free;
     end ;
    MyQuery1 . Post;
    MyQuery1 . Edit;
end ;