🚀 go-pugleaf

Hello Remy:

Yes! Your code is working very fine now!
Thank you very very very....much.

Willie.

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> ���g��l��s�D
:418f3099$1@newsgroups.borland.com...
>
> "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
>
>