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?

identifique el error. tengo en las uses:

Código Delphi [-]
uses windows

que es para los menssagebox, y al borrarla me da error en los mensage box, y al agregarla me da el error anterior con los TBITMAP. que hago?

Hola a todos,

La clase "TBitmap" no dispone del método "CreateFromFile": en este caso, y, sin que sirva de precedente, el error es bastante claro. Lo que puedes hacer es algo así:

Código Delphi [-]
var
  NewBitmap: TBitmap;
begin
  NewBitmap := TBitmap.Create();
  try
    NewBitmap.LoadFromFile(Open.FileName);
    (* ... *)
  finally
    NewBitmap.Free();
  end;
end;