Pagina 4 di 7 PrimaPrima ... 23456 ... UltimaUltima
Risultati da 31 a 40 di 61
  1. #31
    Vento forte L'avatar di Gigi600
    Data Registrazione
    20/07/08
    Località
    Sacile PN
    Età
    63
    Messaggi
    3,197
    Menzionato
    13 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    Perfetto ora è tutto Ok
    Grazie
    Metto via il programmino per un futuro non si sa mai

    Riassumo per altri copia e incolla file testo e
    salvare come estensione esempio:
    webcam.vbs
    Lo si fa eseguire con le pianificate di win o con Download System Scheduler for Windows, iDailyDiary, Autorota, Launchkey, Clipboards, Daily Diary
    Codice senza archivio

    Codice:
    ImageFile = "webcam.jpg"
    Cartella_radice = "D:\Documenti\Meteo\"
    rnd_num=Int((999 * Rnd) + 1)
    URL = "http://sacilemeteo.altervista.org/_altervista_ht/webcam.jpg?" & rnd_num
    
    Set xml = CreateObject("Microsoft.XMLHTTP")
    xml.Open "GET", URL, False
    xml.Send
    set oStream = createobject("Adodb.Stream")
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Const adSaveCreateNotExist = 1
    oStream.type = adTypeBinary
    oStream.open
    oStream.write xml.responseBody
    
    oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
    
    oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
    oStream.close
    
    set oStream = nothing
    Set xml = Nothing
    Codice Con archivio

    Codice:
    Set sc = CreateObject("Scripting.FileSystemObject")
    
    Cartella_radice = "D:\Documenti\Meteo\"
    rnd_num=Int((999 * Rnd) + 1)
    URL = "http://sacilemeteo.altervista.org/_altervista_ht/webcam.jpg?" & rnd_num
    
    
    anno=Year(Date)
    mese=right ( "00" & Month(Date),2)
    giorno=right ( "00" & Day(Date),2)
    ora= right ( "00" & Hour(Now) ,2)
    minuti= right ( "00" & Minute(Now)  ,2)
    
    
    Nome_img = "cam_" & ora & "_" & minuti & ".jpg"
    
    
    cartella_odierna = Cartella_radice & anno &"-" & mese &"-" & giorno & "\"
    
    
    ' se non esiste cartella RADICE...la crea
    If Not sc.FolderExists(Cartella_radice) Then  sc.CreateFolder Cartella_radice
    
    ' se non esiste cartella odierna...la crea
    If Not sc.FolderExists(cartella_odierna) Then  sc.CreateFolder cartella_odierna
    
    
    Set xml = CreateObject("Microsoft.XMLHTTP")
    xml.Open "GET", URL, False
    xml.Send
    
    
    If xml.Status = 200 Then
    
    
        set oStream = createobject("Adodb.Stream")
        Const adTypeBinary = 1
    
    
        oStream.type = adTypeBinary
        oStream.open
        oStream.write xml.responseBody
    
    
        oStream.savetofile cartella_odierna & Nome_img, 2 '  OverWrite
        oStream.close
    
    
       set oStream = nothing
    End if
    
    
    Set xml = Nothing
    Set sc = Nothing

  2. #32
    Calma di vento
    Data Registrazione
    06/03/15
    Località
    Asolo
    Età
    66
    Messaggi
    15
    Menzionato
    0 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    Come diavolo si fa' a rispondere ai MESSAGGI DEI VISITATORI ?

    Non riesco a trovare l' opzione

  3. #33
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    No,fwink
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  4. #34
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    ho nuovamente problemi.

    ho cambiato pc, installato windows 7 ultimate, ma lo script sopra nun funziona..

    mi da il seguente errore

    Immagine.png
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  5. #35
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    Help! !!
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  6. #36
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    Mariuss se ci sei batti un colpo ��
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  7. #37
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    Citazione Originariamente Scritto da Gigi600 Visualizza Messaggio
    Il modo più semplice usare le pianificate di win

    Ho notato che da un errore se trova già l'immagine
    Se invece la cancello , cioè non trova l'immagine, funziona

    Allegato 399192
    da lo stesso erroe anche a me.

    il mio scrpit ora è :

    ImageFile = "capture1.jpg"
    DestFolder = "C:\Users\DAVIS\Documents\webcam\"


    URL = "http://192.168.0.6:81/snapshot.cgi?user=admin&pwd="


    Set xml = CreateObject("Microsoft.XMLHTTP")
    xml.Open "GET", URL, False
    xml.Send
    set oStream = createobject("Adodb.Stream")
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Const adSaveCreateNotExist = 1
    oStream.type = adTypeBinary
    oStream.open
    oStream.write xml.responseBody

    oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist

    oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
    oStream.close

    set oStream = nothing
    Set xml = Nothing
    cosa devo modificare per farlo funzionare?

    come a Gigi600 se cancello l'immagine funziona, se la trova già non sovrascrive.

    sarebbe possibile inserire nello script, prima che faccia il download, una riga di comando che mi cancelli il file "capture1.jpg" in modo che, quando salva immagine nuova, non lo trovi e quindi funzioni?

    come si fa?
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  8. #38
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    dopo vari tentativi ce l'ho fatta da solo... ho inserito un comando che cancelli l'immagine prima di scaricarne una nuova, sembra funzuini..
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  9. #39
    Uragano L'avatar di roby4061
    Data Registrazione
    20/06/02
    Località
    Villar Perosa e Villanova C.se (TO)
    Messaggi
    38,304
    Menzionato
    7 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    Citazione Originariamente Scritto da roby4061 Visualizza Messaggio
    dopo vari tentativi ce l'ho fatta da solo... ho inserito un comando che cancelli l'immagine prima di scaricarne una nuova, sembra funzuini..
    ragazzi mi si è di nuovo impallato il pc della davis ed ora ne sto usando un altor..

    non ricordo più come si fa a creare uno script che mi cancelli l'immagine nella cartella prima che l'altro script la scarichi dalla telecamera..

    mi date una mano??
    Villar Perosa, B.ta Casavecchia (TO) 630 m
    Villanova C.se (TO) 376 m slm



  10. #40
    Bava di vento
    Data Registrazione
    29/04/15
    Località
    Migliarino (FERRARA) - 3 m
    Età
    32
    Messaggi
    67
    Menzionato
    0 Post(s)

    Predefinito Re: esiste un programma per catturare immagini da IP camera?

    io uso wdwebcamcapture

Segnalibri

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •