WebCam via Stream senden

[Bummi]

Delphi-Quellcode:

var
 bmp:TBitmap;
begin
    bmp:=TBitmap.Create;
    try
    bmp.Width := 600;
    bmp.Height := 450;
    BitBlt(bmp.Canvas.Handle,0,0,panel1.Width,panel1.Height,Panel1.canvas.handle,0,0,SRCCOPY);
    image1.Picture.Assign(bmp);
    finally
      bmp.Free;
    end;

wobei ich hier

Delphi-Quellcode:

   connect := capCreateCaptureWindow('Kamera',ws_child+ws_visible, 0,
  0, 600, 450, Panel1.Handle, 1);

verwende, bei Deiner Komponente kannst Du gegf. direkt
 fVideoImage.SetDisplayCanvas(MyBitmap.Canvas); verwenden ....

ansonsten BITBLT auf Panintbox1.canvas.handle ...