(1.108)  S'inscrire

Français
Stammtisch & le café

Bewegungsmelder programmieren mithilfe einer Webcam.

 

Frank
Abbing
Funktioniert cela chez allen Webcam-Besitzern?

355 kB
Hochgeladen:18.12.2007
Downloadcounter: 184
Download
 
18.12.2007  ▲
 



alors si ne...aucune Device angeschlossen ist sommes chez mir 2 schwarze Bilder trop voyons,- hab ici im Büro aucun Webcam - teste je alors später avec Cam. Unten steht Wert einstellbar - wohin/comment oui c'est ca?

PS: je suis mich sur qui ersten Effektregler.

et ensuite encore qui Frage comment on/Du cela neue Bild dans z.B. Skype comme WebCamBild einschleusen peux... SplitCam tut ca - tut sich comme auswählbares Device anbieten.
 
18.12.2007  ▲
 




Frank
Abbing
Bislang seulement comme Variable im Source, iF.
 
18.12.2007  ▲
 




Frank
Abbing
Funktioniert qui Bewegungsmelder-technologie car maintenant überall? Niemand bereit trop testen?
 
19.12.2007  ▲
 




Michael
Wodrich
qui main wird bien gepixelt, mais seulement si je vous vite bewege reagiert cela Programme puis.

peux aussi am überlasteten calculateur liegen, qui reagiert momentan très träge (laufender Télécharger).

mais justement c'est pourquoi wäre un Regler wünschenswert.

belle Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
19.12.2007  ▲
 




Thomas
Freier
doch Frank, mais qui Programmveränderungen zur letzten Version sommes pas erkennbar. qui Bewegungsmeldung endet, si cela objet (main) plus comme 50cm vom objectif entfernt ist, quoique une Veränderung des Weisanteils sichtbar ist.
 
Gruß Thomas
Windows XP SP2, XProfan X2
19.12.2007  ▲
 




ByteAttack
 
Website:  [...] 
Facebook:  [...] 
19.12.2007  ▲
 




GDL
chez mir gehs arrêt malheureusement net.

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
19.12.2007  ▲
 




Jac
de
Lad
Funktioniert, mais on muss, comment chez den anderen, déjà unheimlich rumhampeln, avec cela cela Ding quoi registriert. mon TV-carte wird pas avec aufgelistet.
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
19.12.2007  ▲
 




Frank
Abbing

qui main wird bien gepixelt, mais seulement si je vous vite bewege reagiert cela Programme puis.


oui, richtig. So ist es aussi korrekt.


Funktioniert, mais on muss, comment chez den anderen, déjà unheimlich rumhampeln, avec cela cela Ding quoi registriert.


Derzeit ist qui Einstellung pas sonderlich sensibel gewählt. ensuite ist es so entier pour Wunsch. son pourrait qui verschiedenen Werte oui la fois durchprobieren.

merci à qui fleißigen Tester. ici, comment versprochen, qui Quellcode.
KompilierenMarqueSéparation
 {$cleq}
 {$res icon G:Iconsglyt_smallCommonICO16x16views_16_h.ico}
