Ошибка в потоке

[User>lia]

Я создаю топок в котором должна получать данные с сервера приложений (использую DCOMConnection),

....
obj := CreateOleObject('ComS.interf_');
....
procedure TSimpleThread.Execute;
begin
 CoInitialize(nil);
      repeat
      Form1.Tabl.Cells[i, 2]:= FloatToStr(obj.Value_float);
      Form1.Tabl.Cells[i, 1]:= TimeToStr(Time);
      Form1.Tabl.Cells[2, 4]:= obj.BS;
   until Terminated;
  CoUninitialize;
end;

но появляется сообщение об ошибке:" ...Приложение обратилось к интерфейсу, относящемуся к другому потоку. ...stopped..."
Что я не так делаю???

[Neobrat]

Про метод Synchronize слышал? почитай про него..

в месте..
Form1.Tabl.Cells[i, 2]:= FloatToStr(obj.Value_float);
Form1.Tabl.Cells[i, 1]:= TimeToStr(Time);
Form1.Tabl.Cells[2, 4]:= obj.BS;

Ты обрашаешься на прямую из потока к Form1 в то время твоя форма может быть занята(Например пользователь записывает, выделяет или еще что либо делает с Tabl.Cells и не только с ней)...

в крадце создай процедуру в потоке что то на подобие SynchronizeForm
без параметров..

в ней опиши свое
Form1.Tabl.Cells[i, 2]:= FloatToStr(obj.Value_float);
Form1.Tabl.Cells[i, 1]:= TimeToStr(Time);
Form1.Tabl.Cells[2, 4]:= obj.BS;

а в Execute; вызывай Synchronize(SynchronizeForm)

[SNUPY]

Если не ошибаюсь еще можно более муторно провернуть по средством SendMessage ^_^

[Neobrat]

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

Если не ошибаюсь еще можно более муторно провернуть по средством SendMessage ^_^

А смысл? там писать тут писать.. )))

[SNUPY]

в принципе нет, но надо знать, что так можно ^_^.... Хотя вот хз, что быстрее будет работать, просто порой красивее обойтись SendMessage'ом.

[Д'якон]

Иногда полезно почитать Рихтера, если занимаешься программированием под Виндоус.