Ver Mensaje Individual
  #3  
Antiguo 27-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
Por si todavía te interesa convertir un buffer en un bitmap, aquí te dejo un ejemplo:

Código Delphi [-]
var
  Buffer: array[0..255,0..303] of Byte; // Cambie la forma de declarar el array
  Bitmap: TBitmap;
  i,j: Integer;
  P: PByteArray;
begin
  // Las 3 lineas siguientes son solo para llenar el buffer, en tu caso seria getfinder(0,@buffer);
  for i:= 0 to 255 do
    for j:= 0 to 303 do
      Buffer[i,j]:= i xor j;

  Bitmap:= TBitmap.Create;
  try
    Bitmap.PixelFormat:= pf8bit;
    Bitmap.Width:= 256;
    Bitmap.Height:= 304;
    for j:= 0 to Bitmap.Height - 1 do
    begin
      P:= Bitmap.ScanLine[j];
      for i:= 0 to Bitmap.Width - 1 do
        P[i]:= Buffer[i,j];
    end;
    // Aqui guardamos el Bitmap en disco, pero tambien podemos mostrarlo en un TImage o guardarlo en la base de datos.
    Bitmap.SaveToFile('c:\1.bmp');
  finally
    Bitmap.Free;
  end;
end;
Responder Con Cita