盒子论坛 v2.1

在 Windows 底下做视频播放，我还是推荐 DsPack 那套控件，基于 DirectShow。

把 DirectShow 搞明白了，Windows 底下，视频随便玩，不管是文件播放还是网络直播。
----------------------------------------------
-

作者：

sxqwhxq (步惊云)	★☆☆☆☆	-
	普通会员

2020/10/12 11:46:59

5楼：

delphi手机网络视频播放是个问题，但其它开发工具很容易做到，例如android studio
----------------------------------------------
-

作者：

xuchuantao (暗黑天使)	★☆☆☆☆	-
	普通会员

2020/10/12 22:37:27

6楼：

应该是没装VLC播放器,你安装一下试试.
----------------------------------------------

作者：

szyourname (szyourname)	★☆☆☆☆	-
	盒子活跃会员

2020/10/12 23:22:28

7楼：

DsPack 也很久没有更新了的吧？
----------------------------------------------
-

作者：

pcplayer (pcplayer)	★☆☆☆☆	-
	普通会员

2020/10/13 16:04:30

8楼：

Delphi 手机网络播放视频有啥难度？

搞定网络，搞定视频解码。就行了。
----------------------------------------------
-

作者：

pcplayer (pcplayer)	★☆☆☆☆	-
	普通会员

2020/10/13 16:05:21

9楼：

7楼，Dspack 已经没有更新了。官方版本只支持到 D7。

不过我已经修改到支持新版 DELPHI 了，在 CSDN 下载上有。网上还有其它人修改的版本。
----------------------------------------------
-

作者：

jopher3 (樵夫的马六甲)	▲▲▲▲▲	-
	普通会员

2020/10/13 16:20:32

10楼：

//
// 打开时，初始化路径...
procedure TMainForm.FormCreate(Sender: TObject);
begin
  libvlc_dynamic_dll_init_with_path(extractfiledir(application.ExeName));
  if (libvlc_dynamic_dll_error <> '') then
     begin
       qbmisc.ShowError('初始化播放器出现错误：'+#13#10+libvlc_dynamic_dll_error, '错误信息');
       Application.Terminate;
       exit;
     end;
   TrayIcon.Visible:=true;
end;

//
// 播放...
procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
   if trim(combobox1.Text)='' then
      exit;
   if Player.IsPlay then
      Player.Stop();
   Player.Play(trim(combobox1.Text));
end;

//
// 暂停...
procedure TMainForm.SpeedButton2Click(Sender: TObject);
begin
   if Player.IsPlay then
      Player.Pause;
end;

//
// 继续...
procedure TMainForm.SpeedButton3Click(Sender: TObject);
begin
   if Player.IsPause then
      Player.Resume;
end;

//
// 全屏...
procedure TMainForm.SpeedButton4Click(Sender: TObject);
var
   hWnd: integer;
begin
   if Player.IsPlay then
      begin
         //
         // 保存窗口原位置...
         x:=self.Left;
         y:=self.Top;
         h:=self.Height;
         w:=self.Width;
         //
         // 隐藏资源栏、播放面板栏...
         Panel1.visible:=false;
         Panel2.visible:=false;
         //
         // 隐藏任务栏...
         IsAutoHide:=IsTaskbarAutoHideOn();
         if not IsAutoHide then
          begin
          hWnd := FindWindow('Shell_TrayWnd',nil);
          ShowWindow(hWnd,SW_HIDE);
          application.ProcessMessages;
          end;
         //
         // 设置窗口最大化、置前...
         self.Top:=0;
         Self.Height:=screen.Height;
         self.left:=0;
         Self.Width:=screen.Width;
         //
         // 隐藏边框、置前...
         Self.FormStyle:=fsStayOnTop;
         Self.BorderStyle:=bsNone;
      end;
end;

//
// 双击恢复...
procedure TMainForm.PlayerDblClick(Sender: TObject);
var
   hWnd: integer;
begin
   if Player.IsPlay and (Self.FormStyle=fsStayOnTop) then
      begin
         //
         // 恢复任务栏...
         if not IsAutoHide then
          begin
          hWnd := FindWindow('Shell_TrayWnd',nil);
          ShowWindow(hWnd,SW_SHOW);
          application.ProcessMessages;
          end;
         //
         // 恢复窗口大小、位置...
         self.Top:=y;
         self.Left:=x;
         self.Height:=h;
         self.Width:=w;
         //
         // 恢复资源栏、播放控制面板...
         Panel1.visible:=true;
         Panel2.visible:=true;
         //
         // 窗口置为普通、恢复边框...
         Self.BorderStyle:=bsSizeable;
         Self.FormStyle:=fsNormal;
      end;
end;

//
// 长度改变时...
procedure TMainForm.PlayerMediaPlayerLengthChanged(Sender: TObject;  time: Int64);
var
   Seconds: integer;
   h,m,s: integer;
begin
   Seconds:=Time div 1000;
   TrackBar1.Max:=Seconds;
   h:=Seconds div (60*60);
   m:=(Seconds-h*60*60) div 60;
   s:=Seconds-h*60*60-m*60;
   label3.Caption:=formatfloat('00.',h)+':'+formatfloat('00.',m)+':'+formatfloat('00.',s);
end;

//
// 时间改变时...
procedure TMainForm.PlayerMediaPlayerTimeChanged(Sender: TObject; time: Int64);
var
   Seconds: integer;
   h,m,s: integer;
begin
   Seconds:=Time div 1000;
   TrackBar1.Position:=Seconds;
   h:=Seconds div (60*60);
   m:=(Seconds-h*60*60) div 60;
   s:=Seconds-h*60*60-m*60;
   label2.Caption:=formatfloat('00.',h)+':'+formatfloat('00.',m)+':'+formatfloat('00.',s);
end;

此帖子包含附件:

大小:348.0K

----------------------------------------------
樵夫的大马甲

作者：

cnbcadmin (cnbcadmin)	★☆☆☆☆	-
	普通会员

2020/10/14 8:47:22

11楼：

谢谢大家！！！！！
----------------------------------------------
-

作者：

nihg (研砉)	★☆☆☆☆	-
	普通会员

2021/1/28 11:15:12

12楼：

太谢谢了
libvlc_dynamic_dll_init_with_path(extractfiledir(application.ExeName));
----------------------------------------------
我爱呆儿飞

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2021/1/28 12:53:25

13楼：

楼上的在播放黑衣人吗
----------------------------------------------
-

信息

登陆以后才能回复