各位大大您好： 這是延續之前做的程式所存在的問題，在 client 端的畫面會有閃動的情況發生，如果 timer 設得更小 (100) ，閃動的情況會更嚴重，不知有什麼方法能改善這種情形    以下是程式碼 謝謝各位大大 < class="code"> // server端 void __fastcall TForm1::Timer1Timer(TObject *Sender) { Graphics::TBitmap *bmpBuf; HDC hdc; int x,y; HCURSOR hCur; ICONINFO IconInfo; POINT pt; hdc=::GetDC(0); x=Screen->Width; y=Screen->Height; bmpBuf=new Graphics::TBitmap; bmpBuf->Handle=::CreateCompatibleBitmap(hdc, x, y); ::BitBlt(bmpBuf->Canvas->Handle, 0, 0, bmpBuf->Width, bmpBuf->Height, hdc, 0, 0, SRCCOPY); hCur=GetCursor(); IconInfo.fIcon=FALSE; GetIconInfo(hCur, &IconInfo); GetCursorPos(&pt); pt.x-=IconInfo.xHotspot; pt.y-=IconInfo.yHotspot; DrawIcon(bmpBuf->Canvas->Handle, pt.x, pt.y, hCur); //轉成jpg的格式 TJPEGImage *jpg = new TJPEGImage(); jpg->PixelFormat = jf8Bit; jpg->CompressionQuality = 10; jpg->Assign((TPersistent*)bmpBuf); delete bmpBuf; jpg->Compress(); TMemoryStream *msBuf=new TMemoryStream; jpg->SaveToStream(msBuf); msBuf->Position=0; NMStrm1->Host = "10.20.8.111"; NMStrm1->FromName = "10.20.8.111"; NMStrm1->PostIt(msBuf); //NMStrm1->Disconnect(); msBuf->Clear(); delete jpg; delete msBuf; } //----------------------------------------------------- client端 //--------------------------------------------------------------------------- void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender, const AnsiString sFrom, TStream *strm) { char *buffer = new char[strm->Size 1]; strm->ReadBuffer(buffer,strm->Size); TMemoryStream *ms=new TMemoryStream; ms->Write(buffer,strm->Size 1); ms->Position=0; TJPEGImage *jpg = new TJPEGImage () ; jpg->LoadFromStream(ms) ; Image1->Picture->Bitmap->Assign(jpg); delete jpg ; Refresh(); ms->Clear(); } //-----------------------------------------------------

引言: 各位大大您好： 這是延續之前做的程式所存在的問題，在 client 端的畫面會有閃動的情況發生，如果 timer 設得更小 (100) ，閃動的情況會更嚴重，不知有什麼方法能改善這種情形 以下是程式碼 謝謝各位大大 < class="code"> // server端 void __fastcall TForm1::Timer1Timer(TObject *Sender) { Graphics::TBitmap *bmpBuf; HDC hdc; int x,y; HCURSOR hCur; ICONINFO IconInfo; POINT pt; hdc=::GetDC(0); x=Screen->Width; y=Screen->Height; bmpBuf=new Graphics::TBitmap; bmpBuf->Handle=::CreateCompatibleBitmap(hdc, x, y); ::BitBlt(bmpBuf->Canvas->Handle, 0, 0, bmpBuf->Width, bmpBuf->Height, hdc, 0, 0, SRCCOPY); hCur=GetCursor(); IconInfo.fIcon=FALSE; GetIconInfo(hCur, &IconInfo); GetCursorPos(&pt); pt.x-=IconInfo.xHotspot; pt.y-=IconInfo.yHotspot; DrawIcon(bmpBuf->Canvas->Handle, pt.x, pt.y, hCur); //轉成jpg的格式 TJPEGImage *jpg = new TJPEGImage(); jpg->PixelFormat = jf8Bit; jpg->CompressionQuality = 10; jpg->Assign((TPersistent*)bmpBuf); delete bmpBuf; jpg->Compress(); TMemoryStream *msBuf=new TMemoryStream; jpg->SaveToStream(msBuf); msBuf->Position=0; NMStrm1->Host = "10.20.8.111"; NMStrm1->FromName = "10.20.8.111"; NMStrm1->PostIt(msBuf); //NMStrm1->Disconnect(); msBuf->Clear(); delete jpg; delete msBuf; } //----------------------------------------------------- client端 //--------------------------------------------------------------------------- void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender, const AnsiString sFrom, TStream *strm) { char *buffer = new char[strm->Size 1]; strm->ReadBuffer(buffer,strm->Size); TMemoryStream *ms=new TMemoryStream; ms->Write(buffer,strm->Size 1); ms->Position=0; TJPEGImage *jpg = new TJPEGImage () ; jpg->LoadFromStream(ms) ; Image1->Picture->Bitmap->Assign(jpg); delete jpg ; Refresh(); ms->Clear(); } //-----------------------------------------------------

jacky_chan 你好: 試試~~如果你的 Image1 是貼在 Form1 上的話，請加入以下這一行程式碼 Form1->DoubleBuffered=true; 如果你的 Image1 是貼在 Panel1 上的話，請加入以下這一行程式碼 Panel1->DoubleBuffered=true; -- Enjoy Researching & Developing --

感謝 RaynorPao 大大的回應，真是"快狠準"啊，一針見血