Reprise du message précédent :
je l'ouvre en fmCreate mais d'apres laide , c aussi en mode ecriture  
 
ok mci , je v voir ce que je peux faire maintenant !

//reception fichier
  freception:=Tfilestream.Create(extractfilepath (application.ExeName)+NomFichierReception,fmOpenRead and fmShareDenyNone);
   
 
  f:=socket.ReceiveLength;
  SetLength(ChaineReception,f);
  socket.ReceiveBuf(ChaineReception,f);
  socket.ReceiveBuf(ChaineReception,socket.ReceiveLength);
  freception.Write(ChaineReception[1],sizeof(ChaineReception));
   
 
 
//envoi
 routefichier:=Filename;
     Fenvoi:=Tfilestream.Create(routefichier,fmCreate and fmShareDenyNone);
 
 SetLength(Chaine, Fenvoi.Size);
 Fenvoi.Read(Chaine[1], Fenvoi.Size);
 ServerSocket1.Socket.Connections[0].SendBuf(Chaine,r);
 
 
 
jai rajoute ca et jai remplace le fmcreate par fmopenread mais le fichier recu contient un petit carré a la place du texte voulu

 socket.ReceiveBuf(ChaineReception,f);
  socket.ReceiveBuf(ChaineReception,socket.ReceiveLength);
 
pq 2x ?
puis t'as oublié le [1] de ChaineReception
 
idem pour le SendBuf

bha le x2 cetait juste dans le forum
le [1] je pensais que ca allait juste envoyer le premier caractere de la chaine !
 
voila merci , je teste

//reception fichier
  freception:=Tfilestream.Create(extractfilepath (application.ExeName)+NomFichierReception,fmCreate and fmShareDenyNone);
   
 
  f:=socket.ReceiveLength;
  SetLength(ChaineReception,f);
  socket.ReceiveBuf(ChaineReception[1],f);  
  freception.Write(ChaineReception[1],sizeof(ChaineReception));
   
 
 
//envoi
 routefichier:=Filename;
     Fenvoi:=Tfilestream.Create(routefichier,fmOpenRead);
 
 SetLength(Chaine, Fenvoi.Size);
 Fenvoi.Read(Chaine[1], Fenvoi.Size);
 ServerSocket1.Socket.Connections[0].SendBuf(Chaine[1],r); // r reste = 0 apres cette ligne ... donc il envoit RIEN!
 
 
 
 
 
 
 
toujours le meme probleme ... le fichier envoyé est vide chez celui qui recoit ! HELP ANTP

heu t'as mis le fmCreate pour le fichier que tu lis et le fmOpenRead pour le fichier que tu écris

c pas ca .. ca cetait juste une erreur de transcription sur le forum .... dans ma source cetait deja comme ca !

"// r reste = 0 apres cette ligne ... donc il envoit RIEN! "
 
heu là où t'as mis r tu dois mettre Fenvoi.Size
 
Le nombre d'octets transférés il le renvoie (r := ...)

voila pour lenvoi ca marche maintenant  
merci  
 
le probleme c pour la reception :  
 
//reception fichier
  freception:=Tfilestream.Create(extractfilepath (application.ExeName)+NomFichierReception,fmCreate and fmShareDenyNone);
   
 
  f:=socket.ReceiveLength;
  showmessage(inttostr(f)); // ca donne 0 ....
  SetLength(ChaineReception,f);
  socket.ReceiveBuf(ChaineReception[1],f);  
  freception.Write(ChaineReception[1],sizeof(ChaineReception));
 
Encore un help ! ptet que ca va marcher un jour !

Ça par contre je sais pas

ca y est f marche ! . apparament c le socket.receivetext avant qui annuler le socket.receivelenght
 
jai un autre probleme  
 
la maintenant mon fichier recu n'est pas vide mais il contient uniquement les 4 premiers caractere du fichier envoyé donc encore une fois HELP
 
dans ma procedure clientsocketRead , jai donc ca :
 
