Erreur dans un mémo

Question

Salut à tous

Je suis entrain de faire un serveur TCP. Normalement il y  a différent boutons et Edit ainsi qu'un mémo nommé MODE.

Dans l'Edit1 J'écris le port
Dans l'Edit 1 j'écris l'adresse IP
Quand je clique sur le bouton1 connexion je dois me connecter
Quand je clique sur le bouton2 déconnexion je dois me déconnecter

Normalement je suis censé avoir un méssage dans le Mémo (Mode) pour savoir si je suis connecté, déconnecté, ou si il y a une erreur. Manque de chance il n'y a rien dans le mémo qui apparait. Je voudrais savoir ou est l'erreur dans ma source (voir ci-dessous).

Autre question : mon client a proprement parlé se trouve dans une FORM2. Delphi n'accepte pas la synthase client1 et la transforme tout seul en client 1. Pourquoi?

Merci à tous et en plus vous avez 2 questions pour le prix d'une (mdrrrrr).

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm2 = class(TForm)
    ClientSocket2: TClientSocket;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Mode: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket2Connecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket2Disconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket2Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocket2Connect(Sender: TObject;Socket: TCustomWinSocket);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ModeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
ClientSocket2.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
ClientSocket2.Port:=StrToInt(Edit2.Text);
ClientSocket2.Host := Edit1.Text;
ClientSocket2.Open;
end;

procedure TForm2.ClientSocket2Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
Mode.Lines.Add('Connecté');
end; 

procedure TForm2.ClientSocket2Connecting(Sender: TObject; Socket: TCustomWinSocket);
begin
Mode.Lines.Add('En cours de connexion');
end;

procedure TForm2.ClientSocket2Disconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Mode.Lines.Add('Déconnecté');
end;

procedure TForm2.ClientSocket2Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if ErrorEvent=eeGeneral then
Mode.Lines.Add('Erreur inattendu');

if ErrorEvent=eeConnect then
Mode.Lines.Add('Erreur de connexion');

if ErrorEvent=eeDisconnect then
Mode.Lines.Add('Erreur de déconnexion');

if ErrorEvent=eeAccept then
Mode.Lines.Add('Connexion non acceptée');
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

end;

procedure TForm2.ModeChange(Sender: TObject);
begin

end;

end.

yvemoreau · Answer

bon ya pas vraiment d'erreur 
si 
Mode.Lines.Add('Connect&#233;');

Si la ligne s'ex&#233;cute ...utilise un point d'arr&#234;t pour v&#233;rifier , et si en compilant les lignes sont utilis&#233; par le programme y aura un point bleu (par d&#233;faut ) dans la marge sinon les &#233;v&#233;nements ne sont pas attribu&#233; ,utilise l'inspecteur d'objet dans onglet &#233;v&#233;nement r&#233;attribu les proc&#233;dure &#224; l'objet m&#233;mo (en cliquant sur un &#233;v&#233;nement ya une liste de proc&#233;dure ceux qui sont dans interface et ont la m&#234;me syntaxe), &#231;a fais &#231;a quand on recopie un code les &#233;v&#233;nements ne se r&#233;attribu pas seul ...je parle des anciennes version de delphi , 

sinon utilise plut&#244;t Mode.Lines.append

yve

Francky23012301 · Answer

Salut

Je n'ai pas tout compris. Comment tu fais pour réattribuer les procédures????

Merci

yvemoreau · Answer

Salut, tu dois utiliser l'inspecteur d'objet , tape F11, tu vois l'onglet par d&#233;faut Propri&#233;t&#233;s de ton objet s&#233;lectionner .clique sur les &#233;v&#233;nements.

Habituellement pour cr&#233;er un &#233;v&#233;nement tu boubleclique sur un &#233;v&#233;nement et la proc&#233;dure s'&#233;crit tant du c&#244;t&#233; impl&#233;mentation que du c&#244;t&#233; inteface de ton projet .si il n'y a rien dans la procedure &#224; la compilation delphi l'effacera.Donc juste un ;  ou un commentaire dans la procedure te permet d'indiquer au compilateur que tu souhaite garder la procedure mais que tu l'impl&#233;mentera plus tard...

Mais Si tu copie un code et que la proc&#233;dure n'est pas utiliser et quelle est impl&#233;menter delphi ne l'efface pas mais ne la compile pas pour autant .Lespoints bleu dans la marge de gauche sont des points d'arr&#234;ts possibles lors de l'ex&#233;cution or si il n'y a pas de points bleu sur Mode.Lines.Add('Connect&#233;');
cela signifie que ta proc&#233;dure n'est pas attribu&#233; &#224; ton objet.Bien qu'elle soit visible le compilateur n'en tient pas compte puisqu'il ne l'utilisera jamais dans le programme.

en observant les &#233;v&#233;nements de l'objet ClientSocket2  
ClientSocket2Disconnect dois y etre attribu&#233; sinon tu dropdown la propri&#233;t&#233; pour la choisir ou tu doubleclique la propri&#233;t&#233; par d&#233;faut se r&#233;attribuera ...

recompile 

yve

yvemoreau · Answer

j'avais &#233;cris l'objet m&#233;mo aucun rapport bien entendu et append ou add c'a d&#233;pend ce que tu souhaite les 2 sont bon. c'est l'objet ClientSocket qu'il faut v&#233;rifier ...

yve

Erreur dans un mémo

4 réponses

Votre réponse

Discussions similaires