Discussion :

[benda95280]

Bonjour à tous,
Je continue de poser quelques questions cette semaine sur un projet qui me tient à cœur, et que j’espère pouvoir finir.

Je cherche a transférer le contenu d'un RichEdit via Indy (Tidtcpserver / Tidtcpclient).

J'ai pu consulter la FAQ : https://delphi.developpez.com/faq/?p...s-avec-Indy-10

Cependant, dois-je appliquer la même procédure ?
- Récupérer la taille du flux original
- Envoyer la taille
- Envoyer le flux


Les informations que j'ai pu trouver sur internet ne présentaient pas cela comme ça.
J'étais parti avant lecture de l'article sur quelque chose comme ça pour l'envoi :

Code :

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

1
2
3
4
5
6
7
procedure TEditMessage.AjouterMessageClick(Sender: TObject);
var SS : TStringStream;
begin
    SS := TStringStream.Create('');
    TextDuMessage.Lines.SaveToStream(SS);
    Form1.IdTCPClient1.Socket.WriteLn('RXQuestionEditText@'+LabelEditQuestion.caption);
    Form1.IdTCPClient1.Socket.Write(SS,0,true);

[benda95280]

Je suis de retour avec le fruit de mes recherches.
Il semblerait qu'il ne soit plus d'actualité d’encapsuler le Flux dans un TIdStreamVCL ?
Source: https://www.developpez.net/forums/d1...ndy-v10-1-5-a/

La FAQ n'est pas a jour ?

[benda95280]

Sinon, mes tests ne marche toujours pas...

Coté client pour l'envoi :

Code :

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

1
2
3
4
5
      TextDuMessage.Lines.SaveToStream(SS);
      Form1.IdTCPClient1.Socket.WriteLn('RXQuestionEditText@'+LabelEditQuestion.caption);
      Form1.IdTCPClient1.Socket.Write(SS.Size);
      Form1.IdTCPClient1.Socket.Write(SS,0);
      form1.AddInfoDebugger('ENVOI','RXQuestionEditText@'+LabelEditQuestion.caption+'@'+ SS.DataString);

Coté serveur qui récéptionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var
    LStreamSize : int64;
    RXStreamRichedit: TStringStream;
...
else if cmd='RXQuestionEditText' then
      begin
        //On extrait, et separe les infos
        FMsg:= Copy(str, Pos('@', str)+1, Length(str)-Pos ('@', str)); 
        form2.AddInfoDebugger('RECEPTION','Demande de Modif d''une question (Text) dans: '+FMsg2)
        LStreamSize := AContext.Connection.IOHandler.ReadInt64();
        acontext.Connection.IOHandler.ReadStream (RXStreamRichedit,LStreamSize);
        ...

Je ne récupère rien côté serveur dans ma variable RXStreamRichedit.
Cependant, je récupère bien le LStreamSize.

[benda95280]

J'ai trouvé après quelques heures de recherches ...
L'ajout de RXStreamRichedit := TStringStream.Create(''); corrige le problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Var
    LStreamSize : int64;
    RXStreamRichedit: TStringStream;
...
else if cmd='RXQuestionEditText' then
      begin
        //On extrait, et separe les infos
        FMsg:= Copy(str, Pos('@', str)+1, Length(str)-Pos ('@', str)); 
        form2.AddInfoDebugger('RECEPTION','Demande de Modif d''une question (Text) dans: '+FMsg2)
        RXStreamRichedit := TStringStream.Create('');
        LStreamSize := AContext.Connection.IOHandler.ReadInt64();
        acontext.Connection.IOHandler.ReadStream (RXStreamRichedit,LStreamSize);
        ...

[SergioMaster]

Bonjour,

La FAQ n'est pas a jour ?

Rien ne vous empêche de proposer des corrections à cette FAQ puisqu'elle collaborative.

[benda95280]

Avec plaisir.
Cependant, je ne voit que la possibilité de rajouter une question sur la page de la FAQ.

[SergioMaster]

Il y a une FAQ sur comment participer à la FAQ

Alcatîz ou gvasseur58 sont les deux responsables de rubriques les plus actifs pour Delphi