Declare capdll&,capwindow&,rect#,wx&,wy&,bereich#,num&,fcopy#
Declare x&,y&,breite&,hoehe&,positionx&,positiony&,text$,listbox&
Dim rect#,20
Dim bereich#,1024
Dim fcopy#,64
DEF capCreateCaptureWindow(8) ! avicap32.dll,capCreateCaptureWindowA
DEF capGetDriverDescription(5) ! avicap32.dll,capGetDriverDescriptionA
Kamera-Konstanten
Def &WM_Capstart 1024
Def &WM_CAP_DRIVER_CONNECT 1034
Def &WM_CAP_DRIVER_DISCONNECT 1035
Def &WM_CAP_DRIVER_GET_NAME 1036
Def &WM_CAP_DRIVER_GET_VERSION 1037
Def &WM_CAP_SET_CALLBACK_FRAME 1029
Def &WM_CAP_FILE_SET_CAPTURE_FILE 1044
Def &WM_CAP_FILE_GET_CAPTURE_FILE 1045
Def &WM_CAP_FILE_SAVEAS 1047
Def &WM_CAP_FILE_SAVEDIB 1049
Def &WM_CAP_SET_AUDIOFORMAT 1059
Def &WM_CAP_GET_AUDIOFORMAT 1060
Def &WM_CAP_DLG_VIDEOFORMAT 1065
Def &WM_CAP_DLG_VIDEOSOURCE 1066
Def &WM_CAP_DLG_VIDEODISPLAY 1067
Def &WM_CAP_GET_VIDEOFORMAT 1068
Def &WM_CAP_SET_VIDEOFORMAT 1069
Def &WM_CAP_DLG_VIDEOCOMPRESSION 1070
Def &WM_CAP_SET_PREVIEW 1074
Def &WM_CAP_SET_OVERLAY 1075
Def &WM_CAP_SET_PREVIEWRATE 1076
Def &WM_CAP_SET_SCALE 1077
Def &WM_CAP_SET_SCROLL 1079
Def &WM_CAP_GRAB_FRAME 1084
Def &WM_CAP_GRAB_FRAME_NOSTOP 1085
Def &WM_CAP_SEQUENCE 1086
Def &WM_CAP_SEQUENCE_NOFILE 1087
Def &WM_CAP_SET_SEQUENCE_SETUP 1088
Def &WM_CAP_GET_SEQUENCE_SETUP 1089
Def &WM_CAP_SET_MCI_DEVICE 1090
Def &WM_CAP_GET_MCI_DEVICE 1091
Def &WM_CAP_STOP 1092
Def &WM_CAP_ABORT 1093
AsmInclude
.data
nurso               dd  0
lastcount           dd  0
phdc                dd  0
pwnd                dd  0
lwnd                dd  0
starten             dd  0
text1               dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
text2               db   Bewegung registriert in Stärke ,0
text3               dd  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
text4               db  Messung wurde gestartet. Bewegungen ab einer Stärke von 250 werden gemeldet. Wert einstellbar,0
text5               db  .,0
text6               db  :,0
text7               db   Uhr.,0
text8               db  0,0
.code
Framebuffer-Callback-Routine
Wird durchlaufen, wann immer Videofenster aktualisiert werden muß.
FrameProc PROC hWnd:DWORD, lpVHdr:DWORD
LOCAL hdc:HDC
LOCAL bmpinfo:BITMAPINFO
LOCAL hBitmap:HBITMAP
LOCAL memory:DWORD
LOCAL bytes:DWORD
LOCAL rc:RECT
LOCAL breite:DWORD
LOCAL hoehe:DWORD
LOCAL xx:DWORD
LOCAL yy:DWORD
LOCAL stime:SYSTEMTIME

.if hWnd == 0

    xor eax, eax
    ret

.endif

pushall
invoke SendMessage,hWnd,1068,44,addr bmpinfo    ;WM_CAP_GET_VIDEOFORMAT
lea edx,bmpinfo
mov eax,[edx+4]
mov breite,eax
mov edx,[edx+8]
mov hoehe,edx
mul edx
mov edx,3
mul edx
mov bytes,eax
invoke SendMessage,hWnd,1054,0,0                ;WM_CAP_EDIT_COPY
invoke CreateCompatibleDC,phdc
mov hdc,eax

