Thread Timer et Tcomposant

Version imprimable

13/12/2006, 16h54
cfalcot

Thread Timer et Tcomposant
Bonjour,

Je cherche à créer un TTimer dans un thread. Comme je n'ai pas de TFrom dans ce thread, je ne sais pas comment définir le paramètre "AOwner: TCompenent" necessaire lors de l'instanciation de l'objet:
Code:

1 2 TimerThread: TTimer; TimerThread.Create({quoi mettre ici??});
si je met "self" j'ai une imcompatibilité de type entre le TComponent et le TmyThread.

Merci.
13/12/2006, 17h13
Louis Griffont

Tu mets NIL, et ça devrait passer !
13/12/2006, 17h19
cfalcot
Merci mais...
Code:

1 2 3 4 5 TimerThread.Create(nil); TimerThread.OnTimer := TimerThreadonTimer; TimerThread.Interval := 1000; TimerThread.Enabled := true; end;
Pas de problèmes à la compilation mais si je fait un debug pas a pas, il passe directement du TimerThread.Create(nil); au end; de la procèdure...

une autre idée (ou j'ai fait une connerie peut etre...)
13/12/2006, 23h51
Jipété

'Soir,

Je sais pas si ça a un rapport, mais je regardais l'aide de AllocateHWnd, et dans l'exemple, il est bien montré qu'un Timer a besoin d'une form, invisible mais présente.
Jette un oeil, des fois que...

Mes 2 cts,
--
jp
14/12/2006, 13h25
Pedro
Salut :)

Citation:

Envoyé par cfalcot

