как убрать Access Violation при Destroy компонента?

[ZuBy]

Привет Всем!

В общем сегодня нашел один очень полезный компонент (TThreadedTimer).
автор этого компонента так и не исправил ошибку при уничтожении компонента.

Есть люди которые в этом разбираются?

P.S. это ошибка выскакивает не всегда, в основном при обработке данных или подсчете чисел и тд..

[r9m]

Лучше пример кода, при выполнении которого ошибка даёт о себе знать.

[artemavd]

ZuBy, я избавлялся от этой ошибки так:

var
 i: integer; //создавал "левую" переменную, которая ничего не делает
begin
 try
 ... //тут выполнялся мой код какой-то
 except
 {далее идет обработка ошибки. Помести то что идет после
 except в код туда, что "провоцирует" ошибку}
 on EAccessViolation do
  //блок begin...end в данном случае необязателен. Это у меня просто 
  привычка после do писать его :)
  begin 
   i:=1;
  end;
 end;

Тогда в среде разработки появление ошибки будет продолжаться, однако, когда запустишь ехе-шник отдельно, то ошибки не будет. По крайней мере у меня не появляется она больше. Удачи!

[ZuBy]

artemavd, спасибо за решение, надеюсь поможет!

p.s. если поможет жди положительный отзыв)

From artemavd: мне помогло. жду

[Stilet]

ZuBy

Я пишу:

unit Unit1;

interface

uses    ThdTimer,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private t:TThreadedTimer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 t:=TThreadedTimer.Create(self);
 t.Interval:=1000;
 t.OnTimer:=Timer1Timer;
 t.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Caption:=TimeToStr(now);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 t.Enabled:=false;
end;

end.

Запускаю. часики тикают. Я закрываю форму и не вижу никакого AV. (D6)
Так шо все там ок.
На всякий случай подозрение что поправить нужно в деструкторе так:

    if FOwner<>nil then
     FOwner.FOnTimer := nil; // AV

[ViktorXP]

Вообще компонент написан ка кто странно.

  with FTimerThread do
  begin
    FEnabled := False;
    FOwner.FOnTimer := nil; // AV

Зачем TThreadedTimer стирать событие OnTime у себя через FTimerThread.

И самое странное это то что все это эмулирует действия мультимедийного таймера.

[ZuBy]

artemavd, увы и ах, при большой нагрузке на потоковый таймер он все равно выдает ошибку.
Stilet, я ведь говорил что ошибка возникает не всегда!
ViktorXP, нулить события это дело каждого!

а есть у кого нить нормальный потоковый таймер?

[ViktorXP]

ViktorXP, нулить события это дело каждого!

Вот из за таких косяков потом непонятно почему код перестает работать.
И если бы нулил бы у себя это еще пол беды, но нулить у себя через дочерний объект... это как гланды через ж#п#.
Да и если человек обнуляет событие в деструкторе то тут складывается мнение о неправильном построении логики.

а есть у кого нить нормальный потоковый таймер?

Я ведь уже говорил что в системе есть мультитаймер
timeSetEvent

The timeSetEvent function starts a specified timer event. The multimedia timer runs in its own thread. After the event is activated, it calls the specified callback function or sets or pulses the specified event object.

[_Engine_]

интересно, а как там решается проблема синхронизации доп.потока с основным?

[ZuBy]

Сообщение от _Engine_

интересно, а как там решается проблема синхронизации доп.потока с основным?

что именно? Мультимедийный таймер?

ViktorXP я пробовал его, но там идет обработка через процедуру которую нельзя привязать к компоненту, а делать обработку вне компонента - это потеря скорости.