Netcam + laatste capture in HSTouch

Homeseer Forum in het Nederlands (DUTCH forum)

Moderator: Ruud

Post Reply
Francois
Member
Member
Posts: 255
Joined: Mon Apr 21, 2008 3:16 pm
Location: Netherlands

Netcam + laatste capture in HSTouch

Post by Francois »

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.
raymonvdm
Senior Member
Senior Member
Posts: 1153
Joined: Sun Dec 18, 2011 1:23 am

Re: Netcam + laatste capture in HSTouch

Post by raymonvdm »

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/
Running HS3PRO on PC with Z-Wave / OpenTherm / Plugwise / RFXcom / MQTT / XAP400 / Logitech Media Server and Squeezelite on PI`s
Rutger
Member
Member
Posts: 339
Joined: Wed May 19, 2010 8:48 pm
Location: Netherlands

Re: Netcam + laatste capture in HSTouch

Post by Rutger »

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
User avatar
Phaeton
Advanced Member
Advanced Member
Posts: 573
Joined: Wed May 19, 2010 12:44 pm
Location: Wassenaar
Contact:

Post by Phaeton »

Maakt de laatste versie van netcam niet het file netcam_latest.jpg aan? Die kan je hiervoor gebruiken.
AshaiRey
Senior Member
Senior Member
Posts: 1310
Joined: Mon Feb 02, 2009 5:27 pm
Location: Netherlands
Contact:

Re: Netcam + laatste capture in HSTouch

Post by AshaiRey »

Misschien kan ik je op weg helpen.
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
raymonvdm
Senior Member
Senior Member
Posts: 1153
Joined: Sun Dec 18, 2011 1:23 am

Re: Netcam + laatste capture in HSTouch

Post by raymonvdm »

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
Running HS3PRO on PC with Z-Wave / OpenTherm / Plugwise / RFXcom / MQTT / XAP400 / Logitech Media Server and Squeezelite on PI`s
Post Reply

Return to “Homeseer algemeen Forum”