🚀 go-pugleaf

"Andy Blackmore" <andy@number18.co.uk> wrote in message
news:425669ba@newsgroups.borland.com...

> But I found that the variable listed here (Count) is global to all
threads.

Yes.

> But I don't know how I link this new class into the IdTCPServer component.

You need to assign the server's ThreadClass propety before activating the
server, such as in the form's constructor.

    __fastcall TFArt::TFArt(TComponent *Owner)
        : TForm(Owner)
    {
        IdTCPServer1->ThreadClass = __classid(TMyIdThread);
    }

Then you can cast the TIdPeerThread pointer in your event handler:

    void __fastcall TFArt::IdTCPServer1Execute(TIdPeerThread *AThread)
    {
        //...
        static_cast<TMyIdThread*>(AThread)->Count++;
        //...
    }

Alternatively, if the Count is the only value you want stored with each
thread, you can make use of the Thread's existing Data property instead, ie:

    void __fastcall TFArt::IdTCPServer1Connect(TIdPeerThread *AThread)
    {
        AThread->Data = NULL;
    }

    void __fastcall TFArt::IdTCPServer1Disconnect(TIdPeerThread *AThread)
    {
        // IMPORTANT TO DO SO HERE!!!  The thread owns the Data property.
        // If the property is not NULL when the thread terminates, it will
treat the
        // property value as an object and try to free it, which will crash
since we are
        // not storing actual objects in it to begin with.
        AThread->Data = NULL;
    }

    void __fastcall TFArt::IdTCPServer1Execute(TIdPeerThread *AThread)
    {
        //...
        int count = reinterpret_cast<int>(AThread->Data);
        AThread->Data = reinterpret_cast<TObject*>(++count);
        //...
    }


Gambit