ActiveX.Image -> Buffer --> TBitmap

[cylor]

Aha Cardinal() heisst das Zauberwort. Ich hatte es mit Integer() versucht. Danke!

Mein Code schaut nu so aus:

Delphi-Quellcode:

var pBuffer: Pointer;
begin
   GetMem(pBuffer, ueye_picture_buffer_size);
   uEyeCam1.CopyImage(Cardinal(pBuffer), ueye_picture_buffer_size);
   SetBitmapBits(Image1.Picture.Bitmap.Handle, ueye_picture_buffer_size, @pBuffer);
end;

Kann ich SetBitmapBits an der stelle benutzten? So anscheint nicht, weil das Image bleibt leer. Aber immerhin kommt schon mal keine Zugriffverletzung mehr.