做一個自己的網絡在線播放器
發表時間:2024-06-15 來源:明輝站整理相關軟件相關文章人氣:
[摘要]新建一個Delphi應用程序,然后在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中,命名為RealAudio1,出現一個簡化的RealPlayer界面。但它只有控制界面,沒有視頻圖像界面。這不要緊,在RealPlayer組件的Controls屬性中加入“ImageWindow...
新建一個Delphi應用程序,然后在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中,命名為RealAudio1,出現一個簡化的RealPlayer界面。但它只有控制界面,沒有視頻圖像界面。這不要緊,在RealPlayer組件的Controls屬性中加入“ImageWindow”,然后點擊下面的窗口,視頻圖像開始出現,在“ImageWindow”后接著添加“ControlPanel”屬性值(用逗號分開)。這樣控制界面出現,還可以在后面繼續添加“Statuabar”值,出現狀態條。
將RealPlayer組件拉動到適當大小,在窗口中添加一命令按鈕并命名為Play。然后在按鈕的單擊事件中添加以下代碼:
procedure TForm1.Button1Click(Sender: TObject);
begin
RealAudio1.source=' c:\A.rm' ; //播放的電影源。
RealAudio1.doplay; //開始播放電影
end;
新建一個Delphi應用程序,然后在窗口中把組件欄ActiveX項中的RealPlayer組件拉入窗口中,命名為RealAudio1,出現一個簡化的RealPlayer界面。但它只有控制界面,沒有視頻圖像界面。這不要緊,在RealPlayer組件的Controls屬性中加入“ImageWindow”,然后點擊下面的窗口,視頻圖像開始出現,在“ImageWindow”后接著添加“ControlPanel”屬性值(用逗號分開)。這樣控制界面出現,還可以在后面繼續添加“Statuabar”值,出現狀態條。
將RealPlayer組件拉動到適當大小,在窗口中添加一命令按鈕并命名為Play。然后在按鈕的單擊事件中添加以下代碼:
procedure TForm1.Button1Click(Sender: TObject);
begin
RealAudio1.source=' c:\A.rm' ; //播放的電影源。
RealAudio1.doplay; //開始播放電影
end;
它還擁有許多屬性和方法,諸位大俠可以自由發揮想像力,設計一個更加完善的播放器!