ICS - Sockets

**adrien357** · 11/12/2005, 16h46

Bonjour,

je suis à la découverte des composants ICS ; pour cela je réalise une application de Chat on ne peut + basique, et je rencontre plusieurs pbms avec TWSocket...

1] Une String qui passe pas...

dans l'évènement onSendDate, je reçois les données de cette manière :

Code :

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

1
2
3
4
 
// variable  Buffer : ^string défini dans la procedure
MonSocket1.Receive(Buffer, SizeOf(Buffer));
Memo1.Lines.Add(buffer^);

et quand on clic sur un bouton "envoyer", le code suivant :

Code :

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

1
2
3
Buffer^ := Edit1.Text;
//MonSocket1.SendStr(Edit1.Text);
MonSocket1.Send(Buffer, SizeOf(Buffer));

Mais voilà, l'appli détecte bien qu'une donnée est reçue, mais aucune string n'est affichée.

2] Pas faits l'un pour l'autre ?

Quand on clic sur le bouton "se connecter", le socket est sensé se connecter à l'autre :

Code :

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

1
2
3
4
MonSocket1.Port := '23';
MonSocket1.Addr := '192.168.1.2';
MonSocket1.Proto:= 'udp';
MonSocket1.connect;

Mais là encore après avoir fait le test entre 2 PC ça ne fonctionne pas du tout :s (et dire que ça marchait avec les composants TCP de base de Delphi...)

Voilà voilà ça me débloquerai pas mal d'avoir quelques indications sur ICS... j'ai relu la doc pas mal de fois mais je ne vois vraiment pas ce qui cloche :s

Adrien

**rpoulin** · 11/12/2005, 17h17

Je te suggère d'aller fouiller parmi les dizaines d'exemples ou applications réalisés avec CS ou son middleware par les usagers - sur le site web du composant. Tu vas y trouver un exemple simple 'chat' réalisé avec ICS.

**adrien357** · 11/12/2005, 17h36

J'ai été faire un tour mais il est en TCP, et j'arrive pas à voir ce qui cloche dans mon code quand même :/

edit : y a pas une histoire de "faut indiquer que la chaine est finie avec #13#10 ?