Socket ICS

Socket ICS - Delphi/Pascal - Programmation

Marsh Posté le 12-12-2005 à 19:17:27    

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 :
  1. // variable  Buffer : ^string défini dans la procedure
  2. MonSocket1.Receive(Buffer, SizeOf(Buffer));
  3. Memo1.Lines.Add(buffer^);


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

Code :
  1. Buffer^ := Edit1.Text;
  2. //MonSocket1.SendStr(Edit1.Text);
  3. 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 :
  1. MonSocket1.Port := '23';
  2. MonSocket1.Addr := '192.168.1.2';
  3. MonSocket1.Proto:= 'udp';
  4. 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

Reply

Marsh Posté le 12-12-2005 à 19:17:27   

Reply

Marsh Posté le 13-12-2005 à 15:24:13    

Buffer^ := Edit1.Text;
-> c'est space ton truc... ça ne serait pas plutôt
Buffer := @Edit1.Text;
?
(ou bien tu déclares Buffer comme une chaîne et tu passes @Buffer à la fonction)


Message édité par antp le 13-12-2005 à 15:24:51

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed