Guardad Canvas De Un Image Con La propiedad stretch:=true

[gulder]

hola seoane como andas la imagen es PNG pero igual la converti a jpg y la cargue y sale lo mismo saludos

[[escafandra]]

Prueba a ver si esto te sirve, es la traducción mas o menos de aquello:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

 var
   R: TRect;
   Image: TImage;

begin
   Image := TImage.Create(Self);

   // Aquí dimensionamos la nueva imagen....
   Image.Height := 100;
   Image.Width  := 100;

   // Preparamos para la función StretchDraw
    R.Left := 0;
    R.Top := 0;
    R.Bottom := Image.Height;
    R.Right := Image.Width;

   // Copiamos la imagen cambiada de tamaño a Image desde Image1...
   // Image1 esta definida en tiempo de diseño....
   Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);

   // La salvamos para ver que ha pasado. ....EURECA....
   Image.Picture.Graphic.SaveToFile('a.bmp');

end;

Saludos.

[gulder]

escafandra hola como estas espero que bien lo logre pero modificando esto

Código Delphi [-]
   // Aquí dimensionamos la nueva imagen....
   Image.Height := 100;
   Image.Width  := 100;

Código Delphi [-]
  // Aquí dimensionamos la nueva imagen....
   Image.Height :=  Image1.Height;
   Image.Width  :=  Image1.Width;

asi quedo entonce saludos

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

 var
   R: TRect;
   Image: TImage;

begin
   Image := TImage.Create(Self);

   // Aquí dimensionamos la nueva imagen....
   Image.Height :=  Image1.Height;
   Image.Width  :=  Image1.Width;

   // Preparamos para la función StretchDraw
    R.Left := 0;
    R.Top := 0;
    R.Bottom := Image.Height;
    R.Right := Image.Width;

   // Copiamos la imagen cambiada de tamaño a Image desde Image1...
   // Image1 esta definida en tiempo de diseño....
   Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);

   // La salvamos para ver que ha pasado. ....EURECA....
   Image.Picture.Graphic.SaveToFile('a.bmp');

end;

saludos y gracias a clubdelphi chauuu

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

Empezado por gulder

hola igual la converti a jpg y la cargue y sale lo mismo

Ese código funciona con Bitmaps (tal y como lo estabas guardando); Para jpg tal vez haya que convertirlo antes.

[[Lepe]]

Si quieres que delphi reconozca bmp, jpg, png, tiff, etc, te aconsejo la biblioteca de funciones GraphicEx, sólo añades el "uses GraphicEx" y ya puedes leer muchos tipos de imágenes.

Saludos