• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Mplayer - Control hữu ích để xem Media

Bộ sưu tập các thư viện hỗ trợ sẳn cho Visual Basic .NET và C#

Điều hành viên: tungcan5diop, QUANITGROBEST

Nội qui chuyên mục
1. Gửi bài viết tại đây, Tester sẽ chuyển vào trong nếu bài viết đạt yêu cầu.
2. Gửi bài theo mẫu qui định: viewtopic.php?f=2&t=5
[ten][/ten]
[loai][/loai]
[ngonngu][/ngonngu]
[tacgia][/tacgia]
[chucnang][/chucnang]
[end][/end]
Hình đại diện của người dùng
khoaakt
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 75
Ngày tham gia: T.Ba 19/06/2012 6:30 pm
Đến từ: http://việtnam.vn/Kontum/Trường/THPT Chuyên Nguyễn Tất Thành.htm
Has thanked: 8 time
Been thanked: 7 time
Liên hệ:

Mplayer - Control hữu ích để xem Media

Gửi bàigửi bởi khoaakt » CN 08/12/2013 12:16 pm

Tên: Mplayer - Control hữu ích để xem Media
Loại: Không phải dll, ocx mà là exe :D
Ngôn ngữ lập trình: VB.NET
Tác giả: Sưu tầm
Chức năng: Xem file Media


Chào các bạn, lâu rồi mình chưa lên clbvb. Vào đề luôn nha mình xin giới thiệu mplayer control dùng để xem file media(hỗ trợ hầu hết các định dạng).
Trước tiên tải file mplayer ở trang chủ rồi giải nén lấy file mplayer.exe đặt vào thư mục chứa phần mềm bạn đang tạo:http://oss.netfarm.it/mplayer-win32.php
+ Đầu tiên thêm vào form 1 picturebox và thêm vào sự kiện Load:
  1.     Dim args, file As String
  2.     Dim ps As Process = Nothing
  3.         ps = New Process()
  4.         ps.StartInfo.ErrorDialog = True
  5.         ps.StartInfo.UseShellExecute = False
  6.         ps.StartInfo.RedirectStandardInput = True
  7.         ps.StartInfo.RedirectStandardOutput = True '
  8.         ps.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
  9.         ps.StartInfo.FileName = "mplayer.exe"
  10.         ps.StartInfo.CreateNoWindow = True
  11.         args = "-nofs -noquiet -identify -slave "
  12.         args += "-nomouseinput -sub-fuzziness 1 "
  13.         args += " -vo direct3d, -ao dsound -wid "
  14.         Dim id As String = CInt(PictureBox1.Handle.ToInt32)
  15.         args += id
  16.  

+ Tạo nút open file:
  1.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  2.             Try
  3.                 ps.Kill()
  4.             Catch
  5.             End Try
  6.             file = OpenFileDialog1.FileName
  7.             ps.StartInfo.Arguments = args & " """ & file & """"
  8.             ps.Start()
  9.         End If

- Ấn F5 rồi thưởng thức nha! :-? :-? :-?
- Các bác có thể thêm các nút play, stop, pause, với volume nữa
+ Thêm cái này vào:
  1.     Protected Friend Function SendCommand(ByVal cmd As String) As Boolean
  2.         Try
  3.             If ps IsNot Nothing AndAlso ps.HasExited = False Then
  4.                 ps.StandardInput.Write(cmd & vbLf)
  5.                 Return True
  6.             Else
  7.                 Return False
  8.             End If
  9.         Catch
  10.             Return False
  11.         End Try
  12.     End Function

+ Nút Stop
  1.         Try
  2.             ps.Kill()
  3.         Catch
  4.         End Try

+ Nút Pause
  1.             SendCommand("pause")

+ Trackbar Volume:
  1.        SendCommand("set_property volume " & TrackBar1.Value)

Có gì nghiên cứu thêm nha!
Chúc thành công! :-bd :-bd :-bd
Sửa lần cuối bởi khoaakt vào ngày T.Hai 31/03/2014 6:09 pm với 1 lần sửa.



Hình đại diện của người dùng
HaiVB6
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 375
Ngày tham gia: T.Hai 03/02/2014 10:23 pm
Đến từ: [Gia Đông] - [Thuận Thành] - [Bắc Ninh]
Has thanked: 5 time
Been thanked: 14 time
Liên hệ:

Re: Mplayer - Control hữu ích để xem Media

Gửi bàigửi bởi HaiVB6 » T.Ba 18/03/2014 11:27 am

link die rồi

Hình đại diện của người dùng
khoaakt
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 75
Ngày tham gia: T.Ba 19/06/2012 6:30 pm
Đến từ: http://việtnam.vn/Kontum/Trường/THPT Chuyên Nguyễn Tất Thành.htm
Has thanked: 8 time
Been thanked: 7 time
Liên hệ:

Re: Mplayer - Control hữu ích để xem Media

Gửi bàigửi bởi khoaakt » T.Hai 31/03/2014 6:08 pm

Cảm ơn bạn đã thông báo
PS: Sửa link!


Quay về “[.NET] Module, Class, UserControl, DLL”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách