Ver Mensaje Individual
  #1  
Antiguo 14-01-2023
esublim esublim is offline
Miembro
 
Registrado: dic 2022
Posts: 40
Reputación: 0
esublim Va por buen camino
Error con TBitmap

holatengo un codigo que en un proyecto me funciona bien en un from pero en al tratar de colocarlo en ptro fromn del mismo proyecto me da el siguiente error: E2003 Undeclared identifier: 'CreateFromFile';

Código Delphi [-]
var
  NewBitmap: TBitmap;
  MS1 : TMemoryStream;
  Surf: TBitmapSurface;
  JpgQuality : TBitmapCodecSaveParams;
begin

 Open.Execute;

 NewBitmap:=  TBitmap.CreateFromFile(Open.FileName); <----aqui da el error
 MS1 := TMemoryStream.Create;
 Surf := TBitmapSurface.create;

  try
    MS1.Position := 0;
    Surf.Assign(NewBitmap);
    JpgQuality.Quality := 50;   //   <<<-------------  ¡¡¡ AQUÍ !!!

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

    img1.Bitmap.CreateFromStream(MS1);
    img1.Bitmap.SaveToFile('prueba.jpg')

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

como les comento, es un codigo que he usado en varios from del proyectop pero hay en uno en especifico que no me funciona. me podrian ayudar?
Responder Con Cita