🚀 go-pugleaf

"Bashar T" <bashar-t@scs-net.org> wrote in message 
news:48284026$1@newsgroups.borland.com...

> How can I show my string in a lable by using TCPServer?

    class TLabelSync : public TIdSync
    {
    private:
        TLabel *FLabel;
        AnsiString FText;

    protected
        void __fastcall DoSynchronize()
        {
            FLabel->Caption = FText;
        }

    public:
        TLabelSync(TLabel *ALabel, const AnsiString &AText)
            : TIdSync(), FLabel(ALabel), FText(AText)
        {
        }

        static void __fastcall Update(TLabel *ALabel, const AnsiString 
&AText)
        {
            TLabelSync *sync = new TLabelSync(ALabel, AText);
            try {
                sync->Synchronize();
            }
            __finally {
                delete sync;
            }
        }
    };

    void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
    {
        AnsiString Line = AThread->Connection->ReadLn();
        TLabelSync::Update(Label1, Line);
    }


Alternatively:

    class TLabelNotify : public TIdNotify
    {
    private:
        TLabel *FLabel;
        AnsiString FText;

    protected
        void __fastcall DoNotify()
        {
            FLabel->Caption = FText;
        }

    public:
        TLabelNotify(TLabel *ALabel, const AnsiString &AText)
            : TIdNotify(), FLabel(ALabel), FText(AText)
        {
        }

        static void __fastcall Update(TLabel *ALabel, const AnsiString 
&AText)
        {
            TLabelNotify *notif = new TLabelNotify(ALabel, AText);
            try {
                sync->Notify();
            }
            catch(const Exception &)
            {
                delete notif;
                throw;
            }
        }
    };

    void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
    {
        AnsiString Line = AThread->Connection->ReadLn();
        TLabelNotify::Update(Label1, Line);
    }


Gambit