Ver Mensaje Individual
  #3  
Antiguo 30-11-2005
JAV JAV is offline
Miembro
 
Registrado: mar 2005
Posts: 34
Reputación: 0
JAV Va por buen camino
Gracias por los enlaces pero no encontré nada significativo. Este código lo utilizo y funciona, pero las imágenes que tengo que convertir son enormes. Este método con "Pixels" es muy lento. Alguien conoce el equivalente en "ScanLine"? Desde ya, muchas gracias.

Código Delphi [-]
var
  BMP1, BMP2: TBitmap;
begin
  BMP1 := TBitmap.Create;
  BMP1.LoadFromFile('C:\bitmap.bmp'); //Imagen de 8 bits
  BMP2 := TBitmap.Create;
  BMP2.PixelFormat := pf1bit;
  BMP2.Height := BMP1.Height;
  BMP2.Width := BMP1.Width;
  for X := 0 to BMP1.Width - 1 do
    for Y := 0 to BMP1.Height - 1 do
      BMP2.Canvas.Pixels[X, Y] := BMP1.Canvas.Pixels[X, Y];
  BMP1.Free;
end;

Última edición por dec fecha: 30-11-2005 a las 19:30:09. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita