ActiveX.Image -> Buffer --> TBitmap

[littleDave]

Also mir fällt noch ScanLine ein.
Ich würd es mal so ähnlich versuchen:

Delphi-Quellcode:

const
    ImgWidth   = 1024;
    ImgHeight  = 768;
    BufferSize = ImgWidth * 
                 ImgHeight *
                 3; // 24 Bit Farbtiefe, 8 Bit Farbtiefe wäre * 1

var bmp     : TBitmap;
    pBuffer : pointer;
    iSize   : cardinal;
begin
  GetMem(pBuffer, BufferSize); 
  try
    iSize := uEyeCam1.CopyImage(Cardinal(pBuffer), BufferSize); 

    bmp := TBitmap.Create;
    try
      bmp.Width  := ImgWidth;     { die Breite des Bildes im Puffer }
      bmp.Height := ImgHeight;    { die Höhe des Bildes im Puffer }
      bmp.PixelFormat := pf24Bit; { das Pixelformat };

      // Inhalt des Bildes kopieren
      Move(pBuffer^, bmp.ScanLine[bmp.Height-1]^, iSize); 
      
      // Bild auf MainForm zeichen
      BitBlt(Form1.Canvas.Handle, 0, 0, ImgWidth, ImgHeight, bmp.Canvas.Handle, 0, 0, SRCCOPY);
    finally
      bmp.Free;
    end;
  finally
    FreeMem(pBuffer);
  end;
end;