Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Gezeichnetes Bild auf TPanel nach TBitmap bringen (https://www.delphipraxis.net/113077-gezeichnetes-bild-auf-tpanel-nach-tbitmap-bringen.html)

Chrissi91 2. Mai 2008 10:43


Gezeichnetes Bild auf TPanel nach TBitmap bringen
 
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 2. Mai 2008 12:13

Re: Gezeichnetes Bild auf TPanel nach TBitmap bringen
 
Hier im Forum suchenWebcam TBitmap
Weiteres Stichwort: Callback

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz