Comment ajouter le texte reçu d'un ClientSocket dans un Memo ?

Question

Salut! Voila j'aimerais que mon TServerSocket recoive le texte de mon TClientSocket. Pour que le client l'envoie, c'est OK ( TClientSocket.Socket.SendText) pour que mon serveur le recoive je connais la procedure ( enfin je pense ),  TServeurSocket.Socket.ReceiveText, mais j'aimerais que ce texte recu s'ajoute &#224; mon Memo1 ( avec la fonction Memo1.Lines.Add()) 

Voila, merci beaucoup d'avance, Yil2201

[url]www.yil2201.c.la/url
      Mon site !

Filipe35 · Answer

regardes ma source tout y est voir plus !

++

Filipe

elguevel · Answer

Utilise l'evenement Read de ton ClientSocket pour receptionner les donn&#233;es et ajoute dans celui-ci:

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
    TexteRecu : string;
begin

    TexteRecu := Trim(Socket.ReceiveText);


    // Tu peux ici faire des traitements sur la variable TexteRecu si tu le souhaite !

    Memo1.Lines.Add( TexteRecu );

end;

Et un petit conseil perso, tu peux jouter dans l'evenement change de ton TMemo ceci :

procedure TForm1.Memo1Change(Sender : TObject);
begin
    Memo1.Lines[Memo1.Lines.Count];
end;

Cel&#224; te permet de toujours &#234;tre &#224; la fin de ton memo, et donc de toujours voir ce que tu re&#231;ois.

Bon Code.

Damien.

Yil2201 · Answer

Merci &#224; vous deux, mets quelle est ta source Filipe35, un lien stp ?

Merci, yil2201

[url]www.yiliman2201.be.tf/url
      Mon site !

Yil2201 · Answer

Merci !

[url]www.yiliman2201.be.tf/url
      Mon site !

Filipe35 · Answer

au passage pour ton site, avast est pas top niveau antivirus, je préfère nod32 (je fai pas de pub juste un avis).

mon site: www.ogametut.free.fr

alala nimporte quoi ces jeunes ^^

elguevel · Answer

Moi j'te conseil BitDefendeur... mais je fait pas de Pub

Comment ajouter le texte reçu d'un ClientSocket dans un Memo ?

6 réponses

Votre réponse

Discussions similaires