ewertheimer
Messages postés161Date d'inscriptiondimanche 16 janvier 2005StatutMembreDernière intervention26 janvier 2009
-
17 juin 2005 à 19:31
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 2010
-
20 juin 2005 à 19:43
Bonjour,
Tout d'abord jaimerais savoir si il serait possible d'envoyer du texte
de client a client sans utiliser de serveur. Sinon est ce que si on
place un composants idTcpserver et un composant idtcpclient sur la meme
fiche l'application pourrait recevoir directement le texte envoyer par
le client chez l'autres personne
ce code peut il suffir pour envoyer du texte en tre 2 applications :
et regarde les exemples fournis avec les composants avant de te lancer dans ta propre application Client/Serveur...
pour info : (mais regarde bien le lien que je t'ai passé avant d'essayer de comprendre le code qui est en dessous)
procedure TForm1.envoyer(Sender: TObject);
begin
IdTCPClient1.Host : = edit1.Text;
IdTCPClient1.Port := StrToInt(Edit2.Text);
try
IdTCPClient1.Connect;
IdTCPClient1.Writeln('texte...');
except
ShowMessage('Erreur');
end;
end;
(il faut ensuite penser à la déconnexion...)
Ta procédure de réception n'est en aucun cas fonctionnelle , car elle ne peut pas être appellée de nul part... Il faut utiliser l'événement OnExecute du serveur :
ewertheimer
Messages postés161Date d'inscriptiondimanche 16 janvier 2005StatutMembreDernière intervention26 janvier 2009 18 juin 2005 à 20:17
Faut il remplacer AContext et TidContext par AThread et
TIdPeerThread ou io faut le decrire quelque part parce que quand je le
fait et que je le change dans les type ils me disent toujours qu'ils
attendent un identificateur
ewertheimer
Messages postés161Date d'inscriptiondimanche 16 janvier 2005StatutMembreDernière intervention26 janvier 2009 19 juin 2005 à 17:11
je sais c ce que je fait ne tenerve pas. Mais quand je le fait la procedure qui apparait n'est pas TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); mais procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);.Il y a autre chose quand tu mets
IdTCPClient1.Writeln (Memo1.Lines) ce n'est pas un identificateur
declare mais parcontre il propose IdTCPClient1.WriteHeader. Pourrais tu
poster une source sur codessource et me donner ladresse afin que je
puisse voir le code bien editer Directement sur delphi.
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 201012 19 juin 2005 à 20:43
Ah !!! ok j'ai compris ! tu as Indy 10 !
Et désolé pour hier
Mon code marche pour Indy 9... D'ailleurs, je te conseilles Indy 9, car
avec Indy 10, tout a été modifié et la documentation est du coup
beaucoup moins importante (et pour un débutant, c'est pas toujours
facile de s'y retrouver ! pour ma part, j'ai abandonné, je garde la
9)....
Je ne connais pas la version 10, donc je ne pourrais pas t'aider si tu gardes la 10 Désolé...
ewertheimer
Messages postés161Date d'inscriptiondimanche 16 janvier 2005StatutMembreDernière intervention26 janvier 2009 20 juin 2005 à 17:20
Merci beaucoup jai fait ce que tu mas dit et maintenant ton code
marche sauf a lexeption que au moment ou je click sur le bouton envoyer
on me dit chemin fu fichier source non trouvee IdStack. Et je voulais
demander si il y avait quaelque chose de special a definir dans les
proprietes.