une autre idée (ou j'ai fait une connerie peut etre...)

:koi: Soit j'ai mal compris soit la création s'écrit comme ça:
Code:

1 2 TimerThread := TTimer.Create(nil);

Citation:

Envoyé par cfalcot

Bonjour,
Je cherche à créer un TTimer dans un thread. Comme je n'ai pas de TFrom dans ce thread, je ne sais pas comment définir le paramètre "AOwner:

????un timer dans un thréad, bizar, :?
dans tt les cas, crée le directement par les API, voir dans l'unité ExtCtrls
voila un extré de code

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
{ TTimer }
 
  TTimer = class(TComponent)
  private
    FInterval: Cardinal;
    FWindowHandle: HWND;
    FOnTimer: TNotifyEvent;
    FEnabled: Boolean;
    procedure UpdateTimer;
    procedure SetEnabled(Value: Boolean);
    procedure SetInterval(Value: Cardinal);
    procedure SetOnTimer(Value: TNotifyEvent);
    procedure WndProc(var Msg: TMessage);
  protected
    procedure Timer; dynamic;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Enabled: Boolean read FEnabled write SetEnabled default True;
    property Interval: Cardinal read FInterval write SetInterval default 1000;
    property OnTimer: TNotifyEvent read FOnTimer write SetOnTimer;
  end;
 
 
constructor TTimer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FEnabled := True;
  FInterval := 1000;
  FWindowHandle := Classes.AllocateHWnd(WndProc);
end;
 
destructor TTimer.Destroy;
begin
  FEnabled := False;
  UpdateTimer;
  Classes.DeallocateHWnd(FWindowHandle);
  inherited Destroy;
end;
 
procedure TTimer.WndProc(var Msg: TMessage);
begin
  with Msg do
    if Msg = WM_TIMER then
      try
        Timer;
      except
        Application.HandleException(Self);
      end
    else
      Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
end;

14/12/2006, 17h00
LadyWasky

Bien vu edam, je suis aussi de ton avis à 100% :ccool:

Bonsoir,

Enfait je cherche a threader un transfère de fichier via FTP. Je voudrais faire un timout sur le thread: si il ne s'est pas terminer en 1 minute, je le kill.

En fait le coup du

Code:

Timer1 := TTimer.create(nil);

fonctionne bien: j'avais mal isolé la ligne de l'erreur.... :oops:

Par contre je voudrais liberer mon Timer. Du coup j'essay ca:

Code:

1
2
3
4
5
6
7
8
9
10
destructor TMyThread.Destroy;
begin
  Timer1.Enabled:=false;
  //Timer1.Free; {c'est cette ligne qui pose problème}
  if IdFTPThread.Connected then
    IdFTPThread.Disconnect;
  inherited;
  Memo1.lines.add('THREAD IS DESTROYING...');
  Memo1.lines.Add('');
end;

Si je decommante la liberation de mon timer1, des que je click sur une fenètre d'une autre application j'ai l'erreur suivante qui sort:

Citation:

Access violation at address 00000000. Read of adress 0000000.

Par contre tout est bon si je la laisse commanté.

Je pense que malgrès la destruction du thread, le timer reste cacher quelquepart dans la memoire. En effet, je créer périodiquement mon thread de transfère via FTP. Si je ne desactive pas le timer, lors du premier passage, j'ai un seul 'TIMER' dans mon memo (normal). Lors du second passage j'en ai deux (plus normal), lors du troisième, trois 'TIMER' affichés, etc...

Voila tout le code pour etre plus clair:

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
79
80
81
82
83
84
85
86
87
88
89
procedure TMyThread.Timer1OnTimer(Sender: TObject);
begin
  try
    Memo1.lines.add('TIMER!');
  Except
    showmessage('ERROR!');
  end;
  Doterminate;
end;
 
constructor TMyThread.Create(AIdFTP: TIdFTP; AMemo: Tmemo; AInteger: Integer; AArrayOfString: TTableauDeString1D);
Var
  I: integer;
begin
  Timer1 := TTimer.create(nil);
  Timer1.Interval:= 5*1000;
  Timer1.Enabled:= true;
  Timer1.OnTimer := Timer1OnTimer;
  FreeOnTerminate := True;
  IdFTPThread := AIdFTP;
  Memo1 := AMemo;
  NbFichiers := AInteger;
  for I := 0 to NbFichiers - 1 do
    ListeFichiers[I] := AArrayOfString[I];
  inherited Create(False);
  priority := tpLowest;
end;
 
destructor TMyThread.Destroy;
begin
  Timer1.Enabled:=false;
  //Timer1.Free;
  if IdFTPThread.Connected then
    IdFTPThread.Disconnect;
  inherited;
  Memo1.lines.add('THREAD IS DESTROYING...');
  Memo1.lines.Add('');
end;
 
procedure TMyThread.Execute;
begin
  SetName;
  synchronize(TransfereFTP);
end;
 
procedure TMyThread.TransfereFTP;
var
  i: integer;
begin
  if ServeurFTP.TransferFTP=1 then
  begin
    Memo1.lines.Add(FormatDateTime('[hh:nn:ss]', now)+' connection à '+IdFTPThread.Username+':'+IdFTPThread.Password+'@'+IdFTPThread.host);
    if IdFTPThread.Connected then IdFTPThread.Disconnect;
    try
      try
        IdFTPThread.Connect;
      Except
       Memo1.lines.Add('Le serveur "'+ IdFTPThread.Host + '" ne repond pas');
      end;
      if IdFTPThread.Connected then
      begin
        IdFTPThread.TransferType:=ftBinary;
        for I := 0 to NbFichiers - 1 do
        Begin
          Memo1.Lines.add('Transfère de ' + ListeFichiers[i]);
          try
            IdFTPThread.Put(ListeFichiers[I]);
          Except
            Memo1.lines.Add('   Problème de transfère pour: '+ ListeFichiers[i]);
          end;
        end;
      end;
    finally
      IdFTPThread.Disconnect;
      if IdFTPThread.connected then
        Memo1.lines.add('Problème lors de la deconnection')
      else
        Memo1.lines.add('Déconécté du serveur...');
    end;
  end;
 
  randomize;
  if random > 0.5 then
  begin
    Memo1.lines.add('KILL METHOD MUST BE CALLED...');
    sleep(5*1000);
  end;
 
end;

14/12/2006, 17h40
cfalcot

au fait, merci edam, tu m'a donné les explications sur ce que je n'avais pas réussi à mettre en oeuvre (j'ai trouver un truc similaire dans le forum, mais je ne suis arriver à rien avec...)

Pour écrire dans une variable extérieure au thread (en l'occurence pour afficher dans memo1), il faut que tu utilise la méthode synchronize du thread :

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TMyThread.affichage; begin Memo1.lines.add('THREAD IS DESTROYING...'); Memo1.lines.Add(''); end; destructor TMyThread.Destroy; begin Timer1.Enabled:=false; //Timer1.Free; {c'est cette ligne qui pose problème} if IdFTPThread.Connected then IdFTPThread.Disconnect; inherited; Synchronize(Affichage); end;

Citation:

Envoyé par edam

????un timer dans un thréad, bizar, :?

j'ai jamai utlisé les Indys, ci tu as installé cport regard l'uniter cport.pas, il te donnera une idée, en utlisant WaitForMultipleObjects

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
procedure TComThread.Execute;
var
  EventHandles: array[0..1] of THandle;
  Overlapped: TOverlapped;
  Signaled, BytesTrans, Mask: DWORD;
begin
  FillChar(Overlapped, SizeOf(Overlapped), 0);
  Overlapped.hEvent := CreateEvent(nil, True, True, nil);
  EventHandles[0] := FStopEvent;
  EventHandles[1] := Overlapped.hEvent;
  repeat
    // wait for event to occur on serial port
    WaitCommEvent(FComPort.Handle, Mask, @Overlapped);
    Signaled := WaitForMultipleObjects(2, @EventHandles, False, INFINITE);
    // if event occurs, dispatch it
    if (Signaled = WAIT_OBJECT_0 + 1)
      and GetOverlappedResult(FComPort.Handle, Overlapped, BytesTrans, False)
    then
    begin
      FEvents := IntToEvents(Mask);
      DispatchComMsg;
    end;
  until Signaled <> (WAIT_OBJECT_0 + 1);
  // clear buffers
  SetCommMask(FComPort.Handle, 0);
  PurgeComm(FComPort.Handle, PURGE_TXCLEAR or PURGE_RXCLEAR);
  CloseHandle(Overlapped.hEvent);
  CloseHandle(FStopEvent);
end;

19/12/2006, 10h00
edam

alors, résolut???