.if eax

    invoke OpenClipboard,pwnd
    invoke GetClipboardData,CF_BITMAP
    mov hBitmap,eax
    mov eax,bytes
    invoke GlobalAlloc,GMEM_FIXED+GMEM_ZEROINIT,eax
    mov memory,eax

    .if eax

        lea  edx,bmpinfo
        mov  eax,40
        mov  [edx],eax     ;Size
        mov  eax,breite
        mov  [edx+4],eax   ;Width
        xor  eax,eax
        sub  eax,hoehe
        mov  [edx+8],eax   ;-Height
        mov  ax,1
        mov  [edx+12],ax   ;Planes
        mov  ax,24
        mov  [edx+14],ax   ;BitCount
        invoke GetDIBits,hdc,hBitmap,0,hoehe,memory,addr bmpinfo,DIB_RGB_COLORS
        xor esi,esi        ;counter
        mov xx,79
        mov yy,59
        mov edx,memory
        mov edi,edx
        schleife1:
        xor eax,eax
        xor ebx,ebx
        mov bl,[edx]
        add eax,ebx
        mov bl,[edx+1]
        add eax,ebx
        mov bl,[edx+2]
        add eax,ebx
        mov bl,[edx+3]
        add eax,ebx
        mov bl,[edx+4]
        add eax,ebx
        mov bl,[edx+5]
        add eax,ebx
        mov bl,[edx+6]
        add eax,ebx
        mov bl,[edx+7]
        add eax,ebx
        mov bl,[edx+8]
        add eax,ebx
        mov bl,[edx+9]
        add eax,ebx
        mov bl,[edx+10]
        add eax,ebx
        mov bl,[edx+11]
        add eax,ebx
        mov bl,[edx+960]
        add eax,ebx
        mov bl,[edx+960+1]
        add eax,ebx
        mov bl,[edx+960+2]
        add eax,ebx
        mov bl,[edx+960+3]
        add eax,ebx
        mov bl,[edx+960+4]
        add eax,ebx
        mov bl,[edx+960+5]
        add eax,ebx
        mov bl,[edx+960+6]
        add eax,ebx
        mov bl,[edx+960+7]
        add eax,ebx
        mov bl,[edx+960+8]
        add eax,ebx
        mov bl,[edx+960+9]
        add eax,ebx
        mov bl,[edx+960+10]
        add eax,ebx
        mov bl,[edx+960+11]
        add eax,ebx
        mov bl,[edx+1920]
        add eax,ebx
        mov bl,[edx+1920+1]
        add eax,ebx
        mov bl,[edx+1920+2]
        add eax,ebx
        mov bl,[edx+1920+3]
        add eax,ebx
        mov bl,[edx+1920+4]
        add eax,ebx
        mov bl,[edx+1920+5]
        add eax,ebx
        mov bl,[edx+1920+6]
        add eax,ebx
        mov bl,[edx+1920+7]
        add eax,ebx
        mov bl,[edx+1920+8]
        add eax,ebx
        mov bl,[edx+1920+9]
        add eax,ebx
        mov bl,[edx+1920+10]
        add eax,ebx
        mov bl,[edx+1920+11]
        add eax,ebx
        mov bl,[edx+2880]
        add eax,ebx
        mov bl,[edx+2880+1]
        add eax,ebx
        mov bl,[edx+2880+2]
        add eax,ebx
        mov bl,[edx+2880+3]
        add eax,ebx
        mov bl,[edx+2880+4]
        add eax,ebx
        mov bl,[edx+2880+5]
        add eax,ebx
        mov bl,[edx+2880+6]
        add eax,ebx
        mov bl,[edx+2880+7]
        add eax,ebx
        mov bl,[edx+2880+8]
        add eax,ebx
        mov bl,[edx+2880+9]
        add eax,ebx
        mov bl,[edx+2880+10]
        add eax,ebx
        mov bl,[edx+2880+11]
        add eax,ebx
        push edx
        xor edx,edx
        mov ebx,48
        div ebx
        pop edx

        .if al>=96

            mov al,255
            inc esi

        .else

            mov al,0

        .endif

        mov [edx],al
        mov [edx+1],al
        mov [edx+2],al
        mov [edx+3],al
        mov [edx+4],al
        mov [edx+5],al
        mov [edx+6],al
        mov [edx+7],al
        mov [edx+8],al
        mov [edx+9],al
        mov [edx+10],al
        mov [edx+11],al
        mov [edx+960],al
        mov [edx+960+1],al
        mov [edx+960+2],al
        mov [edx+960+3],al
        mov [edx+960+4],al
        mov [edx+960+5],al
        mov [edx+960+6],al
        mov [edx+960+7],al
        mov [edx+960+8],al
        mov [edx+960+9],al
        mov [edx+960+10],al
        mov [edx+960+11],al
        mov [edx+1920],al
        mov [edx+1920+1],al
        mov [edx+1920+2],al
        mov [edx+1920+3],al
        mov [edx+1920+4],al
        mov [edx+1920+5],al
        mov [edx+1920+6],al
        mov [edx+1920+7],al
        mov [edx+1920+8],al
        mov [edx+1920+9],al
        mov [edx+1920+10],al
        mov [edx+1920+11],al
        mov [edx+2880],al
        mov [edx+2880+1],al
        mov [edx+2880+2],al
        mov [edx+2880+3],al
        mov [edx+2880+4],al
        mov [edx+2880+5],al
        mov [edx+2880+6],al
        mov [edx+2880+7],al
        mov [edx+2880+8],al
        mov [edx+2880+9],al
        mov [edx+2880+10],al
        mov [edx+2880+11],al
        add edx,12
        dec xx
        cmp xx,0
        jge schleife1
        mov edx,edi
        add edx,3840
        mov edi,edx
        mov xx,79
        dec yy
        cmp yy,0
        jge schleife1
        mov eax,lastcount
        sub eax,esi
        m2m lastcount,esi

        .if SIGN?

            neg eax

        .endif

        .if starten>3

            .if eax>=250      ;Bewegungsmelder Grenzwert (250) erreicht

                mov text3,0
                push eax
                invoke GetLocalTime,addr stime
                xor eax,eax
                mov ax,stime.wHour
                invoke dwtoa,eax,addr text1
                invoke lstrlen,addr text1

                .if eax==1

                    invoke lstrcat,addr text3,addr text8

                .endif

                invoke lstrcat,addr text3,addr text1
                invoke lstrcat,addr text3,addr text6
                xor eax,eax
                mov ax,stime.wMinute
                invoke dwtoa,eax,addr text1
                invoke lstrlen,addr text1

                .if eax==1

                    invoke lstrcat,addr text3,addr text8

                .endif

                invoke lstrcat,addr text3,addr text1
                invoke lstrcat,addr text3,addr text6
                xor eax,eax
                mov ax,stime.wSecond
                invoke dwtoa,eax,addr text1
                invoke lstrlen,addr text1

                .if eax==1

                    invoke lstrcat,addr text3,addr text8

                .endif

                invoke lstrcat,addr text3,addr text1
                invoke lstrcat,addr text3,addr text7
                pop eax
                invoke dwtoa,eax,addr text1
                invoke lstrcat,addr text3,addr text2
                invoke lstrcat,addr text3,addr text1
                invoke lstrcat,addr text3,addr text5
                invoke SendMessage,lwnd,LB_ADDSTRING,0,addr text3
                invoke SendMessage,lwnd,LB_GETCOUNT,0,0
                dec eax
                invoke SendMessage,lwnd,LB_SETTOPINDEX,eax,0
                invoke Beep,3000,25

            .endif

        .elseif starten==3

            invoke SendMessage,lwnd,LB_ADDSTRING,0,addr text4

        .endif

        inc starten
        invoke SetDIBitsToDevice,phdc,328,0,breite,hoehe,0,0,0,hoehe,memory,addr bmpinfo,DIB_RGB_COLORS
        invoke GlobalFree,memory

    .endif

    invoke CloseClipboard
    invoke DeleteDC,hdc

