Bonjour.
je suis entrain de créer un composant intraweb. Dans ce composant je veux créer un timer qui fait un certain traitement.j'utilise l’événement OnAsynctimer pour profiter d'ajax.le probléme que lorsque je lance l'application le navigateur plante.voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
 timer:=TIWTimer.Create(Self);
  timer.Enabled:=False;
  timer.Interval:=1000;
 
  timer.OnAsyncTimer:=timerAsyncTimer;
if //un traitement then timer.Enabled:=True;  //j'active le timer ici
end;
et voici le traitement que vas faire le timer:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TIWForm1.timerAsyncTimer(Sender: TObject; EventParams: TStringList);
begin
  if //un traitement then //un traitement
 end;
je crois que le probléme vient d'ajax car avec Evènement OnTimer tout va bien.

j'ai besoin de votre aide. mercii