Connexion fermée gracieusement lorsque IdTCPClient.IOHandler.ReadStream()!

Question

Je suis nouveau à delphi et ceci est mon premier projet. est ici un peu de code:

procedure TForm1.Button2Click(Sender: TObject); 
responseStringFromServer:TStringStream; 
begin 
try 
    if IdTCPClient1.Connected then 
    begin 
    dataSentToDevice:= 'http/1.0 content-length: 344 content-type: text/xml <?xml   version="1.0" encoding="UTF-8" ?> ...' 
    IdTCPClient1.IOHandler.WriteLn(dataSentToDevice); 
    responseStringFromServer := TStringStream.Create; 
    IdTCPClient1.IOHandler.ReadStream(responseStringFromServer); 
    ... 

J'ai un appareil connecté au réseau local. Je parviens à me connecter avec succès. L'envoi de commandes travaille aussi, mais quand je fais

IdTCPClient1.IOHandler.ReadStream(responseStringFromServer); 

il attend jusqu'à ce dispositif se fait le traitement et une exception se produit: « Connexion refermées ». Donc, je ne suis pas capable de lire les données que l'appareil est censé m'envoyer. L'appareil ne s'arrête pas. J'ai lu d'autres articles et je comprends que l'appareil lui-même supprime la connexion. J'ai un programme de démo qui communique avec lui et ça fonctionne très bien. J'ai besoin d'obtenir une réponse xml avant de laisser tomber la connexion.

Aussi la demande est http et j'utilise IdTCPClient (j'ai besoin d'utiliser la requête XML, je ne sais pas comment le faire avec TidHTTP). Peut-être qu'après que le périphérique envoie une réponse, il abandonne la connexion, de sorte que mon tcpclient obtienne un indicateur de connexion interrompue avant de recevoir des données.

Toute aide serait appréciée!

Answer 1

Aussi la demande est http et je suis à l'aide IdTCPClient (j'utiliser demande xml , je ne sais pas comment le faire avec TidHTTP).

Travailler avec IdHTTP est simple ...

1. Mettez une instance sur votre formulaire, sélectionnez-le.
2. Dans l'inspecteur d'objets, accédez à la propriété ProtocolVersion, et mettez- à pv1_0, puis ouvrez le
3. Demande ensemble de propriétés et définissez Request.ContentType text/xml, et Request.ContentEncoding UTF-8 , et définir d'autres propriétés si requis. Ajouter un bouton à votre formulaire et double-cliquez dessus.
4. Dans votre code, créez une instance de TStringStream et chargez-y votre contenu XML . Attribuer votre flux à IdHttp.Request.Source.
5. Appelez la méthode IdHttp.Get() en lui attribuant une adresse hôte .
6. IdHttp.Get() renvoie une chaîne dont la réponse est .

Answer 2

La façon dont vous appelez ReadStream(), il interprétera les 4 premiers octets (ou 8 octets si la propriété est TIdIOHandler.LargeStream True) comme un entier (ou Int64) pour réseau octets qui spécifie le longueur des données, puis il va essayer de lire autant d'octets. L'appareil envoie-t-il réellement une valeur de longueur? Si ce n'est pas le cas, ReadStream() tentera de lire le mauvais nombre d'octets. Une exception EIdConnClosedGracefully signifie que le périphérique ferme le socket à son extrémité.Ainsi, soit le périphérique ferme la connexion immédiatement après l'envoi de ses données, soit il attend l'envoi de la commande suivante, ce que vous ne pouvez pas faire car vous êtes bloqué en attendant les mauvaises données de la commande précédente.

Answer 3

Comme l'a dit @Remy Lebeau et la documentation (appuyez sur F1 lorsque votre édition caret est sur la phrase ReadStream):

AByteCount indique le nombre d'octets de la IOHandler à lire dans AStream. Lorsque AByteCount contient -1 et que AReadUntilDisconnect contient False, le nombre d'octets est lu comme une valeur Integer à partir du IOHandler. La taille d'AStream est ajustée pour correspondre à la taille attendue de l'IOHandler.

Ceci est très utile lorsque vous vous connectez à des serveurs écrits aussi dans INDY WriteStream à une extrémité, ReadStream dans l'autre, ou toute autre langue si vous envoyez que cound octets comme prévu par le client INDY.

Si vous lisez un appareil , assurez-vous que l'appareil envoie ces informations directement au flux ou modifiez la façon dont vous lisez les données. Si vous connaissez la taille du flux, passez simplement le second paramètre: AByteCount. Si le périphérique ferme le canal à la fin du flux, transmettez -1 comme second paramètre et True comme troisième paramètre: AReadUntilDisconnect.

Si le périphérique envoie un texte de longueur inconnue mais utilise un terminateur connu (comme CR/LF), il vaut mieux utiliser la méthode ReadLn de IOHandler pour obtenir cette chaîne.

Jetez un oeil à si ni à vos besoins, jetez un oeil sur Lire * méthodes de TIOHandlerClass et RTFM pour chacun de trouver le bon pour obtenir les données envoyées par l'appareil .