用 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;