Ver Mensaje Individual
  #2  
Antiguo 07-07-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Puedes poner el codigo que utilizas, porque he intentado reproducir el fallo y no lo he conseguido, tarda un poquito pero completa la tarea sin errores.

He utilizado este codigo para intentar reproducir el fallo:
Código Delphi [-]
var
  Bitmap: Tbitmap;
  Jpeg: TJpegImage;
  i: integer;
begin
  Bitmap:= TBitmap.Create;
  Jpeg:= TJpegImage.Create;
  try
    // Creamos un bitmap MUY grande
    Bitmap.width:= 3000;
    Bitmap.Height:= 2000;
    Bitmap.Canvas.Pen.Width:= 10;
    // Dibujamos algo en el
    for i:= 1 to 1000 do
      Bitmap.Canvas.LineTo(Random(3000),Random(2000));
    // Hacemos la conversion.
    Jpeg.Assign(Bitmap);
    Jpeg.SaveToFile('c:\1.jpg');
  finally
    Bitmap.Free;
    Jpeg.Free;
  end;
end;

Tambien es cierto que delphi tiene ciertos problemas al tratar con imagenes muy grandes (ver este hilo como ejemplo), se queda sin espacio en memoria lo que no siempre esta relacionado con el espacio en disco
Responder Con Cita