(WINSOCK) Problème d'accès à un fichier après écritureRésolu

Question

Bonjour,

Je vous d&#233;cris mon probl&#232;me... J'envoie un fichier par winsock &#224; partir d'un serveur vers mon client (une screenshot), voici mon code : 

If (Left(cData, 10) = "SCREENSHOT") Then ' si les infos correspondent a une screenshot envoy&#233;e
    Temp = Right(cData, Len(cData) - 10) ' je transf&#232;re les data dans une variable temp
    If RcvSC = False Then ' si fichier non ouvert
        Open App.Path & "\screenshot.jpg" For Binary Access Write As #2 ' ouverture du fichier
        RcvSC = True ' fichier est ouvert
    End If
    If RcvSC = True Then ' si fichier ouvert
        If Temp <> "END" Then ' si la donn&#233;e recue est diff&#233;rente de END (fin de fichier)
            Put 2, , Temp 'Store the data to the file ' on stocke les donn&#233;es dans le fichier
        Else
            Close #2 ' on ferme le fichier
            RcvSC = False  ' fichier plus utilis&#233;
         End If
    End If

Seulement, lorsque mon programme est toujours ouvert (je ne souhaite pas fermer la connexion winsock car elle recoit d'autres donn&#233;es pour d'autres raisons), il est impossible de pouvoir ouvrir la screenshot recue (bien que j'en vois l'apercu dans la partie gauche de l'explorateur window).

Est il possible que j'ai mal ferm&#233; le fichier? Quelqu'un a d&#233;j&#224; eu ce pb?

Merci d'avance pour vos r&#233;ponses!!

cs_Jack · Accepted Answer

lol, tout d&#233;pend la mani&#232;re dont tu t'y prends avec tes ent&#234;tes, pas assez d'info pour te r&#233;pondre. Tout d&#233;pend du "protocole maison" que tu as invent&#233;.

Personnellement, dans mes comm &#224; base de winsock, mes ent&#234;tes sont organis&#233;s comme &#231;a :
- Pour les transferts de donn&#233;es texte standard :
TexteEnt&#234;te & Chr(0) & Donn&#233;e1 & Chr(0) & Donn&#233;e2 & ... & Chr(1)
A la r&#233;ception, Chr(1) sert de d&#233;tecteur de fin de trame, et il n'y a plus qu'&#224; d&#233;couper la chaine de r&#233;ception avec les Chr(0)
- Pour les transferts de fichiers :
TexteEnt&#234;te & Chr(0) & NomFichier & Chr(0) & LongueurDesDonn&#233;es & Chr(0) & Donn&#233;es & Chr(1)
avec TexteEnt&#234;te = "Fichier" Cas particulier
A la r&#233;ception, quand je d&#233;tecte cet ent&#234;te, je r&#233;cup&#232;re les le nom et la longueur et j'attends que toutes les donn&#233;es soient l&#224; avant de les enregistrer d'un seul coup dans un fichier.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

pjcleder · Answer

PAT
Apr&#233;s ton put, tu dois fermer le fichier (faire un close)  pour que ton traitement soit pris en compte.

cs_Jack · Answer

Salut
A mon avis, ton transfert ne se termine jamais car il y a peu de chance que TEMP soit exactement &#233;gal &#224; END puisque TEMP = aux donn&#233;es moins l'ent&#234;te !
Va falloir revoir le d&#233;coupage
Pour le transfert de fichiers, je te conseille d'ajouter apr&#232;s ton ent&#234;te SCREENSHOT la longueur des donn&#233;es qui suivent pour t'en servir pour connaitre la fin de transmission.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

myarouvb · Answer

oui mais ya un soucis, si je fais un close apr&#232;s chaque put, il faut aussi que je rouvre &#224; chaque fois le fichier pour y &#233;crire des infos. Or, les infos ne seront plus mis en queue, elles vont &#233;craser le contenu du fichier!

NOn?

myarouvb · Answer

Jack, comment fermer mon fichier alors dans ces cas l&#224;, sans me prendre la tete avec la longueur des donn&#233;es qui suivent?

cs_Jack · Answer

NB : Si tu veux r&#233;ouvrir un fichier et ajouter des donn&#233;es &#224; la suite, suffit d'ajouter la commande Append dans la commande d'Open (Voir l'aide)

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

pjcleder · Answer

PAT

Mais bon sang, mais c'est bien sur.

Si j'&#233;tais myarouvb, je mettrais un petit coup de peinture verte sur la r&#233;ponse de jack !

myarouvb · Answer

waouh !

myarouvb · Answer

mmhhh en fait j'ai encore une question jack!
Comment t'y prends tu pour effectuer tes transferts de (gros) fichiers?

Voici ma portion de code qui me permet d'envoyer la screenshot en question

   Dim Screenshot As String
   Dim BlockSize As Long
   Dim SndSC As Boolean ' variable v&#233;rifiant si le transfert est en cours ("SeNDScreenShot")
   BlockSize = 4000
    
    Open App.path & "\screenshot.jpg" For Binary Access Read As #1
    Do While Not EOF(1)
        Screenshot = Space$(BlockSize)
        Get 1, , Screenshot 
        If SndSC <> True Then
            Winsock.SendData ("SCREENSHOT" & Screenshot)
            SndSC = True
        Else
            Winsock.SendData ("SCREENSHOT" & Screenshot)
        End If
    DoEvents
    Loop
        
        Winsock.SendData "END"
    Close #1

Dans ce cas pr&#233;cis, l'envoi de la donn&#233;e "END" marque bien la fin de fichier  non?
Dans ton exemple, tu pr&#233;conises de faire comme ceci : 
TexteEnt&#234;te & Chr(0) & NomFichier & Chr(0) & LongueurDesDonn&#233;es & Chr(0) & Donn&#233;es & Chr(1)

Mais ca ne fonctionnera pas en cas de gros fichier, si?

Beaucoup de questions je sais, mais ca m'aidera &#224; mieux comprendre le fonctionnement de ce gros merdier

cs_Jack · Answer

re
L'envoi de donn&#233;e n'est jamais un probl&#232;me : le winsock exp&#233;die les donn&#233;es sans probl&#232;me.
Pour r&#233;sumer ce qui est expliqu&#233; cent fois sur ce m&#234;me forum (...) la r&#233;ception de grosses quantit&#233;s d'infos ne se fait pas en une seule fois, mais par paquet d'environ 16ko = la taille du buffer d'un winsock.
Il faut donc m&#233;moriser les infos qui arrivent au fur et &#224; mesure avant de les traiter (c'est une possibilit&#233;. Pour savoir si toutes les donn&#233;es sont bien arriv&#233;es, il faut donc un marqueur de fin.Tu avais choisis d'ajouter END en fin de trame, Ok, mais tel que tu le testais, &#231;a pouvait pas marcher : tu testes si  Temp "END", Temp &#233;tant les donn&#233;es re&#231;ues, donc peu de chance que les donn&#233;es soient pile &#233;gale &#224; END, tu auras tjrs qqchose devant ! Il faut tester si les trois derniers caract&#232;res END, ce n'est pas pareil !
Cette technique est bonne ... si tu n'exp&#233;dies pas plusieurs fichiers &#224; la suite. Si c'est le cas, ton END sera noy&#233; dans les donn&#233;es du 1er envoi et du suivant.
La meilleure technique r&#233;side donc dans l'utilisation du transfert de l'info principale : la longueur des donn&#233;es transmises.
A toi d'imaginer la mani&#232;re de le faire.
En cherchant un peu parmi les centaines de sourcces de vbfrance qui parlent de chat ou de transfert de fichier, tu trouveras des id&#233;es.

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

myarouvb · Answer

Ok.... Mais ta variable Donn&#233;es1 (ou Donn&#233;es2), de quel type est elle? 
Parce que pour ma variable screenshot, qui est de type string, si je mets tout le contenu du fichier &#224; l'int&#233;rieur, elle arrive vite &#224; saturation!

C'est plut&#244;t &#224; ce niveau l&#224; que se localise mon probl&#232;me....

myarouvb · Answer

Aussi, comment connais tu la taile de tes donn&#233;es? Len(Donn&#233;es)?

myarouvb · Answer

&#224; l'aiiiideee!!!!

(WINSOCK) Problème d'accès à un fichier après écriture

13 réponses

Discussions similaires