Discussion :

[Gregory666]

Bonjour,

J'ai une erreur : Types incompatibles : Les listes de paramètres diffèrent, je n'arrive pas à capté d’où peux venir cette erreur.

Thread

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
unit UThread;
 
interface
uses
  System.SysUtils, System.Classes;
 
type
 
  TAntiFlood = class(TThread)
 
  constructor Create(ACreateSuspended: Boolean; Event: TNotifyEvent);
 
  procedure Execute; override;
 
end;
 
implementation
 
constructor TAntiFlood.Create(ACreateSuspended: Boolean; Event: TNotifyEvent);
begin
  FreeOnTerminate := True;
  OnTerminate := Event;
 
  inherited Create(ACreateSuspended);
end;
 
procedure TAntiFlood.Execute;
begin
  while not Terminated do
   begin
     Sleep(2000);
     Terminate;
   end;
end;
 
end.

Form

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
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UThread, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
     AntiFlood: TAntiFlood;
 
     procedure NoFlood;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.NoFlood;
begin
  AntiFlood := nil;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(AntiFLood) then Exit;
  AntiFlood := TAntiFlood.Create(False, NoFlood); // Types incompatibles : Les listes de paramètres diffèrent (NoFlood)
end;

Merci

[Gregory666]

C'est la fatigue

Code :

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

1
2
3
4
procedure TForm1.NoFlood(Sender: TObject);
begin
  AntiFlood := nil;
end;

[fbalien]

Bonjour Gregorv666

erreur logique vue que

Code :

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

TNotifyEvent = procedure(Sender: TObject) of object;

Donc dans le code de la form
il faut déclarer la procédure noflood comme suit

Code :

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

1
2
3
4
5
private
    { Déclarations privées }
     AntiFlood: TAntiFlood;
 
     procedure NoFlood(Sender: TObject);

et l’écrire comme suit

Code :

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

1
2
3
4
5
 
procedure TForm1.NoFlood(Sender: TObject);
begin
  AntiFlood := nil;
end;

cela devrait mieux fonctionner ainsi