Inmiddels mijn deurbel aan Homeseer gekoppeld en er voor gezorgd dat:
- Ik een keurige foto krijg toegemailed (NetCam plugin + script)
- Er een custom scherm wordt getoond met de actuele camera beelden.
Wat ik nou nog zou willen is op het custom scherm een afbeelding van de image die ook via het script naar mijn e-mail adres is gestuurd.
M.a.w. een update van de properties van de image op het HStouch scherm op het moment dat deze wordt geopend.
Twee uitdagingen:
1. Hoe update ik de image op het HSTouch screen
2. Waar haal ik de URL vandaan naar de juiste afbeelding
Iemand enig idee?
Waar ik zelf aan zat te denken was in het e-mail script een kopie te maken van de verzonden foto naar een bestand dat heet laatstefoto.jpg en de image op het scherm altijd naar deze file te laten kijken. De vraag is dan, hoe update ik de image.
Francois
________________________________________________________________________________________________________________________
Homeseer V2, RFXcom receiver, Harrisson Electric Curtains, Touchscreen + homebrew interface. DigiBee+, Velleman Relay board, homebrew optocoupler interface, homebrew Aritech interface, homebrew DigiBee-Homeseer interface.
Netcam + laatste capture in HSTouch
Moderator: Ruud
Re: Netcam + laatste capture in HSTouch
Ik ben toevallig ook weer aan het rommelen geslagen met HSTouch en de netcam plugin. Het lukt me nu om 5 foto`s te maken van de camera met behulp van een event maar het lukt met nog niet om te gebruiken in HStouch
Ik heb al wel ontdekt dat dit de url is voor de afbeeldingen http://ipadres/netcam/
Ik heb al wel ontdekt dat dit de url is voor de afbeeldingen http://ipadres/netcam/
Running HS3PRO on PC with Z-Wave / OpenTherm / Plugwise / RFXcom / MQTT / XAP400 / Logitech Media Server and Squeezelite on PI`s
Re: Netcam + laatste capture in HSTouch
Ik dacht dat de meest recente versie van Netcam automatisch een 'latest' afbeelding apart saved. Deze heeft bij mij xxxx_latest als bestandsnaam dacht ik.
My home automation blog: https://rutg3r.com
Re: Netcam + laatste capture in HSTouch
Misschien kan ik je op weg helpen.
Ik heb wat extra commentaar in het script gezet om het uit te leggen
Ik heb wat extra commentaar in het script gezet om het uit te leggen
Code: Select all
Public Sub Main(ByVal Parms As String)
Dim strDevice As String = "W55"
'=============================
Dim objFSO As Object
Dim strDeviceName As String = ""
Const OverwriteExisting = True
'Mijn camera kan alleen een stream geven en geen snapshots.
'Daardoor gebruik ik mplayer.exe die voor mij 1 frame uit de stream knipt
'en deze in de hs2\html\netcam folder zet
hs.Launch("C:\Program Files\MPlayer for Windows\mplayer.exe", " -nocache -frames 1 -vo jpeg:quality=100:outdir=../HomeSe~1/html/netcam http://192.168.1.52/img/mjpeg.cgi")
hs.WaitSecs(20)
Try
'De image die neergezet wordt heeft als bestandsnaam 00000001.jpg
'Deze wil ik hernoemd hebben naar Voordeur_Laatste.jpg
'Copy to latest version
objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile( "c:\Program Files\HomeSeer HSPRO\html\netcam\00000001.jpg" , "c:\Program Files\HomeSeer HSPRO\html\netcam\Voordeur_Laatste.jpg", OverwriteExisting )
'Om een overzicht te houden wie er allemaal geweest zijn en wanneer hernoem ik het
'laatste plaatje en geef deze een naam opgebouwd uit datum en tijd zodat deze uniek blijft.
'Rename with timestamp
Dim FileName As String
FileName = Day(Now()) & "-" & Month(Now()) & "-" & Year(Now()) & "-" & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now())
objFSO.MoveFile( "c:\Program Files\HomeSeer HSPRO\html\netcam\00000001.jpg" , "c:\Program Files\HomeSeer HSPRO\html\netcam\" & FileName & ".jpg" )
'Dit plaatje wil ik in HomeSeer tonen en daardoor heb ik ook de mogelijkheid om dit in hstouch te tonen.
''De filenaam heb ik nog van hierboven en daar moet het pad voor zodanig dat HS hem kan vinden tov de html folder
'Ik maak de filenaam bold zodat deze beter opvalt in HS
strDeviceName = "<b>" & FileName & "</b><br>"
strDeviceName = strDeviceName & "<img src='netcam/" & FileName & ".jpg'>"
hs.setdevicestring(strDevice, strDeviceName)
hs.setdevicevalue(strDevice, 1)
hs.setdevicelastchange(strDevice, now)
Catch ex As Exception
hs.writelog("<b>AZ_Voordeurbel</b>","<b>Script failed due:" & ex.Message & "</b>")
hs.setdevicestring(strDevice, "Script error!")
hs.setdevicevalue(strDevice, 100)
hs.setdevicelastchange(strDevice, now)
Exit Sub
End Try
End Sub
Bram
Re: Netcam + laatste capture in HSTouch
Ik ben gisteren ook wat verder gekomen.
Wanneer ik via een event een enkele snapshot maak dan wordt die inderdaad opgeslagen als CAM01_latest.jpg. Deze heb ik daarna als afbeelding opgegeven in HSTouch.
Ik zal later nog updaten wat de exacte paden en urls zijn want dat kan ik me nu ff niet meer bedenken
Wanneer ik via een event een enkele snapshot maak dan wordt die inderdaad opgeslagen als CAM01_latest.jpg. Deze heb ik daarna als afbeelding opgegeven in HSTouch.
Ik zal later nog updaten wat de exacte paden en urls zijn want dat kan ik me nu ff niet meer bedenken
Running HS3PRO on PC with Z-Wave / OpenTherm / Plugwise / RFXcom / MQTT / XAP400 / Logitech Media Server and Squeezelite on PI`s