在线程中传递消息!(50分)

我写代码如下:
头文件BInfer.h
//---------------------------------------------------------------------------
class TDBThread : public TThread {
private:
TADOConnection *AdoCn;
TADOQuery * AdoQu;
public:
static const WM_TABLE_OPEN = (WM_USER + 100);
private:
//打开表
void __fastcall WM_OPEN(TMessage &Message);
//通过宏定义实现消息的正确响应
begin
_MESSAGE_MAP
MESSAGE_HANDLER(WM_TABLE_OPEN, TMessage, WM_OPEN)
END_MESSAGE_MAP(TDBThread)
protected:
void __fastcall Execute();
public:
__fastcall TDBThread(bool CreateSuspended);
};
//---------------------------------------------------------------------------
class TDBInfer {
private:
TDBThread *DBThread;
public:
TDBInfer();
~TDBInfer();
public:
bool Open(const String TableName);
};
//---------------------------------------------------------------------------
#endif
实现部分BInfer.cpp
//---------------------------------------------------------------------------
__fastcall TDBThread::TDBThread(bool CreateSuspended)
: TThread(CreateSuspended)
{
FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
void __fastcall TDBThread::Execute()
{
PMsg Msg;
PMessage DMsg;
while(!Terminated) {
Sleep(10);
//释放CPU资源
if(PeekMessage(Msg, 0, 0, 0, PM_REMOVE)) {
DMsg->Msg = Msg->message;
DMsg->WParam = Msg->wParam;
DMsg->LParam = Msg->lParam;
DMsg->Result = 0;
Dispatch(DMsg);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TDBThread::WM_OPEN(TMessage &Message)
{
MessageBox(0, "OK", "TEST", 0);
}
//---------------------------------------------------------------------------
/*
数据库类
*/
TDBInfer::TDBInfer()
{
//创建一个线程对象
try {
DBThread = new TDBThread(false);
}
catch ( ... ) {
delete DBThread;
DBThread = NULL;
}
}
TDBInfer::~TDBInfer()
{
}
bool TDBInfer::Open(const String TableName)
{
if(PostThreadMessage(DBThread->ThreadID, DBThread->WM_TABLE_OPEN, 0, 0) == 0) {
MessageBox(0, "PostThreadMessage ERROR", "Test", 0);
}
return 0;
}
我在程序中调用如下:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DBInfer = new TDBInfer(DBInfer);
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
DBInfer->Open("");
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
delete DBInfer;
}
现在我已经实现了消息在线程中的传递，问题是程序在退出的时候报指针错误!
不知道是什么原因,请大家帮忙看看!

现在DFW比起以前差了，以前的那些牛人都消失了.
期待大家的回答!

哎,还是我自己说吧:
void __fastcall TDBThread::Execute()
{
TMsg Msg;
TMessage DMsg;
while(!Terminated) {
Sleep(10);
//释放CPU资源
if(PeekMessage(&Msg, NULL, 0, 0, PM_REMOVE)) {
DMsg.Msg = Msg.message;
DMsg.WParam = Msg.wParam;
DMsg.LParam = Msg.lParam;
DMsg.Result = 0;
Dispatch(&DMsg);
}
}
}
这样就没有问题了.应该是不能用指针指向消息列队中的一条消息.
而是应该读出一条消息放到一个消息变量里面去.