.endif

popall
mov eax, 1
ret
FrameProc ENDP

AsmEnd

Proc GetCaptureDriverList

Declare Treiber$,Version$,Zaehler%
ClearList

WhileNot zaehler%=9   reicht fuer 9 Treiber, mehr erlaubt das System nicht.

    Treiber$=Space$(80)
    Version$=Space$(80)

    If capGetDriverDescription(Zaehler%,ADDR(Treiber$),80,ADDR(Version$),80) > 0

        AddString Trim$(Treiber$)

    Endif

    Inc Zaehler%

EndWhile

EndProc

capdll&=UseDll(avicap32.dll)
Windowtitle Bitte Kamera-Treiber wählen.
Windowstyle 512 | 26
Window %maxx,0-320,240
Cls GetSysColor(15)
Usefont MS Sans Serif,10,0,0,0,0
SetDialogFont 1
listbox&=Create(ListBox, %hwnd,0, 8, 8, 320, 160)
GetCaptureDriverList
MoveListToList(listbox&)
x&=GetCount(listbox&)

If x&

GetClientRect(%hwnd,rect#)
wx&=320-Long(rect#,8)-Long(rect#,0)
wy&=240-Long(rect#,12)-Long(rect#,4)
SetWindowPos %hwnd=(%maxx/2-160),(%maxy/2-80)-(320+16+wx&),(160+16+wy&)

While 1

    WaitInput

    If %key=3

        Break

    EndIf

Endwhile

num&=GetCurSel(listbox&)
case num&<0:num&=0
DestroyWindow(listbox&)
SetWindowPos %hwnd=%maxx,0-320,240
Windowtitle Cap Thief, Webcam-Bewegungsmelder © 2007 http://frabbing.de
Control(STATIC, Originaler Datenstream, $54000301, 0, 240, 320, 20, %hwnd, 2001, %hInstance, $00000000)
Control(STATIC, Echtzeit-manipulierte Daten, $54000301, 328, 240, 320, 20, %hwnd, 2002, %hInstance, $00000000)
listbox&=Create(ListBox, %hwnd, 0, 8, 260, 632, 192)
Kamerafenster erstellen
capwindow&=capCreateCaptureWindow(0,WS_CHILD | WS_VISIBLE,0,0,320,240,%Hwnd,0)

If SendMessage(capwindow&,&WM_CAP_DRIVER_CONNECT,num&,0)

    Videoformat zur Wiederherstellung sichern
    Clear fcopy#
    SendMessage(capwindow&,&WM_CAP_GET_VIDEOFORMAT,44,fcopy#)
    Neues Videoformat setzen
    Clear bereich#
    Long bereich#,0=40
    Long bereich#,4=320
    Long bereich#,8=240
    Word bereich#,12=1
    Word bereich#,14=24
    Long bereich#,20=320*240*3
    SendMessage(capwindow&,&WM_CAP_SET_VIDEOFORMAT,44,bereich#)
    Kamera ausrichten und einschalten
    SendMessage(capwindow&,&WM_CAP_SET_PREVIEWRATE,1,0)
    Sendmessage(capwindow&,&WM_CAP_SET_SCALE,1,0)
    SendMessage(capwindow&,&WM_CAP_SET_PREVIEW,1,0)
    Sendmessage(capwindow&,&WM_CAP_SET_OVERLAY,0,0)

    AsmStart SCall1(capwindow&,%hdc,%hwnd,listbox&)

        m2m phdc,para2
        m2m pwnd,para3
        m2m lwnd,para4
        invoke SendMessage,para1,1029,0,addr FrameProc    ;WM_CAP_SET_CALLBACK_FRAME

    AsmEnd

    GetClientRect(%hwnd,rect#)
    wx&=320-Long(rect#,8)-Long(rect#,0)
    wy&=240-Long(rect#,12)-Long(rect#,4)
    SetWindowPos %hwnd=(%maxx/2-320),(%maxy/2-220)-(320+320+8+wx&),(440+20+wy&)

    While 1

        WaitInput
        Case %key=2:Break

    Endwhile

    Videoformat wiederherstellen
    SendMessage(capwindow&,&WM_CAP_SET_VIDEOFORMAT,44,fcopy#)
    SendMessage(capwindow&,&WM_CAP_SET_PREVIEW,0,0)
    SendMessage(capwindow&,&WM_CAP_DRIVER_DISCONNECT,0,0)

Else

    MessageBox(Eine Verbindung zur Kamera ist
    derzeit nicht möglich.,Information:,64)

EndIf

DestroyWindow(capwindow&)
DestroyWindow(%hwnd)

Else

MessageBox(Im System wurde keine
Kamera gefunden.,EndIf

FreeDll capdll&
Dispose rect#
Dispose bereich#
Dispose fcopy#
Fin

XPIA wird encore cet Macros pour qui la base.inc besoin:
KompilierenMarqueSéparation
 
19.12.2007  ▲
 




Christian
Eichler
Frank, sorry pour qui späte Antwort. chez mir funktionniert es aussi pas, cela linke la fenêtre bleibt simple noir.
qui caméra funktonniert, im Explorer wird un Bild angezeigt !

mfg Christian E
 
Debian Lenny, Intel Celeron 2,8 Ghz, 768 MB Ram && Win XP Pro, Intel C2D 1,66Ghz, 2 GB Ram ... PROFAN² 6.6
19.12.2007  ▲
 




Frank
Abbing
merci Christian!
tu as maintenant oui den Quellcode et könntest selber sur qui cherche pour qui Ursache aller. Dass seulement un Programme gleichzeitig sur qui Cam zugreifen peux, savoir du oui?
 
19.12.2007  ▲
 



12
►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

4.509 Views

Untitledvor 0 min.
Georg Teles12.05.2023
Walter30.04.2023
Thomas Zielinski16.02.2022
Rolf Koch15.02.2013
plus...

Themeninformationen

cet Thema hat 9 participant:

Frank Abbing (6x)
Christian Eichler (2x)
Michael Wodrich (2x)
iF (2x)
Jac de Lad (2x)
Rolf Koch (1x)
ByteAttack (1x)
Thomas Freier (1x)
GDL (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie