Problème pour enregistrer une image de pictureboxRésolu

Question

Slt tout le monde.Voila je vous donne le code directement :



If fReceive = True Then

cAvance = cAvance + Len(Data)

Open "G:\Captures d'&#233;cran\Capture.jpeg" For Append As #1

Print #1, Data;

Close #1

Label5.Caption = Int((cAvance / cLenTotal) * 100) & "%"

If cAvance cLenTotal Then Image1.Picture LoadPicture("G:\Captures d'&#233;cran\Capture.jpeg")

End If

If Data Like "FILE:*" And fReceive = False Then

cLenTotal = Mid(Data, 6, Len(Data))

Label3.Caption = cLenTotal & " octets"

fReceive = True

Kill "G:\Captures d'&#233;cran\Capture.jpeg"

cAvance = 0

Winsockcap.SendData "READY"

End If



Voici
le code qui permet de recevoir la capture d'&#233;cran par winsock et je
souhaiterai enregistrer avec un nom diff&#233;rent &#224; chaque 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



Voici le code qui permet de
enregistrer sous un nom diff&#233;rent &#224; chaque fois mais comment
enregistrer avec le code au dessus car quand j'essaye ,un dizaine de
fichier sont cr&#233;&#233; !!!



MERCI ^^

NHenry · Accepted Answer

Bonjour

Il faut que tu ouvre ton fichier une fois au début du téléchargement et que tu le fzerme à la fin, car si tu fait ton code à chaque réception, ton image sera séparée en plusieurs fichiers.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

robapt · Answer

Merci beaucoup NHenry ^^

Problème pour enregistrer une image de picturebox

2 réponses

Votre réponse

Discussions similaires