Tclientsocket et Tserversocket
Résolu
nethacker
Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011
-
10 août 2007 à 23:25
nethacker Messages postés 288 Date d'inscription mardi 2 mai 2006 Statut Membre Dernière intervention 12 octobre 2011 - 13 août 2007 à 13:55
nethacker Messages postés 288 Date d'inscription mardi 2 mai 2006 Statut Membre Dernière intervention 12 octobre 2011 - 13 août 2007 à 13:55
A voir également:
- Delphi tclientsocket
- Tclientsocket ✓ - Forum Delphi / Pascal
- TClientSocket qui ne bloque pas mon application - Forum Delphi / Pascal
- Composant clientsocket et serversocket introuvable ✓ - Forum Delphi / Pascal
- TClientSocket ou TNMStrm - Forum Delphi / Pascal
- TClientSocket et TServerSocket - Forum Delphi / Pascal
9 réponses
Utilisateur anonyme
11 août 2007 à 00:27
11 août 2007 à 00:27
Salut,
De mémoire il y a plein de sources sur CS qu'ils font ca : si seulement tu avais cherché .
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var
TexteRecu:String;
begin
TexteRecu:=ServerSocket1.Socket.ReceiveText;
If TexteRecu='Action1' then
Begin
{Action1}
End;
end;
De mémoire il y a plein de sources sur CS qu'ils font ca : si seulement tu avais cherché .
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var
TexteRecu:String;
begin
TexteRecu:=ServerSocket1.Socket.ReceiveText;
If TexteRecu='Action1' then
Begin
{Action1}
End;
end;
