1 var 2 aStream: TMemoryStream; 3 LDataSet: TFDDataSet; // 申请一个FD数据集 4 MyStream: Tmemorystream; 5 MyJPEG: TJpegImage; 6 MyPng: TPngImage; 7 begin 8 inherited; 9 if img2.Picture.Graphic = nil then 10 begin 11 Application.MessageBox('没有图片可以增加！！', '提示', MB_OK + MB_ICONWARNING + MB_TOPMOST); 12 13 end 14 else 15 begin 16 aStream := TMemoryStream.Create(); 17 MyStream := TMemoryStream.Create(); 18 try 19 img2.Picture.SaveToStream(aStream); 20 fdmtPicture.Append; 21 fdmtPicture.FieldByName('p_picture_id').AsLargeInt := getSnowflake; 22 fdmtPicture.FieldByName('p_picture_guid').AsString := GetGUID; 23 fdmtPicture.FieldByName('p_products_id').AsLargeInt := aid; 24 fdmtPicture.FieldByName('p_picture_name').AsString := EditImageName.Text; 25 if img2.Picture.Graphic is TJPEGImage then 26 begin 27 MyJPEG := TJpegImage.Create; 28 MyJPEG.Assign(img2.Picture.Graphic); 29 MyJPEG.CompressionQuality := 10; 30 MyJPEG.Compress; 31 MyJPEG.SaveToStream(MyStream); 32 end; 33 if img2.Picture.Graphic is TPngImage then 34 begin 35 MyPng := TPngImage.Create; 36 MyPng.Assign(img2.Picture.Graphic); 37 MyPng.CompressionLevel := 9; 38 MyPng.SaveToStream(MyStream); 39 end; 40 MyStream.Position := 0; 41 TBlobField(fdmtPicture.FieldByName('p_picture_thumbnail')).LoadFromStream(MyStream); 42 aStream.Position := 0; 43 TBlobField(fdmtPicture.FieldByName('p_picture_image')).LoadFromStream(aStream); 44 fdmtPicture.Post; 45 img2.Picture.Graphic := nil; 46 finally 47 MyStream.free; 48 aStream.Free; 49 end; 50 end;