Client/Server Socket ..

Salut ^^
J'ai encore une question ... :D
Je voudrais 'envoyer une variable' :
J'ai mis sa sur un TButton :

Code:

---

1 2 3 4 5 6

var a : String; begin a := ShowMessage(EditFonction.Text); ClientSocket1.Socket.SendText(a); end;

---

Mais sa me marque :

Code:

---

[Erreur] Unit1.pas(431): Types incompatibles : 'String' et 'procedure, untyped pointer or untyped parameter'

---

Jsuis un peut nul en socket ^^
Si vous avez des idées ;)
Merci :P

Salut,

Qu'est ce que tu veux faire ?
Tu veux envoyer un message contenant une chaîne de caractère ?
Tu veux envoyer le contenu de ton EditFonction ?

Si oui, tu peux faire ainsi :

Code:

---

ClientSocket1.Socket.SendText(EditFonction);

---

Par contre, le code suivant n'est pas correct :

Code:

---

a := ShowMessage(EditFonction.Text);

---

ShowMessage est une procédure, donc elle ne renvoie pas une variable de type string! Ce sont les fonctions qui peuvent retourner un résultat ...

A+ :)

Beh en faite je voulais faire envoyer un message d'erreur depuis Edit.Text
un message d'information depuis edit.text aussi
Donc je ne sais pas comment faire
Puis j'ai voulus envoyer la variable a
qui contient un showmessage :)
Aurais tu une idée ? :)
Merci !!

En fait, il te faut faire ton propre protocole pour pouvoir gérer les ShowMessages etc etc ...

Je m'explique :
Admettons que tu définis un message de ce type :

Code:

---

ClientSocket1.Socket.SendText('003 '+EditFonction);

---

Lorsque le client recevra ce message, tu découpes ta chaine pour en extraire les infos essentielles, à savoir le type de message (003) et le message lui même.

Donc, tes messages seront toujours envoyés via le format Code+Message et pour les récupérer, on fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); var Code:Integer; MessageRecu:String; begin MessageRecu:='003 Coucou tout le monde'; Code:= StrToInt(copy(MessageRecu,0,3)); MessageRecu:= RightStr(MessageRecu,length(MessageRecu)-4); case Code of 003: ShowMessage(MessageRecu); end; end;

---

C'est pour t'expliquer le principe ... Le code du début du message donnera l'action à effectuer ... Dans mon cas, le code 003 effectuera un ShowMessage ...
J'ai un peu de mal à faire passer le message je pense :?

Ouaaaa :marteau:
Merci Ero Sennin mais ce n'est pas trop ce que je voulais :mouarf:
Enfaite jvais expliquer dans les detaille avec un autre exemple ! :
____________________
Dans mon Client je met :

Code:

---

ClientSocket1.Socket.SendText('Papier press');

---

Dans mon Server je met :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Procedure TForm1.server read .... var MyString : String; begin MyString := Socket.ReceiveText; if MyString = 'Papier Press' then begin Memo1.Clear; Clipboard.Open; if Clipboard.HasFormat(CF_TEXT) then begin MyHandle:=Clipboard.GetAsHandle(CF_TEXT); Memo1.Lines.Add(StrPas(GlobalLock(MyHandle))); GlobalUnlock(MyHandle); end; if (Clipboard.HasFormat(CF_BITMAP)) or (Clipboard.HasFormat(CF_PICTURE)) then Image1.Picture.Assign(Clipboard); Clipboard.Close; end;

---

Ok mais sa sa le liste que dans le server moi jvle veut dans le client !
Voila :)

Salut :D
Bon, je voudrais faire envoyer des message avec TClientSocket et TServerSocket .
Je voudrais proceder de la maniere suivante :

Code:

---

1 2 3 4 5

begin ClientSocket1.Socket.SendText('ShowMessage(EditMessage.Text)'); MemEtat.Lines.Add('Informations envoyées au serveur'); end;

---

evidement le code et faux lol :lol:
et pour le server beh je sais pas comment faire ...
Bon voila :P
Merci :)

Salut,

Jette un oeil à la source de Nono

A+

Mais que vient faire ton ShowMessage ici ?
On n'a toujours pas compris ce que tu veux faire ;)

Si tu veux envoyer EditMessage.text c'est simplement :

Code:

---

1 2	ClientSocket1.Socket.SendText(EditMessage.Text); MemEtat.Lines.Add('Informations envoyées au serveur');

---

Oui merci Nono je le sais ^^
Mais je sais pas trop comment expliquer donc c'est pas grave :)