Привет форумчанам! Есть такая проблема.
Была прога, в ней создавалось несколько потоков, которые считывали данные с различных COM-портов. Потоки я не синхронизировал, т.к. VCL при этом не задействован.
При этом для выполнения дальнейшего кода надо было подождать, пока все данные с COM-портов не будут считаны.
Вот так вот:
| Код | __fastcall
TComThread::TComThread(TShortLLS* shortLLS)
: TThread(true), ShortLLS(shortLLS)
{
Priority = tpNormal;
FreeOnTerminate = false;
}
void __fastcall
TComThread::Execute()
{
ShortLLS->ReadLbd(Number, Pointer);
}
int
TShortLLS::Takt()
{
if(countK > 1)
{
uint16* p = Oz[countK-1].Cbd.Lbds;
for (int i=0; i<countK-1; i++)
{
ComThread[i] = new TComThread(this);
ComThread[i]->Pointer = Oz[i].Cbd.Lbds;
ComThread[i]->Number = i;
}
for (int i=0; i<countK-1; i++)
ComThread[i]->Resume(); // остальные в своих потоках
ReadLbd(countK-1, p); // одна задача в основном потоке
for (int i=0; i<countK-1; i++)
{
ComThread[i]->WaitFor(); // ожидаем завершения всех потоков
ComThread[i]->Free();
ComThread[i] = NULL;
}
}
else
{
if (countK > 0)
{
uint16* p = Oz[0].Cbd.Lbds;
ReadLbd(0, p);
}
}
}
|
Короче, все работало.
А теперь пришлось добавить код, который выдает сообщение на экран и ожидает, пока пользователь не нажмет OK, чтобы записать время его нажатия. Пока пользователь тупит и смотрит на это сообщения (а их может быть и несколько), необходимо, чтобы дальше выполнялось чтение данных с COM-портов.
Т.к. тут использовалось сообщение, то я закинул его в синхронный поток.
| Код | class TMessThread: public TThread
{
public:
__fastcall TMessThread():TThread(true){FreeOnTerminate = true;}
void __fastcall WaitClick();
AnsiString T;
AnsiString path;
private:
protected:
void __fastcall Execute(){Synchronize(WaitClick);}
};
void __fastcall TMessThread::WaitClick()
{
if (Application->MessageBox(T.c_str(), "Бла-бла", MB_ICONINFORMATION|MB_OK) == IDOK)
{
AnsiString M = "фвы: "+T;
TUstCmd cmd("TDtDsCmd", M.c_str(), "-", "-");
PutUserCmd(path.c_str(),idasut.c_str(),cmd);
}
}
void TCl::Function()
{
//.......................
thr = new TMessThread();
thr->T = Text1;
thr->path = Path;
thr->Resume();
//.......................
}
|
А теперь трабла: После завершения WaitClick, ну и, соответственно, TMessThread::Execute, следующий шаг (нажимаю F7), идет
ComThread[i]->Free();
ComThread[i] = NULL;
Как будто ComThread дождался WaitFor своего. При этом ComThread[i] уже ссылается на другую область памяти (другой адрес), а следующий ComThread[i] вообще равен NULL, и выбрасывает на ComThread[i]->WaitFor(); Access Violation at address ... Read of address. (что и понятно, ведь ComThread[i] = NULL).
Почему после выполнения TMessThread::Execute происходит потеря памяти у ComThread, и что делать?
Пробовал для MessThread, FreeOnTerminate = false; и WaitFor, но все равно трабла. |
)