Discussion :

[devalender]

Bonjour
je veut a partir d'une communication socket envoyer un fichier texte sur une autre machine voici le code que j'ai recuperer dans l'aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
code d'envoi
 
// Envoi du message
	SI SocketEcrit(csNomSocket,ChampRTF.SaisieTexte) ALORS
		// On efface le texte
		ChampRTF.SaisieTexte =""
	SINON
		// Erreur lors de l'envoi du message
		Erreur("Erreur de transmission lors de l'envoi du message",ErreurInfo())
	FIN
 
 
 
code de reception
BOUCLE
	// Attente et lecture du prochain message
	QUAND EXCEPTION DANS
		sMessage = SocketLit(csNomSocket,Faux,20)
	FAIRE
		Erreur("Problème détecté sur la socket de réception",ExceptionInfo())
		SORTIR
	FIN
FIN

mon probleme c'est comment remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChampRTF.SaisieTexte

par un fichier tout entier
Merci pour vos reponse

[Le Shadow]

Allo,
Tu ne pourras pas envoyer de très gros volume d'information par socket... Si ton "fichier" à moins de 8K, tu peux mettre le contenu de ton fichier dans une variable (fchargetexte) et envoyer ce contenu par socket. Sinon tu devras envoyer par plusieurs bloc.

8k, ce n'est pas le max, mais c'est ce que j'ai trouvé de mieux comme grosseur de packet en UDP. Il est vrai que je communique Wi-Fi avec un appareil Windows ce...

[devalender]

en effet mon fichier n'est pas trop grand et la solution marche