Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Webcam bei hidden Form (https://www.delphipraxis.net/100982-webcam-bei-hidden-form.html)

ddcool 6. Okt 2007 14:50


Webcam bei hidden Form
 
Hallo zusammen,

ich habe hier im Forum schon einige Zeit gesucht, finde aber keine praktikable Lösung um ein Webcam Bild zu speichern, wenn die Form auf hidden gestellt ist.
Es geht darum ich möchte zur Überwachung meines Büros eine Webcam aufstellen, diese ist an einen PC angeschlossen und der macht Nachts alle paar Sekunden ein Bild und speichert dieses ab. Soweit auch kein Problem, jedoch wenn ich das Programm so entwickle, dass die Mainform, in der auch die Webcam geladen wird und die Bilder konvertiert werden auf ShowMainForm := False setze, bekomme ich anstatt dem eigentlichen Bild nur ein komplett grünes Bild.
Ich vermute das liegt daran, dass alle bis jetzt gefundenen Möglichkeiten (SendMessage, Indy, DSPack, tscap32) alle eine sichtbare Komponente brauchen um das Bild darzustellen. Will ich aba net :D

Hat jemand ne Idee/Lösung???


Grüße

ddcool

SirThornberry 6. Okt 2007 14:56

Re: Webcam bei hidden Form
 
funktioniet es auch nicht wenn das Form mindestens einmal gezeigt wurde?

ddcool 6. Okt 2007 14:58

Re: Webcam bei hidden Form
 
Doch dann schon, ich will aber nicht, dass die Form einmal gezeigt wird. Das soll ein Programm sein was immer im Hintergrund läuft. Ich will das ganze sogar vll in einen Dienst schreiben. Und der hat ja auch keine Form.

SirThornberry 6. Okt 2007 15:29

Re: Webcam bei hidden Form
 
wenn es so geht kann es aber definitiv nicht daran liegen das dein Formular nicht sichtbar ist.
Der Grund ist dann wohl eher das durch das nicht anzeigen bestimmte dinge nicht initialisiert werden.
Du musst also dafür sorgen das alles trotzdem initialisiert wird und auch Handles angefordert werden etc.
Oder du suchst eine Alternative. So kannst du zum Beispiel über allocateHwnd ein Fensterhandle anfordern und dann entsprechend die Größe setzen und dieses Fenster nutzen (auch wenn es nicht sichtbar ist).

ddcool 6. Okt 2007 15:58

Re: Webcam bei hidden Form
 
Mal anders rum gefragt, ist es denn möglich in einem Dienst, auf die Webcam zuzugreifen, weil beim Dienst ja dann auch einige Scahen nicht initialisiert werden könnten.
Gibt es iwie die Möglichkeit das ganze anders zu Lösen, ohne das die Form sichbar sein muss.

SirThornberry 7. Okt 2007 10:33

Re: Webcam bei hidden Form
 
ja es ist möglich, hab ich doch geschrieben :? Erzeuge ein unsichtbares Fenster (CreateWnd). Wenn du dein TForm mit ShowMainForm nie anzeigst werden die Handles wohl nicht wirklich angefordert weil es nicht notwendig ist.

Bastler 7. Okt 2007 12:16

Re: Webcam bei hidden Form
 
Vielleicht erfasse ich die Problematik nicht ganz, aber wärs nicht einfach ne Lösung, das Form außerhalb des Bildschrims laufen zu lassen?
Also:
Delphi-Quellcode:
form1.left:=screen.width;
und denn eben noch innen Tray legen, oder solls ganz unsichtbar sein?

SirThornberry 7. Okt 2007 12:22

Re: Webcam bei hidden Form
 
@bastler: das wäre ein Lösung. Eine bessere Lösung fände ich aber gar kein TForm etc. erst anzulegen wenn es nicht genutzt wird.

ddcool 8. Okt 2007 08:57

Re: Webcam bei hidden Form
 
Also das unsichbare Fenster spricht mir schon zu. Werde ich mal probieren. Hab sowas zwar noch nicht gemacht, aber das schaffe ich schon. :)

Danke erstmal für die Hilfe!!!!

Nikolas 8. Okt 2007 09:13

Re: Webcam bei hidden Form
 
Wenn der Bildschirm nachts ausgeschaltet ist (wovon ich mal ausgehe), warum willst du dann ein unsichtbares Formular haben?
Ein unsichtbares Programm im Hintergrund, dass auf eine Webcam zugreift kommt mir ehrlich gesagt nicht so ganz sauber vor. :shock:


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:13 Uhr.
Seite 1 von 2  1 2      

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