🚀 go-pugleaf

"Willie" <Willie.nospam@nospam.pchome.com.tw> wrote in message
news:418f1c70$1@newsgroups.borland.com...

> How can I update my Image?
<snip>
> How can I modify the code to work fine?

Try something like this code:

    class TUpdateImage : public TIdSync
    {
    private:
        TPicture* FPicture;
        TJPEGImage* FJpg;
    protected:
        __fastcall TUpdateImage(TIdPeerThread* AThread, TStream* ASrcStream,
TPicture* ADestPicture);
        void __fastcall DoSynchronize();
    public:
        __fastcall ~TUpdateImage();
        static void __fastcall Update(TIdPeerThread* AThread, TPicture*
APicture);
    };

    __fastcall TUpdateImage::TUpdateImage(TIdPeerThread* AThread, TStream*
ASrcStream, TPicture* ADestPicture)
        : TIdSync(AThread), FPicture(ADestPicture)
    {
        FJpg = new TJPEGImage;
        FJpg->LoadFromStream(ASrcStream);
        FJpg->CompressionQuality = 100;
    }

    __fastcall TUpdateImage::~TUpdateImage()
    {
        delete FJpg;
    }

    void __fastcall TUpdateImage::Update(TIdPeerThread* AThread, TPicture*
APicture);
    {
        TMemoryStream* TempStream = new TMemoryStream;
        try
        {
            AThread->Connection->ReadStream(AStream, -1, false);
            TempStream->Position = 0;

            TUpdateImage* U = new TUpdateImage(AThread, TempStream,
APicture);
            try {
                U->Synchronize();
            }
            __finally {
                delete U;
            }
        }
        __finally {
            delete TempStream;
         }
    }

    void __fastcall TUpdateImage::DoSynchronize()
    {
        FPicture->Assign(FJpg);
    }


    void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
    {
        AnsiString szCommand = AThread->Connection->ReadLn();
        if( szCommand=="UPDATE_IMAGE" )
            TUpdateImage::Update(AThread, Image1->Picture);
    }


Gambit