🚀 go-pugleaf

Thanks for that info, that's just what I was looking for

IdTCPServer1->ThreadClass = __classid(TMyIdThread);

Andy


"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:4256bffa@newsgroups.borland.com...
>
> "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
>
>