Ошибка в потоках (Access violation at address)

[designer999]

Здравствуйте.
В потоках синхронизирую процедуру ProgressInts1, для отображения прогресса в ячейке TAdvStringGrid

Synchronize(ProgressInts1);

Вот сама процедура.

procedure TNewAllPost.ProgressInts1;
begin
 try
  Form1.DbGridForum.Ints[10,Fint]:=RandomRange(5,25);
  except
  on e:exception do
     inilog.Writestring('Error', datetostr(date)+' '+
      timetostr(time), 'ProgressInts1: '+e.Message);
  end;
end;

И вот иногда выскакивает ошибка что я указал ниже, интересно то что процедура может запускаться сотни раз, а ошибка может появится раза 2-3, собственно что можно сделать с этим ? вроде же доступ к VCL компоненту синхронизируется, но в чём дело не знаю (((, буду благодарен за помощь.

24.08.2011 10:03:30=ProgressInts1: Access violation at address 005950EB in module 'FastPostForum.exe'. Read of address 00000014

[Аватар]

А покажите как в потоке вы синхронизируете

ADD
Проглядел Synchronize(ProgressInts1);

[Человек_Борща]

я бы использовал SendMessage из потока в vcl , так надёжнее.
На вскидку я бы ещё подключил MadExcept или EurekaLog там уже можно былобы что-то сказать о причинах ошибки.

[mss]

Access violation at address 005950EB

Для поиска граблей используй меню IDE
Search -> Find Error .. -> 005950EB

[GunSmoker]

http://www.gunsmoker.ru/2009/05/access-violation.html

[designer999]

Сообщение от Человек_Борща

я бы использовал SendMessage из потока в vcl , так надёжнее.

в этом случае как его использовать? можно пример

[Человек_Борща]

const 
  THIS_IS_SPARTA = WM_USER + 454; //WM_USER константа из messages.pas

type
  TForm1 = class(TForm)
  {blabla}
 public
 procedure OnSpartaMsg(var msg:TMessage); message THIS_IS_SPARTA; 


{ bla bla bla }

Procedure TForm1.OnSpartaMsg(var msg:TMessage); message THIS_IS_SPARTA; 
begin
ProgressBar.Max:=Msg.LParam;
end;

В потоке прописать туже константу. А затем:

uses MainFormUnit; //TForm1 

begin
{thread code}
SendMessage(Form1.handle,THIS_IS_SPARTA,0,<передаваемое число из потока в форму>);
end;

Загугли ну а лучше в msdn прочитай про sendmessage в ещё незаменимый источник информации это справка delphi

[GunSmoker]

В данном случае SendMessage от Synchronize ничем не отличается.

[mss]

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

как его использовать?

Synchronize или SendMessage - в дан.случае фиолетово.
Никакого отношения к причине AV это не имеет.
А причина совершенно очевидно в другом - nil или мусор либо в Form1 либо в DbGridForum

[chertovich]

Память для DbGridForum.Ints[10,Fint] выделена?
Недостаточно кода для выявления ошибки.