Discussion :

[francky23012301]

Salut à tous,

Il est possible d'utiliser les Streams avec les composants TidTCP d'Indy. Cependant ils ne sont pas tres souples d'utilisation. Je pense que l'on doit pouvoir faire de même avec les composants TSocket en effet la fonction SendStream existe. Mais pour son homologue ReceiveStream ce n'est pas le cas. Sauriez vous comment faire ?

Merci à vous

[Reisubar]

Qu'entends tu par "pas très souples d'utilisation" ?... Les composants Indy sont de loin bien mieux conçus que les TClientSocket/TServerSocket.

Pour ta réponse, si ReceiveStream() n'existe pas côté serveur, tu peux aussi lire le stream avec ReceiveBuf().

[francky23012301]

Re,

Quand je disais pas très souple je m'explique : Effectivement les composants Indy sont mieux faits dans la mesure ou il y a moins d'erreurs. Cependant niveau client tu n'as pas de procedure OnRead ce qu'il fait que c'est un sacré problème : Rien que pour faire un tchatte par exemple.

J'ai réalisé ce code :

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
 Procedure TForm1.SendStreamTo (Who : TSocket; AStream : TStream);
Var
Buffer
Begin
If AStream<>nil then 
begin
AStream.seek(0,SoFromBeginning);
Try
GetMem(Buffer,AStream.size);
AStream.Read(Buffer^,AStream.size);
Who.send(Buffer^,AStream.Size);
finally
FreeMem(Buffer);
end;
end;
end;

--------

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
 Procedure TForm1.ReceiveStreamFrom(Who : TSocket;AStream : TSream);
Var
Buffer : Pointer
Len : longInt;
Begin
Len:=Who.ReceiveLength;
If Len<>0 then 
begin
try
GetMem(Buffer,Len);
Who.ReceiveBuf(Buffer^,len);
Astream.Write(Buffer^,Len);
Finally
FreeMem(Buffer);
end;
end;
end;

Manque de chance : cela se traduit par un plantage du socket. Je ne sais pas pourquoi

Merci pour ta réponse

[LadyWasky]

Salut

Tout d'abord...



Ensuite :
Ce fil de discussion peut-il t'aider à y voir clair ?
http://www.developpez.net/forums/sho...7&postcount=10

Pour faire un Tchat, les méthodes SendText et ReceiveText ne te suffisent-elles pas ?

Enfin, tu as oublié de définir ce qu'était Buffer dans la déclaration de variables de SendStreamTo

Procedure TForm1.SendStreamTo (Who : TSocket; AStream : TStream);
Var
Buffer //<---- ici
Begin

Enfin, il est fortement probable que tu soit en mode non-bloquant, auquel cas, ton FreeMem intervient alors que le socket n'a pas fini d'utiliser les données du buffer et là, ça coince...

[francky23012301]

Désolé pour les balises : autant pour moi.

Pour le buffer : je n'ai pas Delphi sous les yeux donc j'ai justre réécrit de tete ce que j'ai fais hier soir. Effectivement Buffer est un Pointeur.

Je suis en mode non bloquant : cela veut il dire que je dois mettre un sleep ou il y a t'il un autre moyen ?

Merci

[LadyWasky]

Je pense effectivement qu'un sleep devrait faire l'affaire, mais tu perds du coup l'intérêt du non bloquant.

mais je me suis peut-être avancé un peu sur ma supposition puisque lors du SendBuf, Delphi effectue un Lock puis un UnLock dans son code (une espèce de pause des threads si j'ai bien compris)...

Sinon, à la réception, il est possible que tu ne reçoive pas tout ton paquet de données en un seul morceau.

En tout cas, Borland n'a pas réussi à implémenter les Streams en mode non-bloquant, si on en croit les fichiers d'aide.

Ce qui est sur, c'est que si tu n'as pas tant de connexions que ça et que le traffic n'est pas très intensif, peut-être serait-il mieux de tout gérer en bloquant.

Là s'arrètent mes compétences en ce domaine

[anapurna]

salut


a priorie le receivebuffer attend en paramettre un tableau de char de type TIdBytes

voila la definition dans IdGlobal

Code :

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

1
2
3
4
 
  TBytes = array of Byte;
  {$ENDIF}
  TIdBytes = TBytes;

essai avec ce type plutot que d'utiliser un pointeur
ensuite si l'erreur persiste donne nous le type d'erreur declencher


@+ Phil