Bitmap buffer

[fitolanga]

Hola soy nuevo en esto y quería comentarles que estoy usando el componente VideoGrabber para capturar un frame desde una cámara de seguridad. Eso me devuelve un bitmap y necesito para otra función que me pasaron, el puntero a los datos de ese bitmap (RGB24), es decir el puntero a la secuencia de pixeles donde cada pixel estaría codificado con 3 bytes si no me equivoco...
Es esto posible???



Muchas gracias.

[[seoane]]

Bien, los primero es saber el tamaño de la imagen. Si no sabemos el alto y ancho de la imagen, no hay nada que hacer, pues no podemos obtener esa información del buffer. Si el dato del tamaño lo puedes averiguar, el resto si que se puede hacer.

El código seria algo como esto:

Código Delphi [-]
var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  try
    Bitmap.PixelFormat:= pf24bit;
    // El ancho y el alto lo tienes que averiguar de algun modo
    Bitmap.Width:= 128;
    Bitmap.Height:= 128;
    // Buffer es un puntero a los datos de los que hablabas
    Copymemory(Bitmap.ScanLine[Bitmap.Height-1],Buffer,
       Bitmap.Height*Bitmap.Width*3);
    // Aqui guardo el bitmap, tu haz lo que quieras con el
    Bitmap.SaveToFile('C:\1.bmp');
  finally
    Bitmap.Free;
  end;
end;

[fitolanga]

Creo que me expresé mal o entendí mal lo que pasaste, yo ya tengo la imagen en un TBitmap, lo obtengo desde el VideoGrabber a través de VideoGrabber.CaptureFrameTo() y después lo levanto dentro de un procedimiento que se ejecuta cuando ya terminó de capturar la imagen. Dentro de esa rutina me da un TBitmap con la imagen que capturó pero a la función que necesito pasarle la imagen le tengo que pasar el puntero a los datos de esa imagen, no puedo pasarle el bitmap. Espero haber explicado bien mi problema... por cierto sí conozco el tamaño de la imagen.
Muchas gracias.

[[seoane]]

Tienes razón, no te entendí lo que querías .

El puntero que buscas es este.

Código Delphi [-]
  Bitmap.ScanLine[Bitmap.Height-1]

[fitolanga]

Empezado por seoane

Tienes razón, no te entendí lo que querías .

El puntero que buscas es este.

Código Delphi [-]
  Bitmap.ScanLine[Bitmap.Height-1]

MUCHAS GRACIAS!!! ANDUVO DE MARAVILLAS... ACÁ PASO UN EXTRACTO DEL CÓDIGO QUE FINALMENTE USÉ PARA ESTA FUNCIÓN:

var punterobytearray;
...
puntero:= FrameData.Bitmap.ScanLine[FrameData.Bitmap.Height-1];

función(..,puntero[0],..);


Nuevamente muchas gracias!