Discussion :

[gilles641]

Bonjour,
J utilise un composant Tidtcpserver et j aimerai en fait pouvoir changer de port d ecoute a la demande de l utilisateur.
J ai essaye de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
server.active:=false;
server.defaultport:=un autre port;
active:=true

Rien ne plante ms les clients ne peuvent pas se connecter sur le nouveau port.. Quelqu un a une idee ?
merci d avance

[gilles641]

Personne n' a d'idee ?

[Nono40]

Ben non vu que c'est sensé fonctionner...
Quel est le nouveau port ?
Es-tu sur de ne pas avoir un pare-feu qui le bloque ?

[gilles641]

en fait j ai une petite idee.. c un serveur windows qui envoi le resultat de commandes dos a un client..et apparemment je ferme mal mes commandes ...

voila ce que j execute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
DosCommand1.CommandLine :='Cmd.exe';
  DosCommand1.Execute;
  DosCommand1.SendLine('', Ajout_CRLF);
  DosCommand1.SendLine(edit1.Text, Ajout_CRLF);
  DosCommand1.CleanupInstance;
 
  sleep(5000);
  th.Terminate;

Le probleme est que j aimerai recreer un objet doscommand et supprimer celui la.. Mais destroy et create fait tt planter..
qq un a une idee ?
merci d avance

[gilles641]

Apparemment ce n est pas le probleme
Quelqu un voit comment eviter de faire la technique de bourrin sleep parce que je trouve pas comment savoir qd le thread de commandes dos a fini de bosser...
merci bien

[yongblood]

J'ai un probleme similaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.openClick(Sender: TObject);
begin
server.DefaultPort:=StrToInt(port.Text);
server.Active:=True;
Memo1.Lines.Add('Server is now open and');
Memo1.Lines.Add('listenign port '+port.Text);
end;

Mais ca marche pas

[yongblood]

Va voir dans les Évènements de ton bouton, sous onclick, si OnClick est pas assigné, ca doit etre sa le probleme. Si il ne l'est pas, clique sur l'espace blanc et choisis (nomdubouton)click.

Espérant que ca ta aidé,
Dom.

[Reisubar]

De mémoire, il faut également avant d'assigner un nouveau port réinitialiser les liens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyClients.Bindings.Clear();

[yongblood]

Bizarre, moi quand je change le port sur mon api (moi aussi j'ai un changement de port a faire) ben ca marche super bien et pourtant j'ai pas la ligne clear...