bonjour , j'essais de créer un simple chat , sous embarcadero rad studio 2010
j'utilise le composant indy 10.5.5 ,
et avec idtcpserver j'ai une erreur , you must have an Onexecute event
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.Button1Click(Sender: TObject); begin idtcpserver1.DefaultPort := 3000; idtcpserver1.Active := true; end; procedure TForm1.Button2Click(Sender: TObject); begin idtcpserver1.Active := false;
Partager