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

Posted by maloy under Delphi, Архив

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)

тема на форуме от 2009 года

Похожие статьи

• Автоматическая очередь потоков
• Пример использования потока в форме
• Скелет потока с процедурой Terminate
• Создание своего класса потока
• Как можно выполнить процедуру с параметрами через поток?
• Как организовать общение формы и потока?