Gezeichnetes Bild auf TPanel nach TBitmap bringen

[Chrissi91]

Hi,

ich zeichne mit folgendem Ausschnitt des Codes das Webcambild aufs Panel:

Delphi-Quellcode:

  Handle := capCreateCaptureWindow('Video', ws_child + ws_visible, 0, 0, 320, 240, Panel1.Handle, 1);
  SendMessage(Handle, WM_CAP_DRIVER_CONNECT,  0,  0);
  SendMessage(Handle, WM_CAP_SET_PREVIEWRATE, 30, 0);
  sendMessage(Handle, WM_CAP_SET_OVERLAY,     1,  0);
  SendMessage(Handle, wm_cap_set_preview,     1,  0);

Jetzt suche ich die schnellste Lösung, das nach TBitmap und von dort nach TJPEG zu bringen. Irgendwie komm ich nicht klar, wie ich von Panel1. Handle zum TBitmap komme. weder Assign klappt, noch eine Zuweisung.

Wie weise ich den Inhalt von Panel1 einem TBitMap zu? Oder gibt es vielleicht noch eine schnellere Möglichkeit den Inhalt des Panels nach TJPEG zu geben?

EDIT: Ich weiß, wie ich das über die Zwischenablage mache, finde es aber blöd, wenn man dann Text kopiert und auf einmal das Webcambild eingefügt wird, weil der Speicher überschrieben wurde.

[Flips]

Webcam TBitmap
Weiteres Stichwort: Callback

Da lege ich dir diesen Code ans Herz:
Grabbe & Dekomprimiere Frame