Поиск сообщества
Показаны результаты для тегов 'SaveToStream'.
Найдено: 2 результата
-
Следующий код не работает на Android. На Win32 в FBinary записывается примерно 100 килобайт, а на Android - 36 байт. FBinary := TMemoryStream.Create; TStyleStreaming.SaveToStream(AStyleBook.Style, FBinary, TStyleFormat.Binary); -
TBitmapSurface [Android] Как изменить качество изображения?
estra опубликовал вопрос в Качество изображения
Как изменить качество (Quality) изображения? Написал такую функцию, но она не работает procedure ChangeQuality( SrcBitmap: TBitmap; var DstBitmap: TBitmap; AQuality: Integer ); var Stream: TStream; Surface: TBitmapSurface; SaveParam: TBitmapCodecSaveParams; begin if Assigned( DstBitmap ) then begin //DstBitmap.SetSize( SrcBitmap.Width, SrcBitmap.Height ); Stream := TMemoryStream.Create; Surface := TBitmapSurface.Create; try Surface.Assign( SrcBitmap ); SaveParam.Quality := AQuality; // AQuality = 65 TBitmapCodecManager.SaveToStream( Stream, Surface, '.jpg', @SaveParam ); Stream.Position := 0; DstBitmap.LoadFromStream( Stream ); finally Surface.Free; Stream.Free; end; end; end;- 1 ответ
-
- 1
-
-
- TBitmapCodecSaveParams
- Quality
- (и ещё 2 )