🚀 go-pugleaf

"Bashar Termanini" <bashar-t@scs-net.org> wrote in message
news:473e9511@newsgroups.borland.com...

> Please show me a simple code how to send a TStringList
> from TIdTCPServer to the client.

    class TGetListBoxItemsSync : public TIdSync
    {
    protected:
        TListBox *fListBox;
        TStrings *fItems;
        virtual void __fastcall DoSynchronize();

    public:
        __fastcall TGetListBoxItemsSync(TListBox *ListBox, TStrings *Items);
        static void __fastcall GetItems(TListBox *ListBox, TStrings *Items);
    };

    __fastcall TGetListBoxItemsSync::TGetListBoxItemsSync(TListBox *ListBox,
TStrings *Items)
        : TIdSync()
    {
        fListBox = ListBox;
        fItems = Items;
    }

    void __fastcall TGetListBoxItemsSync::DoSynchronize()
    {
        fItems->Assign(fListBox->Items);
    }

    void __fastcall TGetListBoxItemsSync::GetItems(TListBox *ListBox,
TStrings *Items)
    {
        TGetListBoxItemsSync *Sync = new TGetListBoxItemsSync(ListBox,
Items);
        try
        {
            Sync->Synchronize();
        }
        __finally
        {
            delete Sync;
        }
    }

    void __fastcall TForm1::IdTCPServer1Execute(TIdContext *AContext)
    {
        //...
        TStringList *Items = new TStringList;
        try
        {
            TGetListBoxItemsSync::GetItems(ListBox1, Items);
            AContext->Connection->IOHandler->Write(Items, true);
        }
        __finally
        {
            delete Items;
        }
        //...
    }


Gambit