🚀 go-pugleaf

"Martin" <martin@styleworx.com> wrote in message
news:4412d582@newsgroups.borland.com...

> class TMyThreadClass
> {
> public:
>         TIdPeerThread*  pAThread;
>         int someparameter;
>         void __fastcall Process();
> protected:
> private:
> };

A better solution would be to derive a new class from TIdPeerThread itself
and then assign the server's ThreadClass property:

    class TMyThreadClass : public TIdPeerThread
    {
    public:
        __fastcall TMyThreadClass(bool ACreateSuspended = true);
        int someparameter;
        void __fastcall Process();
    };

    __fastcall TMyThreadClass(bool ACreateSuspended)
        : TIdPeerThread(ACreateSuspended), someparameter(1)
    {
    }

    void __fastcall TMyThreadClass::Process()
    {
        // Example
        Connection->WriteLn("Hello!");
    }

    __fastcall TForm1::TForm1(TComponent *Owner)
    {
        IdTCPServer1->ThreadClass = __classid(TMyThreadClass);
    }

    void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
    {
        TMyThreadClass* pMyThreadClass =
static_cast<TMyThreadClass*>(AThread);

        // read with AThread->Connection->CurrentReadBuffer()

        if( some conditions )
            pMyThreadClass->Process();
    }

> This code works fine. But i want to assign MyThreadClass to
> IdTCPServer->ThreadClass.

See above.

> You wrote in a previous thread, that this would be the better solution.

It is.

> But i gave it up due some access violations.

Then you probably weren't using it properly.


Gambit