Discussion :

[coax81]

bonjour ,

j'aimerai envoyer des fichier en ftp à l'interieur d'un timer , qui met à jours les fichiers à transmettre dans une TStringlist ; mais je recoit une exception 'ftp component not ready'. donc j'ai pensé à faire un evenement qui se declenche à chaque mise à jours dans le timer .

comment faire pour créer un évenement ?

[Kaféine]

Salut,

tu peux utiliser les classiques "procedure of object" ou bien les interfaces.

[coax81]

ca se fait comment ?
vous pouvez me donner un exemple s'il vous plais ?

[Kaféine]

Je n'ai pas compris ce que tu voulais faire néanmoins je peux te donner un exemple avec les interfaces car moins connu de ce que j'ai compris.

voici l'unité et la form n'a que un memo.
ce code colle des chiffre aléatoire dans le memo et s'arrête au bout de 10 itération.

note que la form implémente l'interface.
n'hesite a poser des questions et à m'expliquer mieux ton problème

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  IEvents = interface
    ['{XXXXXX...}']
    procedure UpdateStringList;
    procedure OnFin(var Stop: Boolean);
  end;
 
  TMonTimer = class(TTimer)
  private
    fEvents: IEvents;
    fCount: integer;
    procedure Fake(Sender: TObject);
  protected
    procedure Timer; override;
  public
    constructor Create(const AEvents: IEvents); reintroduce;
  end;
 
  TForm1 = class(TForm, IEvents)
    mmo1: TMemo;
  private
    fMonTimer: TMonTimer;
    fStringList: TStringList;
  protected
    procedure UpdateStringList;
    procedure OnFin(var Stop: Boolean);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TMonTimer }
 
constructor TMonTimer.Create(const AEvents: IEvents);
begin
  fEvents := AEvents;
  fCount := 0;
  inherited Create(nil);
  OnTimer := Fake;
end;
 
procedure TMonTimer.Fake(Sender: TObject);
begin
end;
 
procedure TMonTimer.Timer;
var
  Stop: Boolean;
begin
  inherited;
  if assigned(fEvents) then
  begin
    fEvents.UpdateStringList;
    if fCount = 10 then
      fEvents.OnFin(Stop);
    if Stop then Enabled := False;
    Inc(fCount);
  end;
end;
 
{ TForm1 }
 
constructor TForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  mmo1.Lines.Clear;
  fStringList := TStringList.Create;
  fMonTimer := TMonTimer.Create(Self);
  fMonTimer.Interval := 500;
end;
 
destructor TForm1.Destroy;
begin
  fMonTimer.Free;
  inherited Destroy;
end;
 
procedure TForm1.OnFin(var Stop: Boolean);
begin
  mmo1.Lines.Add('fin');
  Stop := True;
end;
 
procedure TForm1.UpdateStringList;
begin
  mmo1.Lines.Add(IntToStr(Random(5000)));
end;

[coax81]

en faite dans mon timer je lit un tableau de paths qui es mis à jours en permanence , et ces paths correspondent au fichiers que je doit transférer en ftp . donc chaque fois que mon timer lis les nouveaux paths ,il doit déclencher un évenement qui va transférer les fichiers demandés par ftp .

vous pouvez me donner l'exemple avec la méthode procedure of object s'il te plais?

[Kaféine]

Ok, je vois que tu connais pas les interfaces

L'idéal serais que tu post la portion de code en question...

[coax81]

dans le code je simule l'appel de l'évenement par un click sur un bouton !

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
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  id : object_id;
  res : result;
  state : converter_project_task_state;
  input_filepaths   : converter_string_list;
  output_filepaths  : converter_string_list;
  taille , i : integer;
  exists : boolean;
  RqTxt : string;
begin
exists  :=false;
state   := CONNECTING;
res     :=2;
  SetLength(output_filepaths,2);
  SetLength(input_filepaths,2);
  for i:=0 to 1 do
  begin
        output_filepaths[i] :='';
        input_filepaths[i]  :='';
  end;
 
 
 
    if (state = PROCESSING) or (state = REPROCESSING) then
    begin
      if flist.Count = 0 then  begin
          AddList(output_filepaths[0]);
          AddList(output_filepaths[1]);
      end;
 
 
// ici je simule l'appel d'un évenement par un click de bouton .
     Button1Click(nil); 
    end
 
 
  end;
{**}
end;

[Kaféine]

Ok je te prépare le même exemple avec les evenements standards.

[Rayek]

Petite question : penses tu à couper ton timer quand il est en cours de traitement ?

[edit] oups avait aps vu

Normal que ca bug tu n'arretes pas ton timer entre temps

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
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  id : object_id;
  res : result;
  state : converter_project_task_state;
  input_filepaths   : converter_string_list;
  output_filepaths  : converter_string_list;
  taille , i : integer;
  exists : boolean;
  RqTxt : string;
begin
  TTimer(Sender).Enable := False;
  try
 
exists  :=false;
state   := CONNECTING;
res     :=2;
  SetLength(output_filepaths,2);
  SetLength(input_filepaths,2);
  for i:=0 to 1 do
  begin
        output_filepaths[i] :='';
        input_filepaths[i]  :='';
  end;
 
 
 
    if (state = PROCESSING) or (state = REPROCESSING) then
    begin
      if flist.Count = 0 then  begin
          AddList(output_filepaths[0]);
          AddList(output_filepaths[1]);
      end;
 
 
// ici je simule l'appel d'un évenement par un click de bouton .
     Button1Click(nil); 
    end
 
 
  end;
{**}
finally
  TTimer(Sender).enable := True;
end;
end;

Je pense que ca buggera beaucoup moins.

[Kaféine]

Désolé, Je ne comprend pourquoi il te faut un evenement?

l'appel à une méthode de la form ne suffit pas?

[Kaféine]

Je suis d'accord avec Malatar et j'imaginais que le timer etait couper durant le traitement dans le code de la "simulation d'evenement".
moi j'aurais appelé une simple méthode de la form...

[coax81]

avec une simple méthode de la forme dans mon timer , ca me crée une exception 'ftp component not ready'. c'est pour cela je crée un évenement extérieur qui bloque pas le timer , et fait le transfert à l'extérieur du timer .
mais quand je fait un transfert ftp en dehors du timer tout se passe bien !!!
apparament le timer n'attend pas la fin du transfert FTP .

[coax81]

oui ca marche bien en désactivant le timer .
merci

par contre pourriez vous me dire comment je crée un evenement avec procedure of object , juste pour l'entrainement ...ca doit me servire dans d'autres appli.

[sjrd]

Regarde là :
http://sjrd.developpez.com/delphi/tu...creation#LII-G