🚀 go-pugleaf

Hi,

I've got some strange problem with the Indy components from Builder 6.
I'm got two little application.
1. Server Manager
2. Server(s)

The Manager will Broadcast a UDP Message to tell the server(s) to report in. The 
Server will answer the broadcast with a UDP Message directed to the IP of the 
Manager. Looking at a network monitor, indeed the Manager sends out a UDP 
Broadcast and the server answers this with it's own UDP Message.. Strangely, mu 
IdUDPServerRead triggers 3 times...

Does anyone know why?



Manager:
=========

(Broadcast part)
---
// Broadcast to PMS Agents
IdUDPServer->Broadcast("PMSAgent:00", agentPort);

(Receive event)
---

void __fastcall TTFormMain::IdUDPServerUDPRead(TObject *Sender, TStream *AData, 
TIdSocketHandle *ABinding)
{
        // Read data
        String myData = ReadStringFromStream(AData);
        ShowMessage(myData)
}


String __fastcall TTFormMain::ReadStringFromStream(TStream *Stream)
{
        // Create temperary buffer and Read the Stream
        char *lpszInBuffer = new char[Stream->Size + 1];
        Stream->ReadBuffer(lpszInBuffer, Stream->Size );

        // Set a 0nul terminator after the last received char
        lpszInBuffer[Stream->Size] = 0;

        // Assign temperary buffer to String and delete temperary buffer
        String myString = lpszInBuffer;
        delete lpszInBuffer;

        // Return AnsiString
        return myString;
}


Server
========

void __fastcall TUDPListener::myUDPRead(TObject *Sender, TStream *AData, 
TIdSocketHandle *ABinding)
{
        // Get Text
        String myText = ReadStringFromStream(AData);

        // Check if the received String contains text
        if (myText != "" && myText.SubString(0,9) == "PMSAgent:" )
        {
                // Init vars
                int myCommand = myText.SubString(10, 
myText.Length() ).ToIntDef(-1);

                // If the command turned out to be >= 0; update log
                if (myCommand != -1)
                {
                        logID = myCommand;
                        logMessage = "Command " + IntToStr(myCommand) + " 
received through UDP from: " + ABinding->PeerIP + ":"  + ABinding->PeerPort;
                        Synchronize( HandleThreadLogging );
                }

                // Check for "Report In" (00)
                if (myCommand == 00)
                        // Tell the manager we're here and ready to receive a 
connection on TCP level.
                        myUDPServer->Send(ABinding->PeerIP, ABinding->PeerPort, 
"PMSAgent:50");
        }
}
//---------------------------------------------------------------------------