associare l'ora alla foto salvata.

[fifiddu70]

Ciao a tutti, sto sperimentando la camera, ho realizzato un semplice software che ti scatta la foto e la salva, il problema e sul salvataggio, come faccio a salvare la foto senza sovrascrivere quella precendente?
vi posto il mio codice che non riesco a far funzionare

Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "Camera.jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
ToastMessageShow("IMMAGINE SALVATA: " & File.Combine(File.DirRootExternal, "Camera.jpg"), True)
btntakepicture.Enabled = True
End Sub

come vedete il file salva come: camera.jpg, ma io vorrei fare in modo che l'immagine salvata venga aggiunta da un numero progressivo permettendo così il salvataggio senza sovrascrivere quelle precedenti, oppure magari aggiunta di una data e l'ora.

[maxware]

Ciao fifidu70
per farti tornare la data o l'ora usa questo codice
Dim v_data As Long
v_data = DateTime.Now
DateTime.Date(v_data) ti torna il giorno
DateTime.Time(v_data) ti torna l'ora

no ho provato ma prova cosi
sostituisci il tuo codice
out = File.OpenOutput(File.DirRootExternal, "Camera.jpg", False)
con
out = File.OpenOutput(File.DirRootExternal, "Camera.jpg" & DateTime.Time(v_data) , False)
dovrebbe funzionarti
Ciao

[fifiddu70]

niente mi da un errore proprio sulla riga
out = File.OpenOutput(File.DirRootExternal, "Camera.jpg" & DateTime.Time(v_data) , False)
ho dichiarato la variabile come mi hai detto tu ma non va.

[Filippo]

Ciao Filippo,

vedi un pò cosa ti mostra "msgbox(v_data)", senza una piccola modifica dovrebbe darti una cosa del genere "22/01/2012)" e questo non puo funzionare perche ci sono questi caratteri "/".

Cambia il tuo codice così:

DateTime.DateFormat="dd.MM.yyyy"
DateTime.TimeFormat="HH.mm.ss"
out = File.OpenOutput(File.DirRootExternal, "Camera_" & DateTime.Date(v_data) & "_" & DateTime.Time(v_data) & ".jpg" , False)

Ciao,
Filippo

[fifiddu70]

ciao filippo, intanto grazie per essere intervenuto, il problema rimane sempre quello iniziale, cioè adesso salva con la data e l'ora ma se scatto un'altra foto senza chiudere il programma, mi sovrascrive quella precedentemente salvata ed ho notato che sia la data che l'ora non cambiano se scatto diverse foto, se invece chiudo il programma e lo riapro allora appena scatto la foto in effetti mi salva su altro file senza sovrascivere quello precedentemente, ma non posso scattare più foto con il programma aperto.

[maxware]

Giusto Filippo non avevo considerato al momento della risposta la formattazione della data
e se una volta scattata la foto e aver salvato il file lo stesso appena creato lo copy in una cartella diversa o con un nuovo nome
Ciaoo
Massimo

[fifiddu70]

allora.....io ho risolto in modo diverso, ho inserito un contatore e lo associato alla data ed allora in modo da avere ad ogni scatto un numero progressivo, adesso ho un'altro problema, ma questo problema nasce dall'inizio e non ha a che fare con il salvataggio ma bensi con la camera.
in pratica ho obbligato lo screen orizzontale all'apertura del programma con il classico metodo:
dim p as phone
p.SetScreenOrientation (0)

e fin qui tutto apposto, ma appena vado in debug ed ho il telefono in posizione verticale, la camera non si abilita rimanendo nero lo schermo, mentre se prima di fare il debug se il telefono è in orizzontale allora il programma funziona bene e la camera si abilita, qualcuno sa dirmi perchè?
vi posto il codice:

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    Dim counter1 As Int
    counter1 = counter1 + 1
     Dim camera1 As AdvancedCamera
       Dim panel1 As Panel
    Dim timer1 As Timer
    Dim timer2 As Timer
    Dim Button2 As Button
    Dim btnAqua As Button
    Dim btnBlackboard As Button
    Dim btnMono As Button
    Dim btnNegative As Button
    Dim btnNegativo As Button
    Dim btnPosterize As Button
    Dim btnsepia As Button
    Dim btnSolarize As Button
    Dim BTNTAKE As Button
    Dim btnWitheboard As Button
    Dim btntakepicture As Button
    Dim p As Phone
    Dim now As Long
    now = DateTime.now
    Dim img1 As ImageView
    Dim v_data As Long
    v_data = DateTime.now

End Sub

Sub Activity_Create(FirstTime As Boolean)
'
'  Just add a Panel to the layout and save it as Menu
'
    
    Activity.LoadLayout("camera")
    camera1.Initialize(panel1, "camera1")
    p.SetScreenOrientation (0)
    
 End Sub


'
' A C T I V I T Y - R E S U ME
'
Sub Activity_Resume
    
    End Sub

Sub Activity_Pause (UserClosed As Boolean)
    camera1.StopPreview
    camera1.Release
End Sub
Sub timer1_Tick
    
    
End Sub

Sub    timer2_Tick
    
End Sub
Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camera1.StartPreview
        
    Else
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub


Sub btnAqua_Click
    camera1.ColourEffect = "AQUA"
End Sub
Sub btnBlackboard_Click
    camera1.ColourEffect = "BLACKBOARD"
End Sub
Sub btnMono_Click
    camera1.ColourEffect ="MONO"
End Sub
Sub btnNegative_Click
    camera1.ColourEffect = "NEGATIVE"
End Sub
Sub btnNegativo_Click
    camera1.ColourEffect = "NONE"
End Sub
Sub btnPosterize_Click
    camera1.ColourEffect = "POSTERIZE"
End Sub

Sub btnsepia_Click
    camera1.ColourEffect = "SEPIA"
End Sub
Sub btnSolarize_Click
    camera1.ColourEffect = "SOLARIZE"
End Sub
Sub btnWitheboard_Click
    camera1.ColourEffect = "WHITEBOARD"
End Sub
Sub Camera1_PictureTaken (Data() As Byte)
    camera1.StartPreview
    Dim out As OutputStream
    DateTime.DateFormat="dd.MM.yyyy"
DateTime.TimeFormat="HH.mm.ss"
out = File.OpenOutput(File.DirRootExternal, "Camera_" & DateTime.Date(v_data) & "_" & DateTime.Time(v_data) & counter1 & "_" & ".jpg" , False)
    out.WriteBytes(Data, 0, Data.Length)
    out.Close
    ToastMessageShow("IMMAGINE SALVATA: " & File.Combine(File.DirRootExternal, "Camera_" & DateTime.Date(v_data) & "_" & DateTime.Time(v_data) & counter1 & "_" & ".jpg"), True)
    btntakepicture.Enabled = True
    counter1 = counter1 + 1
End Sub
Sub btnTakePicture_Click
    btntakepicture.Enabled = False
    camera1.TakePicture
End Sub

[fifiddu70]

altra cosa...ho creato un pulsante per abilitare direttamente la camera, ho usato il btnNegativo e gli ho messo il camera1.startpreview, perchè a volte funziona e a volte mi da errore proprio su questa linea?