externes Videosignal anzeigen?

[mini990]

Hallo,
hoffe die Kategorie passt....
Gibt es mit XBase die Möglichkeit ein externes Videosignal in einem Fenster anzuzeigen?
Z.B. WebCamBild

Gruß Stefan

[Rolf Ramacher]

Hallo Stefan

versuche es mal hiermit

Code: Alles auswählen

#include "Common.ch"
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#include "dll.ch"

    #DEFINE  SW_HIDE              0
    #DEFINE  SW_SHOWNORMAL        1
    #DEFINE  SW_NORMAL            1
    #DEFINE  SW_SHOWMINIMIZED     2
    #DEFINE  SW_SHOWMAXIMIZED     3
    #DEFINE  SW_MAXIMIZE          3
    #DEFINE  SW_SHOWNOACTIVATE    4
    #DEFINE  SW_SHOW              5
    #DEFINE  SW_MINIMIZE          6
    #DEFINE  SW_SHOWMINNOACTIVE   7
    #DEFINE  SW_SHOWNA            8
    #DEFINE  SW_RESTORE           9
    #DEFINE  SW_SHOWDEFAULT      10

    FUNCTION ShellExecute( hWnd,cOperation,cFile,cParameters,cDir,nShowCmd )
    LOCAL hDLL
    LOCAL nResult
    DEFAULT cOperation TO "open"
    DEFAULT cParameters TO ""
    DEFAULT cDir TO SubStr(cFile,1,RAT("\",cFile)-1)
    DEFAULT nShowCmd TO SW_SHOW
      hDLL := DLLLoad("Shell32.DLL")
      IF hDll > 0
        nResult := DLLCall( hDll,DLL_STDCALL,"ShellExecuteA",hWnd,@cOperation,@cFile,@cParameters,@cDir,nShowCmd )
        DllUnload(hDll)
      ELSE
        nResult := -1
      ENDIF
    RETURN( nResult )

und aufrufen

Code: Alles auswählen

			ShellExecute(Nil,"open",cFile,Nil,cVerz)

hierbei wird anhand vom Dateianhang das entsprechende Programm aus Windows aufgerufen.

kann pdf, jpg, bmp - sein. dein Videosignal sollte funktionieren.

[Jan]

Hallo Stefan,

mit Überwachungskameras hab ich sowas schon gemacht. Es gibt da nur ein großes Aber: Das waren halt eine professionelle Überwachungskameras, nicht irgend so ein 20€-Teil für die USB-Buchse am Rechner zu Hause.

Ich hatte das zuerst über ene ActiveX-Schnittstelle gemacht. Das lief sehr gut, hatte aber den Nachteil, das auf jedem Rechner, auf dem die Videos gezeigt werden sollten, diese Schnittstelle installiert werden mußte.

Letztendlich haben wir das so gelöst, das die Kameras im gewählten Takt JPGs auf einen Server legt, und ich mir die immer im Thread-Intervall abhole und dann anzeige. Viele JPG hintereinander im Sekundentakt geben auch so eine Art Film

Wie gesagt, das sind richtig teure Kameras, jenseits der 800 €, und es sollen keine Videos in hoher Qualität gedreht werden, sondern bestimmte Bereiche überwacht werden.

Jan

[AUGE_OHR]

Z.B. WebCamBild

gehe mal zu Pablo auf seine WebSite http://www.XbWin.com -> Newsforum
dort findest du die beiden Threads

How to call these functions is Xbase++
ot4xb.public
27. April 2012

Who can help ?
ot4xb.public
28. April 2012

siehe dir das Attachment xbpWebCam.zip von Pablo an.

[mini990]

Vielen Dank für die Antworten und Tipps!
Habe das ganze jetzt anhand des Beispiels von Pablo umgesetzt.
Funktioniert 1A

Gruß Stefan