🚀 go-pugleaf

"Isaac" <nospam@nospam.com> wrote in message 
news:483cd729$1@newsgroups.borland.com...

> I thought that it may not be as simple as putting ThreadID
> in the parameters of waveOutOpen; that by doing so the
> messages were actually being sent to the main application
> instead.

In the code you have shown now, you are not sending the messages to the main 
thread at all.  So the TForm (or TApplication) cannot process the messages 
because they will never see them.

> So I wrote a function that sets the thread ID to test this
> (but no joy as well).

Your code is wrong for that.  It is calling waveOutOpen() in the thread 
constructor before the myThreadID variable has a chance of being assigned 
any value.  Since you are using the thread's ThreadID property anyway, your 
myThreadID variable is redundant.  You are also calling waveOutOpen() before 
the thread's message queue is even created.

>         BEGIN_MESSAGE_MAP
>            MESSAGE_HANDLER(WOM_DONE, TMessage, OnWaveMessage)
>         END_MESSAGE_MAP(TThread)

You can't use a message map with a TThread.  You will have to code the 
message pump manually by calling Get/PeekMessage(), TranslateMessage(), and 
DispatchMessage() directly.  For example:


    __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
    {
        playWave = new LineOut(false);
        ...
    }


    __fastcall LineOut::LineOut(bool CreateSuspended)
        : TThread(CreateSuspended)
    {
        ...
    }

    void __fastcall LineOut::Execute()
    {
        HWAVEOUT WaveHandle
        MSG msg;

        // create message queue
        PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE);

        waveOutOpen(
            &WaveHandle,
            WAVE_MAPPER,
            &WaveFormat,
            this->ThreadID,
            (DWORD) this,
            CALLBACK_THREAD);

        while( !Terminated )
        {
            if( MsgWaitForMultipleObjects(0, NULL, FALSE, 1000, QS_ALLINPUT) 
== WAIT_OBJECT_0 )
            {
                while( PeekMessage(&msg, NULL, 0, 0, PM_REMOVE) )
                {
                    switch( msg.message )
                    {
                        case MM_WOM_DONE:
                        {
                            //...
                            break;
                        }
                        //...
                        default:
                        {
                            TranslateMessage(&msg);
                            DispatchMessage(&msg);
                            break;
                        }
                    }
                }
            }
        }

        waveOutClose(WaveHandle);
    }

> I'll lookup TApplication::OnMessage, thanks!

That will only work if you use the global MainThreadID as the ThreadID 
passed to waveOutOpen().


Gambit