if ITSFICHIER then
begin
f:=socket.ReceiveLength;  
 SetLength(ChaineReception,f);  
 socket.ReceiveBuf(ChaineReception,f);  
 socket.ReceiveBuf(ChaineReception,socket.ReceiveLength);  
 freception.Write(ChaineReception[1],sizeof(ChaineReception));
ITSFICHIER:=false;
end;
 
le truc c que je me demande si receivebuf il y va par accoups . (de 4 caractere a la fois ) or a la fin je met ITSFICHIER a false ce qui empecherai la suite de l'ecriture ...  
euh tu me comprend ?
si c ca , alors il faudrait reussir a mettre un espece de stop avant le ITSFICHIER=false;  
ou lui dire de le faire que quand lecriture totale du fichier est faite !

C'est par blocs de 8 Ko en général (du moins sous Win2000)
Je comprends pas très bien ce que tu veux là.
Le truc qu'y a c'est que quand tu envoies deux trucs à la suite, les deux arrivent concaténés de l'autre côté.
Pour éviter les problèmes, le plus simple est de dire que l'autre doit répondre (genre 'ok') avant qu'on envoie le message/données suivant.
C'est assez délicat à utiliser, et j'ai pas spécialement les meilleurs conseils là dedans, vu que quand j'ai dû utiliser ces sockets ça ressemblait fort à du bidouillage en fin de compte

Tout ce que je veux , c que mon freception , il soit entier et que yest pas seulement les 4 premier caractere      
 
voila ... pourkoi il mecrit QUE les 4 premier caratere alors qu'il en a bien plus ?
 
et laisse tomber mon hypothese du dernier post , c n'inporte koi ...

Pourquoi il y a 2 fois un appel à socket.ReceiveBuf() ?
Et il ne faudrait pas boucler tant qu'il y a des données qui arrivent pour toute les récupérer ?

m'enfin je lui avais déjà dit qu'il devait pas le mettre 2x, j'avais pas vu qu'il l'avait encore fait
 
en effet il faudrait boucler, mais une chose à la fois, faudrait déjà que ça marche avec des petits fichiers

euh oui le x2 , c parceque jai fait une copie du forum ...
ou yavait deja l'erreur mais bon ca c pu un probleme maintenant !  
 
je v essayer de boucler ! voir ce que ca donne !  

Bon recapitulons parceque la ca marche pas  
puis ya un truc que je trouve zarbe !  
 
jai un fichier de 710 bytes !
 
SetLength(Chaine, Fenvoi.Size);
 Fenvoi.Read(Chaine[1], Fenvoi.Size);
 r:=Fenvoi.Size;
 ServerSocket1.Socket.Connections[0].SendBuf(Chaine[1],r);
 i:=i+r;
 log.Lines.Add('Upload ..' + inttostr(i) +' bytes');
 //ici jai i=710 donc TOUT le fichier a te envoyé normalement !
 log.Lines.Add('Envoi Terminé');
 
 
au moment du receive jai un tout petit peu modif le code en :  
 
if ITSFICHIER=true then
 begin
 //reception fichier
  f:=socket.ReceiveLength; // la f est bien egale a 710 bytes donc il a normalement tout le fichier non ?
  SetLength(ChaineReception,f);
  socket.ReceiveBuf(ChaineReception[1],f);
  freception.Write(ChaineReception[1],sizeof(ChaineReception));
   if freception.Size>=f then //ca ca narrive pas vu que il sentete a n'ecire que les 4 premier bytes ...  
   ITSFICHIER:=false;
  exit;
 end;
 
je me suis dit que ca venait ptet de l'envoi .. la boucle faut il la faire lors de l'envoi et si oui , comment ?

sizeof(ChaineReception) -> 4 octets car ChaineReception est un pointeur 32 bits vers une chaîne de caractères
 
pourquoi tu mets pas f comme sur les lignes précédentes ?

CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!
CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!CA MARCHE !!!!!!!!  
CA MARCHE !!!!!!!!
 
cetait ca le probleme !  
merci pour tout ca marche impec !

Si on pouvait avoir un extrait du code de l'envoi et de la réception histoire de faire plaisir à tout le monde ça serait cool ^^