Stream Write Error

[esublim]

quioero hacer eso pero al momento de guardar que reduzca el tamaño a mitad se podra. es decir si la imagen esta 1000x1000px se redusca a 500x500 px

[Neftali [Germán.Estévez]]

Basta con decírselo a la variable que almacena el bitmap.
Añade la línea en rojo al código anterior.

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
  NewBitmap: TBitmap;
  MS1: TMemoryStream;
  Surf: TBitmapSurface;
  JpgQuality: TBitmapCodecSaveParams;
begin
  NewBitmap := ImageFotoReg.bitmap;
  MS1 := TMemoryStream.Create;
  Surf := TBitmapSurface.Create;
  try
    MS1.Position := 0;

    // Reducir la imagen original a la mitad
    NewBitmap.Resize(NewBitmap.Width DIV 2, NewBitmap.Height DIV 2);

    Surf.Assign(NewBitmap);
    JpgQuality.Quality := 30;

    if not TBitmapCodecManager.SaveToStream(MS1, Surf, '.jpg', @JpgQuality) then
      raise EBitmapSavingFailed.Create('Error saving Bitmap to jpg');

    // Grabarla en disco (JPG)
    MS1.SaveToFile('r:\out.jpg');

    // Cargarla en otro componente
    ImageFotoReg2.Bitmap.LoadFromFile('r:\OUT.jpg');

  finally
    MS1.Free;
    Surf.Free;
  end;
end;