🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:417aafcf$1@newsgroups.borland.com...

> What exactly are you trying to accomplish in the first place?  Please show
> an actual example.

Ok, I'm trying to allow both the OnExecute thread from TIdTCPServer, and 
another thread that I created, to have access to a client's AThread 
instance. The code below shows how I'm trying to do this, but I've taken a 
lot of stuff out (like try/catch blocks etc).

TForm1::TCPServerConnect(TIdPeerThread *AThread)
{
    CritSect->Enter();
    TClientInfo* Client = new TClientInfo();
    Client->IP = AThread->Connection->Socket->Binding->PeerIP;
    Client->Name = GStack->WSGetHostByAddr(Client->IP);
    Client->pAThread = AThread;
    // ... etc, etc.
    ListOfClients->Add(Client);
    CritSect->Leave();
}

TForm1::TCPServerExecute(TIdPeerThread *AThread)
{
    AnsiString sRaw = 
AThread->Connection->ReadLn("END",IdTimeoutInfinite,100);
    AnsiString sCmd = Decrypt(sRaw);

    // do something with sCmd here (will involve writing back to AThread
    // with AThread->Connection->Write)
}

void __fastcall ControlThread::Execute()
{
    Sleep(5000);
    CritSect->Enter();
    for (int iter = 0 ; iter != ListOfClients->Count ; iter++) {
        TClientInfo* Client = (TClientInfo*)ListOfClients->Items[iter];
        Client->pAThread->Connection->Write("Ping!");
    };
    CritSect->Leave();
}

TClientInfo is a class that holds information about each client.

In this example, ControlThread is sending "Ping!" to each client. In my 
actual program it's being used to do more than that, but I'm just showing it 
like this for simplicity.

I also realise I could use a TThreadList to store the TClientInfos instead 
of TList.

From reading previous posts, the problem is that AThread is not threadsafe, 
which means that TCPServerExecute can't sit there waiting for the string 
"END" while ControlThread::Execute is using the AThread to send "Ping!"

So how can I get these things to work together?

Thanks again for your advice and persistence,

- James