Doorcamscript voor Aviosys 9100A

[Jeroen Bartels]

Ik wil graag een event maken waarbij ik dmv een Aviosys 9100A videoserver een foto verstuur naar mijn mobiel/mail op het moment dat er iemand aanbelt. Nu weet ik echt heel weinig van scripts en kan zelfs het commando voor het creeren van een JPEG capture nergens vinden. Ik weet bijna zeker dat er meerdere personen op dit forum dit voor elkaar hebben gekregen dus hoop dat iemand me kan helpen of zelfs een script heeft liggen.
Alvast bedankt.
P.S. Heb het forum al afgestruind maar kon niets vinden.

[esschenk]

Hallo,

Kijk hier is op deze site (forum member) misschien doet dit wat je wilt.
http://www.nldj.com/wiki/Domotica/ProjectDoorCam

Ed

[RDNZL]

If you flashed yoics firmware on it (recommended!) you can grab the images directly via http with:

http://webcamip/usr/yoicsX.jpg

Where X is the channel number.

[Antoon]

Ik heb zelf ook een Avio 9100A en gebruik hiervoor de Netcam plugin en onderstaand script.(Script komt van iemand van t forum hier,maar kon t zo snel niet weer vinden)
Als iemand aanbelt dan worden er 3 foto's gemaakt via de plugin en met t script wordt de 2e verzonden naar mijn email.
Ik heb overigens wel mijn Avio geflashed met yoics firmware.

Sub Main(Optional ByVal pParms As String = "")

Dim pi As Object
dim time
time = timevalue(now)
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("Video Server Frontdoor")

If files.Count >= 2 Then
Dim latestImage As Integer = 2
Dim strFileName As String = files(latestImage).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("mail@to", "mail@from", "Homeseer Deurbel "&time, "Homeseer Deurbel", strFileName)
End If

End Sub


- Antoon