ClientSocket, ServerSocket Silence radio (sendstream)Résolu

Question

Salutation belle compagnie, ça faisait un petit moment que j'avait pas ecrit pour pleurer l'aide d'eminences grises, plus grises que moi. Voila j'ai une petite appli client serveur via ClientSocket et ServerSocket, Je veux recuperer un fichier xml qui contient les info d'une requète sql. je passe donc par stream. transformant en flu mon Xml et l'envoyant via : ServerSocket1.Socket.Connections[0].SendStream(Stream); voila le code de l'envoi; code

procedure TFormServeur.EnvoyerClick(Sender: TObject); Var FileStr:TFileStream; Stream:TMemoryStream; begin ClientDataSetNoms.SaveToFile('../Monxml.xml'); HKStreams.ClearStreams; FileStr:=TFileStream.Create('../Monxml.xml', fmOpenRead); Try HKStreams.AddStream('XML', FileStr); Finally FileStr.Free; End; Stream:=TMemoryStream.Create; HKStreams.SaveToStream(Stream); // on balance le stream au client ServerSocket1.Socket.Connections[0].SendStream(Stream); end;

coté client j'ai recuperer un code pour recuperer le stream (on a pas idée de faire des SendStream et pas de ReciveStream ) mais le probleme c'est que le le client ne recoit rien du tout! il ne rentre pas dans la procedure : code

procedure TFormClient.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var tempstream : TMemoryStream; Buffer : Pointer; begin while Socket.ReceiveLength > 0 do begin Buffer := AllocMem(Socket.ReceiveLength); try Socket.ReceiveBuf(Buffer^, Socket.ReceiveLength); tempstream.Write(Buffer^, StrLen(Buffer)); finally FreeMem(Buffer); end; tempstream.Seek(0, soFromBeginning); ClientDataSet1.LoadFromStream(tempstream); end; end;

voial si vous avez des suggestions je suis tout ouïe

Bastard60 · Accepted Answer

j'ai finalement trouver pourquoi le client ne voulait rien entendre!
c'est juste car le serveur n'envoyait rien!
en effet j'avait oubli&#233; un petit : Stream.Position := 0; du cot&#233; serveur.
toute fois les probleme c'etant suivis par la suite, je passe finalement par les composant indi. bien plus facile a utilis&#233;.
(les pb en question sont en rapport avec :
    while Socket.ReceiveLength > 0 do begin 
      Buffer := AllocMem(Socket.ReceiveLength);
 la fonction renvoi une valeur approxiamative et coupe le stream en deux partie! pas pratique du tout ^_^. )

neodelphi · Answer

Etant donn&#233; que tu envoi et recoi un fichier xml pourquoi tu n'utiliserai pas les wrtieln et les readLn qui sont concus pour envoyer et recevoir des lignes ? 

neodelphi

Bastard60 · Answer

Le probleme c'est que bien que je l'ai pas encore implement&#233;, le contenu du xml sera cript&#233; et compress&#233; via HKStream. dans ce cas il ne s'agit plus d'un texte en lui meme.
Mais ce que je trouve etrange c'eest vraiment que le client ne recoive rien, avec un simple Sendtext(montext). il re&#231;ois parfaitement. il ne s'agirais pas d'une erruer dans mon code? j'aimerai savoir si quelqun a deja envoyer des streams via serveursocket et Clientsocket, qu'il me poste le code pour que je vois ou &#231;a va pas ^_^.
mici d'avance.

neodelphi · Answer

As-tu au moins essay&#233; d'envoyer du texte ? au pire de toute facon tu peut envoyer tes donn&#233;es binaires sous forme de texte.

V&#233;rifi qu'il n'y &#224; pas un pare-feu, un routeur ou quelque chose qui bloque le transfert...

neodelphi

ClientSocket, ServerSocket Silence radio (sendstream)

4 réponses

Votre réponse

Discussions similaires