Discussion :

[JohnLocke]

Bonjour,
J'ai un problème avec mon projet, ( http://hastebin.com/dofihaqewi.pas ), quand j'appel ma fonction "readlncmd", celle si désactive mon serveur, n'envoie pas 'test123', et je pense même bloque mon programme, si quelqu'un à une idée

Merci d'avance

[ShaiLeTroll]

Ton code me semble bien compliqué, tout le DPR, tout en procédural, pas un objet en vue (c'est ce qui rend la gestion des évènements lourd avec le TMethod)

tu fais un SendText mais sans indiquer la connexion, soit utilise le paramètre Socket de socket_connected que tu passes à readlncmd, soit utilise ActiveConnections/Connections

Code :

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

ServerSocket.Socket.Connections[x].SendText():

x correspond à l'indice de connexion, 0 pour le premier connecté, vu ta structure actuel de code le paramètre Socket reste le plus simple

Mon code dans le sujet Socket sans Form devrait te plaire !

Voici une variante de ton code en Objet

Simplifie ton DPR en

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses MonServeur;
 
begin
  MonServeur.TServeur.Run();
end;

Ajoute une nouvelle unité que tu appelles MonServeur.pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
unit MonServeur;
 
uses System.SysUtils,
  System.Win.ScktComp,
  Winapi.Windows; 
 
type
  TServeur = class(TObject)
  private
    FServerSocket: TServerSocket;
 
    procedure socket_disconnected(Sender: TObject; Socket: TCustomWinSocket);
    procedure socket_read(Sender: TObject; Socket: TCustomWinSocket);
    procedure socket_error(Sender: TObject; Socket: TCustomWinSocket);
    procedure socket_listen(Sender: TObject; Socket: TCustomWinSocket);
 
    procedure readlncmd;
  public
    constructor Create();
    destructor Destroy(); override;
 
    property ServerSocket: TServerSocket;
  public
    class procedure Run();
  end;
 
implementation 
 
constructor TServeur.Create();
begin
  inherited Create();
 
  FServerSocket := TServerSocket.Create(nil);
end;
 
destructor TServeur.Destroy();  
begin
  FreeAndNil(FServerSocket);
 
  inherited Destroy();
end;
 
procedure TServeur.readlncmd(ASocket: TCustomWinSocket);
begin
  writeln('test');    //S'affiche
  ASocket.SendText('test123');    
  writeln('test+');    // Devrait d'afficher
end;
 
procedure TServeur.socket_disconnected(Sender: TObject; Socket: TCustomWinSocket);
begin
  Writeln('Client déconnecté');
end;
 
procedure TServeur.socket_read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Writeln(Socket.ReceiveText);
end;
 
procedure TServeur.socket_error(Sender: TObject; Socket: TCustomWinSocket);
begin
  Writeln('erreur');
end;
 
procedure TServeur.socket_listen(Sender: TObject; Socket: TCustomWinSocket);
begin
  Writeln('IP         |');
end;
 
procedure TServeur.socket_connected(Sender: TObject; Socket: TCustomWinSocket);
begin
  Writeln(socket.RemoteAddress + '  |');
  Socket.SendText('Hello client');
  readlncmd(Socket);
end;
 
class procedure TServeur.Run();
var
  WinMessage: TMsg;
begin
  try
    with TServeur.Create() do
    try
      ServerSocket.Port:=1337;
 
      ServerSocket.OnClientConnect := socket_connected;
      ServerSocket.OnClientDisconnect := socket_disconnected;
      ServerSocket.OnClientRead := socket_read;
      ServerSocket.OnListen := socket_listen;
      ServerSocket.OnClientError := socket_error;
 
      ServerSocket.Active := True;
 
      while GetMessage(WinMessage, 0, 0, 0) do
      begin
        TranslateMessage(WinMessage);
        DispatchMessage(WinMessage);
      end;
    finally
      Free();
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;

[JohnLocke]

Merci beaucoup , tu serrais comment récupérer l'ID d'un client au moment de sa connexion ?
Tout fonctionne comme il se doit

[ShaiLeTroll]

Tu n'es pas obligé de citer la réponse, surtout lorsque l'on est que deux à échanger !
J'ai répondu dans ton autre sujet ScktComp, récupérer l'ID d'un client