🚀 go-pugleaf

> Did you set the TIdUDPServer's ThreadedEvent property to True?  If not, 
> then
> the OnUDPRead event handler is executed in the context of the main thread.

yes

> Then you are likely not managing them properly. Please show your actual
> code.

probably, what I don't understand yet is why:
- app1-server talks ok to app2-client and vv.
- app2-server to app2-client seems ok
- app1-server to app1-client doesn't

The two instances of app1 seem to lock eachother out, as in only one side 
seems to run at a time.  Its very strange and I'm sure there it is something 
stupid that I have done.  I'm trying to strip down the application and build 
it up again, and when I get to a dead end I'll try to supply some code 
snippets.

Basically I have a server thread and client thread, with an input Q which 
signals the client thread when something is in the Q to send.  The server 
creates the UDP server like this, and the onread event follows:

    // create client UDP component, set remote connection settings
    IdUDPServer = new TIdUDPServer(NULL);
    IdUDPServer->ThreadedEvent = true;
    IdUDPServer->OnUDPRead = IdUDPServerUDPRead;
    IdUDPServer->DefaultPort = host_port;
    ....

void __fastcall CUDPServerTask::IdUDPServerUDPRead(TObject *Sender,TStream 
*AData,TIdSocketHandle *ABinding)
{
    try
    {
        int BufSize = AData->Size;
        int BufIndx = 0;
        char * Buf = new char[BufSize];
        bool result = false;

        while (BufSize > 0)
        {
            int iRead = AData->Read( &Buf[BufIndx], BufSize );

            if( iRead > 0 )
            {
                // success
                BufIndx += iRead;
                BufSize -= iRead;
                result = true;
            }
            else
            {
                // fail
                BufSize = 0;
            }
        }

        // if bytes to read, and all collected
        if (result)
        {
            // On read - process data
        }

        // delete buf
        delete [] Buf;
    }
    catch(const Exception &)
    {
        ;
    }
}


The client thread has this:

    // create client UDP component, set remote connection settings
    IdUDPClient = new TIdUDPClient(NULL);
    IdUDPClient->Host = host_name;
    IdUDPClient->Port = host_port;
    IdUDPClient->ReceiveTimeout = 100;
    ....
                try
                {
                    Trace( true, "CUDPClientTask::About to send\r\n" );
                    IdUDPClient->SendBuffer( ptr->Udata, ptr->Ulength );
                    Trace( true, "CUDPClientTask::Msg sent - On 
Write\r\n" );
                }
                catch (...)
                {
                    Trace( true, "CUDPClientTask::Send Exception 
Raised\r\n" );
                }