关于BCB中用多线程实现gif动画
我在主线程中 实现业务处理流程 然后在开始的时候 创建一个线程 用来 弹出一个窗体 窗体中放了个TImage 显示个gif动画 然后想在主线程中业务处理完成之后关掉这个窗体。 但是我实现之后出现非法访问的错误。 代码如下 求指导 谢谢。
自定义的线程类的cpp
extern String progressMsg;
__fastcall TGifThread::TGifThread(bool CreateSuspended)
: TThread(CreateSuspended)
{
}
void __fastcall TGifThread::Execute()
{
// pLock->Acquire();
Synchronize(doShowProgress);
// pLock->Release();
}
void __fastcall TGifThread::doShowProgress()
{
ShowProgressForm->doShow(InputWSHForm, progressMsg);
}
void __fastcall TGifThread::doCloseProgress()
{
ShowProgressForm->doClose();
}
主线程中调用
TGifThread *GifThread;
GifThread = new TGifThread(false);
///////////////////////////////////////////////////////////////////////
业务处理代码
///////////////////////////////////////////////////////////////////////
关闭弹出的窗体