MediaPlayer顯示於Panel1為何不見第一張影像? |
|
jasbeing
一般會員 發表:6 回覆:19 積分:5 註冊:2002-08-09 發送簡訊給我 |
程式碼如下:
以所有系統中有的clock.avi測試, MediaPlayer顯示於Panel1為何不見第一張影像,又該如何解決? <textarea class="BCB" rows="10" cols="60" name="code"> MediaPlayer1->FileName="C:\\clock.avi"; MediaPlayer1->Open(); MediaPlayer1->Display = Panel1; MediaPlayer1->Play();</textarea> 謝謝。 |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
jasbeing
一般會員 發表:6 回覆:19 積分:5 註冊:2002-08-09 發送簡訊給我 |
|
n890377
一般會員 發表:17 回覆:16 積分:21 註冊:2006-07-13 發送簡訊給我 |
Panel不能顯示avi的畫面嗎???
試試看以下code: <textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::Button3Click(TObject *Sender) { if(OpenDialog1->Execute()) { MediaPlayer1->FileName = OpenDialog1->FileName; } //MediaPlayer1->Frames = FramesJump->Position; MediaPlayer1->Open(); ScrollBar1->Enabled = true; ScrollBar1->SetFocus(); ScrollBar1->Max = MediaPlayer1->Length; MediaPlayer1->Frames = 1; MediaPlayer1->Display = Panel3; //Set display device to a TPanel } void __fastcall TForm1::MediaPlayer1Click(TObject *Sender, TMPBtnType Button, bool &DoDefault) { //MediaPlayer1->Frames = 100; switch (Button) { case btPlay: Timer3->Interval = 5; Timer3->Enabled = true; break; case btPause: Timer3->Enabled = false; break; } } void __fastcall TForm1::Timer3Timer(TObject *Sender) { Graphics::TBitmap *Bmp= new Graphics::TBitmap;; TCanvas *MyCanvas= new TCanvas;; HDC dc = GetDC(Panel3->Handle); TRect rect = Panel3->ClientRect; MyCanvas->Handle = dc; Bmp->Width = rect.Right - rect.Left; Bmp->Height = rect.Bottom - rect.Top; Bmp->Canvas->CopyRect(rect,MyCanvas,rect); Bmp->PixelFormat=pf24bit; Image2->Picture->Bitmap->Assign(Bmp); Form1->DoubleBuffered=true ; delete Bmp; delete MyCanvas; } </textarea>
------
. |
jasbeing
一般會員 發表:6 回覆:19 積分:5 註冊:2002-08-09 發送簡訊給我 |
|
jasbeing
一般會員 發表:6 回覆:19 積分:5 註冊:2002-08-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |