[Indy] Architecture Client/Serveur

Version imprimable

19/08/2005, 23h07
yongblood

[Indy] Architecture Client/Serveur

Héééé Oui une autre question..

Pour me pratiquer je fait un genre de service genre IRC...

J'ai fait un client, et le client est capable d'envoyer des message au serveur.. et le serveur est capable de renvoyer le message a tous les clients. Mais le client est pas capable de le voir... ou de l'afficher dans une boite memo..
20/08/2005, 01h12
yongblood

J'ai vu une fonction : TIdConnectionIntercept.

Est-ce que ca peux marcher? Ca l'air de correspondre a mes besoins mais je ne sais pas comment elle marche...
21/08/2005, 16h58
yongblood

Alors, personne sais comment mon client peut recevoir les broadcast messages du serveur?
21/08/2005, 17h03
MD Software

C'est étrange ça.
Tu es sûr que ton client garde bien la connexion ?
21/08/2005, 20h37
yongblood

Oui, je suis sur et certain.

Le pire c'est que le serveur envoie un greeting en premier, et le client le vois ca!

Si ca peux aider, le code client :

Code:

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
 
unit Client;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdAntiFreezeBase, IdAntiFreeze;
 
type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    Connect: TButton;
    Disconnect: TButton;
    IdTCPClient1: TIdTCPClient;
    Memo1: TMemo;
    msg: TEdit;
    send: TButton;
    Shape1: TShape;
    TabSheet1: TTabSheet;
    Host: TEdit;
    Port: TEdit;
    Nick: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure DisconnectClick(Sender: TObject);
    procedure ConnectClick(Sender: TObject);
    procedure IdTCPClient1Connected(Sender: TObject);
    procedure IdTCPClient1Disconnected(Sender: TObject);
    procedure sendClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.ConnectClick(Sender: TObject);
begin
IdTCPClient1.Host := Host.Text;
IdTCPClient1.Port:=StrToInt(Port.Text);
IdTCPClient1.Connect();
 
end;
 
procedure TForm2.DisconnectClick(Sender: TObject);
begin
IdTCPClient1.Disconnect;
end;
procedure TForm2.IdTCPClient1Connected(Sender: TObject);
var
line : string;
begin
Shape1.Brush.Color:=clGreen;
Memo1.Lines.Add('Now connected to '+Host.text+' on port '+Port.text);
Line := IdTCPClient1.ReadLn();
Memo1.Lines.Add(Line);
end;
 
procedure TForm2.IdTCPClient1Disconnected(Sender: TObject);
begin
Shape1.Brush.Color:=clRed;
Memo1.Lines.Add('Now disconnected');
end;
procedure TForm2.sendClick(Sender: TObject);
begin
IdTCPClient1.WriteLn('<'+nick.Text+'> '+msg.Text);
end;
end.

21/08/2005, 22h20
MD Software

et donc, c'est ton

Code:

Line := IdTCPClient1.ReadLn();

qui reçoit rien, c'est ça ?
21/08/2005, 22h21
Reisubar

La manière de procéder que tu utilises n'est pas correcte. Indy est bloquant et synchrone, tu ne dois pas utiliser les évènements du socket pour lire des données. Ce que tu fais conviendrait plutôt pour des sockets asynchrones comme ICS (cf. la FAQ Indy sur ce site)

Avec Indy, il faudrait plutôt faire une procédure principale tournant en boucle , et tant que le socket est connecté, lire ou envoyer une ligne. Tu as un exemple sur ce point dans la liste des exemples Indy :

http://www.atozed.com/indy/Demos/index.iwp
21/08/2005, 22h23
MD Software

Citation:

Envoyé par Reisubar

La manière de procéder que tu utilises n'est pas correcte. Indy est bloquant et synchrone, tu ne dois pas utiliser les évènements du socket pour lire des données. Ce que tu fais conviendrait plutôt pour des sockets asynchrones comme ICS (cf. la FAQ Indy sur ce site)

Avec Indy, il faudrait plutôt faire une procédure principale tournant en boucle , et tant que le socket est connecté, lire ou envoyer une ligne. Tu as un exemple sur ce point dans la liste des exemples Indy :

http://www.atozed.com/indy/Demos/index.iwp

cqfd
22/08/2005, 01h18
yongblood

Merci, grace au Demos j'ai trouvé le probleme et j'ai tout arrangé...

J'ai tu mettre un AntiFreeze et le logiciel est un peu ralenti.. (voir bcp) mais c pas grave!

Merci bcp :p