Problème pour enregistrer une image !

Question

Salut tout le monde,j'ai un probl&#232;me avec l'enregistrement d'une image
envoy&#233; par winsock (par le serveur) ,le client re&#231;oit l'image dans
image1.picture et l'enregistre sous le nom "Capture.jpeg" mais esce que
ce serai possible de changer le nom &#224; chaque enregistrement
("Capture(1).jpeg" , "Capture(2).jpeg" , "Capture(3).jpeg" , ETC ...)
 
 Je vous envoie le code :
 
 Client :
 
 Dim cLenTotal As Long, cAvance As Long, fReceive As Boolean
 
 Private Sub Command2_Click()
 Winsock.SendData "capture"
 fReceive = False
 Form2.Image1.Picture = Nothing
 End Sub
 
 Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
 On Error Resume Next
 Dim data As String
 Winsock.GetData data
 If fReceive = True Then
 cAvance = cAvance + Len(data)
 Open "G:	royen\Captures d'&#233;cran\Capture.jpeg" For Append As #1
 Print #1, data;
 Close #1
 Form2.Visible = True
 Form2.Label5.Caption = Int((cAvance / cLenTotal) * 100) & "%" If cAvance cLenTotal Then Form2.Image1.Picture LoadPicture("G:	royen\Captures d'&#233;cran\Capture.jpeg"): WinServe.Close
 End If
 If data Like "FILE:*" And fReceive = False Then
 cLenTotal = Mid(data, 6, Len(data))
 Form2.Label3.Caption = cLenTotal & " octets"
 fReceive = True
 cAvance = 0
 Winsock.SendData "READY"
 End If
 End Sub
 
 Serveur :
 
 
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
 Dim data As String
 
Dim cLenFile As Long, cAvance As Long

 Winsock.GetData data
 If left(data, 7) = "capture" Then
 Picture1.AutoRedraw = True
 Picture1.width = Screen.width
 Picture1.Height = Screen.Height
 BitBlt Picture1.hDC, 0&, 0&, Screen.width, Screen.Height, GetDC(GetDesktopWindow()), 0&, 0&, SRCCOPY
 SavePicture Picture1.Image, App.Path & "	emp.jpeg"
 cLenFile = FileLen(App.Path & "	emp.jpeg")
 LoadPictures (Picture1.Image)
 Call SaveJPG(m_cDib, App.Path & "	emp.jpeg", 60)
 Winsock.SendData "FILE:" & FileLen(App.Path & "	emp.jpeg")
 End If
 If data Like "*READY*" Then
 Dim Texte As String
 cAvance = 0
 Open App.Path & "	emp.jpeg" For Binary Access Read As #1
 Texte = Space(LOF(1))
 Get 1, , Texte
 Close #1
 Winsock.SendData Texte
 Kill App.Path & "	emp.jpeg"
 End If

 

 --------------------------------------------------------------------------------------------------------------------------------------------
 
--------------------------------------------------------------------------------------------------------------------------------------------

 
 
Voila
,j'esp&#232;re que vous arrivez &#224; vous y retrouver,en faite quand je clique
sur le bouton Command2 dans le client ,winsock envoie "capture" pour
que le serveur envoie la capture,sa c'est fait mais dans dataarrival du
client, comment faire pour enregistrer sous plusieurs noms .
 
 Merci ^^

Gobillot · Answer

tu veux enregistrer des fichiers sous la forme  Capture01.jpeg, Capture02.jpeg, Capture02.jpeg

c'est &#231;a ??

il faut chercher &#224; quel num&#233;ro tu est arriv&#233; et l'incr&#233;menter de 1 &#224; chaque nouvelle capture




        z$ = 
Dir$("G:	royen\Captures d'&#233;cran\Capture*.jpeg")



        m = 0

        While z$ <> ""

            Lg = Len(z$) - 6

            v = Val(Mid$(z$, Lg, 2))

            If v > m Then m = v

            z$ = Dir()

            Wend


        m = m + 1
     
Open "G:	royen\Captures d'&#233;cran\Capture" & Format$(m,"00") & ".jpeg" For Append As #1


Daniel

Problème pour enregistrer une image !

1 réponse

Discussions similaires