Следующее исключение OLE "CoInitialize has not ben called" возникает прои попытке сформировать текст запроса CommandText для Q(где Q - ADODataSet)

Код

void __fastcall TQueryListThread::Execute() {   .........   [color=red]Q->CommandText="Select  "+FieldName+" ,min(dataField) as dataField From[d].[dbo].[files]      Where "+FieldName+" Not In ( "; [/color]    Synchronize(ConcatStringFor);

если эту же строку поставить в конструктор обьекта
то все проходит вполне терпимо

Код

__fastcall TQueryListThread::TQueryListThread(AnsiString Field,bool CreateSuspended=false)         : TThread(CreateSuspended) {  FreeOnTerminate = true;  FieldName=Field;  if(FieldName=="checkRes")    {       Q=SetN->ADODS1;      SetN->thred1_work=true;    }  if(FieldName=="sSocet")    {      Q=SetN->ADODS2;     SetN->thred2_work=true;    }    Q->Close();  [color=red]Q->CommandText="Select  "+FieldName+" ,min(dataField) as dataField From[d].[dbo].[files]      Where "+FieldName+" Not In ( "; [/color]    }

народ подскажите в чем причина? ...

Оставлять как есть не хотелось бы. Просто запрос формируется не одной строкой и не хочется раскидывать его формирование по разным функциям

Если на написанное выше ответить не удасться, то хотяб подскажите нормально ли использовать Synchronize() в конструкторе потока?

а почему бы не послушаться систему и не вызвать CoInitialize()?
+ странная у тебя конструкция получается... почему бы и запрос в поток не засунуть?

CoInitialize() - Это метод ADODataSet?
А насчет

Цитата(_hunter @ 27.10.2005, 16:54)

почему бы и запрос в поток не засунуть

разве он не в потоке ?

Добавлено @ 17:06
Или ты в смысле почему бы не создать обьект ADODataSet в потоке

Цитата

CoInitialize() - Это метод ADODataSet?

нет. это API-шная функция

Цитата

Или ты в смысле почему бы не создать обьект ADODataSet в потоке

именно

Цитата

Цитата  Или ты в смысле почему бы не создать обьект ADODataSet в потоке именно

Пробовал. При попытке создать ADODataSet в потоке Сode Guard говорит : 'Method called ilegaly casted object ....'.
Буду признателен если поясниш как грамотно это сделать.

эээ... да точно так же как и не в потоке создавать...
показывай код.

CoInitialize(NULL) к стати помог
но в потоках народ советовал пользоваться CoInitializeEx (NULL,...)

собственно код

Код

void __fastcall TQueryListThread::Execute() {     Cheking();     Synchronize(LockCheckBoxes);     if(CoInitialize(NULL)==S_OK)         {       Q=new TADODataSet(NULL);   //здесь  Сode Guard говорит : 'Method called ilegaly casted object ...'       Q->CommandText="Select  "+FieldName+" ,min(dataField) as dataField From [Base].[dbo].[files] Where "+FieldName+" Not In ( ";       Synchronize(ConcatStringFor);       Q->CommandText=Q->CommandText+" )Group by "+FieldName+" Order By "+FieldName+";";       Q->Close();      Q->Open(); ...........

Добавлено @ 15:13
delete Q;

Чесно сказать мне самому решение приведенное выше нравится более, но сдаётся мне что побороть 'Method called ilegaly casted object ...' не удастся . Тему в приципе подымаю не первый раз...

прямо там и говорит? быть такого не может... (или у тебя пятый билдер? )

6-й пропатченный

а как ( и где ) у тебя Q объявлено?
+ что там с местом?

Шайтан все заработало. Создал похожую ситуевину в другом проекте только вот так.

Код

void __fastcall TQueryListThread::Execute() {     Cheking();     Synchronize(LockCheckBoxes);     if(CoInitialize(NULL)==S_OK)         {      [b]TADODataSet *Q=new TADODataSet(NULL);  [/b]       Q->CommandText="Select  "+FieldName+" ,min(dataField) as dataField From [Base].[dbo].[files] Where "+FieldName+" Not In ( ";       Synchronize(ConcatStringFor);       Q->CommandText=Q->CommandText+" )Group by "+FieldName+" Order By "+FieldName+";";       Q->Close();      Q->Open(); ...........

Вчем грабли ?

Цитата

что там с местом?+

Извиняюсь но вопрос не понял. С местом где ?

Цитата

Извиняюсь но вопрос не понял. С местом где ?

я спрашивал где именно появляется то сообщение.

кстати, CoInitialize(NULL) достаточно вызвать один раз в конструкторе ( тут это побоку, но в знать это нужно )
+ Q->Close(); -- лишнее ( DataSet и так закрыт )

Сode Guard-ое ? В коде эта строка коментарием снабжена ?

Цитата

Q=new TADODataSet(NULL);  //здесь  Сode Guard говорит : 'Method called ilegaly casted object ...'

читал я этот коментарий. но билдер при броске исключения переходит на следующую строку. поэтому так говорить нельзя. вот если ты отладчиком поставил бряку и тыкнул на Step Over вот тогда можно говорить на этой строке.