Dùng API khai thác khả năng Multimedia

Hình 9.5 Thiết kế biểu mẫu
Nếu không thấy điều khiển ProgressBar trên hộp công cụ, từ menu Project, chọn Components, chọn vào hộp đánh dấu “Microsoft Windows Common Controls 6.0 ”.

3. 
   Mở cửa sổ Properties của điều khiển Timer, đổi thuộc tính Enabled thành False, và Interval là 500. Xoá Caption của điều khiển nhãn.
   
4. 
   Nhấn đúp chuột lên nút lệnh để mở sự kiện Click:
   

Private Sub Command1_Click()

...

...

Multimedia.Wait = False

Multimedia.mmOpen CommonDialog1.Filename

ProgressBar1.Value = 0

ProgressBar1.Max = Multimedia.Length

Timer1.Enabled = True

Multimedia.mmPlay

End If
End Sub

5. 
   Trở về biểu mẫu, nhấn đúp chuột lên điều khiển Timer1 để mở sự kiện Timer.
   

ProgressBar1.Value = Multimedia.Position

Label1 = "Status: " & Multimedia.Status

If ProgressBar1.Value = ProgressBar1.Max Then

Multimedia.mmClose

Timer1.Enabled = False

End If

End Sub
Có một vấn đề nhỏ. Ta đã định nghĩa biến chỉ đến instance của lớp MMedia trong hàm sự kiện command1_Click(). Bây giờ chúng ta lại muốn chỉ đến nó từ trong Timer1_Timer().

6. 
   Trong sự kiện Click của nút lệnh, chọn dòng khao báo biến Mutilmedia, nhấn phím Ctrl-X để cắt nó vào Clipboard và xoá nó khỏi sự kiện Command1_Click. Sau đó, chọn vào danh sách (General) trong cửa sổ Code, nhấn phím Ctrl –V để dán nó vào vùng General Declarations. Biến khai báo đặt trong vùng này sẽ là biến toàn cục đối với biểu mẫu này.
   
7. 
   Thi hành chương trình. Nhấn nút “Load and Play a file”, và chọn một tậptin AVI, ví dụ tập tin video “Welcome to windows 95”.
   
8. 
   Ta sẽ thấy thanh diễn tiến cho thấy bao nhiêu phần trăm của tập tin đang chơi. Khi video kết thúc ta thấy kết quả hiển thị: Stopped.
   

Khi ta mới nhấn nút lệnh, chương trình thiết lập các khởi tạo cho thuộc tính trước khi chơi tập tin:

If CommonDialog1.Filename <> "" Then

Multimedia.Wait = False

Multimedia.mmOpen CommonDialog1.Filename

ProgressBar1.Value = 0

ProgressBar1.Max = Multimedia.Length

Timer1.Enabled = True

Multimedia.mmPlay

End If
Đối tượng multimedia có thuôc tính tên là Wait. Thuộc tính này quyết định chương trình có tiếp tục thi hành (đa nhiệm) trong khi chơi tập tin, hay phải dừng và chờ đến đến khi nó hoàn tất. Phương thức mmPlay theo dõi giá trị của biến bWait. Nếu biến này có giá trị True, nó thêm Wait vào lệnh gọi mciSendString:

Dim nReturn As Long

If sAlias = "" Then Exit Sub

If bWait Then

nReturn = mciSendString("Play " & _

sAlias & " wait", "", 0, 0)

Else

nReturn = mciSendString("Play " & sAlias, "", 0, 0)

End Sub

' Routine to return the value of the object's wait property.

Wait = bWait

End Property

' Routine to set the value of the object's wait property

bWait = bWaitValue

End Property

8.4.1.4.1Mở tập tin

Dim nReturn As Long

Dim sType As String

If sAlias <> "" Then

mmClose

End If
Select Case UCase$(Right$(sTheFile, 3))

sType = "Waveaudio"

Case "AVI"

sType = "AviVideo"

Case "MID"

sType = "Sequencer"

Case Else

Exit Sub

sAlias = Right$(sTheFile, 3) & Minute(Now)

If InStr(sTheFile, " ") Then

sTheFile = Chr(34) & sTheFile & Chr(34)

End if

nReturn =mciSendString("Open " & sTheFile _

End Sub
Trước hết, hàm mmOpen kiểm tra biến ở mức module gọi là sAlias.

mmClose

Cấu trúc Select Case kiểm tra từng loại tập tin.

Lệnh wait cho phép chương trình tiếp tuch chạy cho đến khi nạp thành công. Nếu không có wait, trên một máy nhanh với đĩa cứng chậm, có thể có vấn đề. Ta có thể cố chơi tập tin trước khi nó được nạp xong, đơn giản bởi vì chương trình chạy nhanh hơn đĩa cứng. Lưu ý rằng nó không giống thuộc tính Wait trước đây để điều khiển chương trình tiếp tục chạy khi tập tin đang chơi chứ không phải đang nạp.

8.4.1.4.2Lấy chiều dài tập tin

Property Get Length() As Single

Dim nReturn As Long, nLength As Integer

Dim sLength As String * 255

Length = 0

Exit Property

End If
nReturn = mciSendString("Status " & sAlias _

& length", Length, 255, 0)

nLength = InStr(sLength, Chr$(0))

Length = Val(Left$(sLength, nLength - 1))

End Property

Trước hết sAlias được kiểm tra xem tập tin có đang mở hay không ? Nếu chưa mở, giá trị trả về từ thủ tục thuộc tính là 0. Nếu tập tin mở rồi, lệnh Status Length của MCI được dùng.

Ta không lo về cách tính chiều dài tập tin, vì đơn vị đo phù hợp với thanh diễn tiến.

Lệnh Status là lệnh MCI đặc biệt, có thể kết nối với các từ khoá như Length, Position, Mode để xác định các thông tin về tập tin hiện hành. Nó trả về các thông tin này trong một chuỗi ký tự có chiều dài nhất định được truyền vào mciSendString. Trong ví dụ này chuỗi trả về là sLength và dài 255 ký tự.

Dĩ nhiên, nó không luôn chứa 255 ký tự trả về từ lệnh Status. Dùng hàm InStr để cắt bỏ các ký tự 0 lấp đầy khoảng trống.

Chiều dài chứa trong chuỗi được trích chuỗi và chuyển đổi sang kiểu số trước khi gán cho Length.

8.4.1.4.3Lấy vị trí hiện hành

Property Get Position() As Single

Dim nReturn As Integer, nLength As Integer

Dim sPosition As String * 255

nReturn = mciSendString("Status " & sAlias _

& " position", sPosition, 255, 0)

nLength = InStr(sPosition, Chr$(0))

Position = Val(Left$(sPosition, nLength - 1))

End Property

Thay vì gửi Status Length, ta gửi Status Position.

8.4.1.4.4Lấy trạng thái hiện hành

Chỉ khác là ta gửi Status Mode thay vì Status Length hay Status Position cho mciSendString. Dĩ nhiên, không cần chuyển đổi sang kiểu số:

...

nReturn = mciSendString("Status " & sAlias & _

nLength = InStr(sStatus, Chr$(0))

Status = Left$(sStatus, nLength - 1)

...

If CommonDialog1.Filename <> "" Then

Multimedia.Wait = False

Multimedia.mmOpen CommonDialog1.Filename

ProgressBar1.Value = 0

ProgressBar1.Max = Multimedia.Length

Timer1.Enabled = True

Multimedia.mmPlay

End If

8.4.1.4.5Chơi trên tập tin

Dim nReturn As Long

If sAlias = "" Then Exit Sub
If bWait Then

nReturn = mciSendString("Play " & _ sAlias & " wait", "", 0, 0)

Else

nReturn = mciSendString("Play " & _

End If

8.4.1.4.6Cập nhật thanh diễn tiến và điều khiển nhãn.

Công việc sau cùng là cập nhật thanh trạng thái và nhãn trên biểu mẫu, khi tập tin đang chơi. Trước khichơi tập tin, đặt điều khiển Timer với Interval là 500. Vậy nó sẽ kích hoạt đếm mỗi nửa giây. Khi đó, đoạn chương trình sau được thi hành:

Private Sub Timer1_Timer()

ProgressBar1.Value = Multimedia.Position

Label1 = "Status: " & Multimedia.Status

If ProgressBar1.Value = ProgressBar1.Max Then

Multimedia.mmClose

Timer1.Enabled = False

End If

End Sub

Cuối cùng cần phải ngưng lại khi đạt đến cuối tập tin. Có thể thực hiện điều này bằng cách so sánh giá trị hiện hành và giá trị Max của thanh diễn tiến. Khi chúng bằng nhau, tập tin được đóng bằng phương thức mmClose. Sau đó, cấm Timer để ngăn hàm này chạy cho đến khi mở tập tin khác.

8.4.1.4.7Tóm tắt các lệnh của MCI

Lệnh	Mô tả
Play	Chơi một tập tin
Pause	Tạm dừng chơi, sẵn sàng bắt đầu mọi lúc
Stop	Dừng hẳn - cần chuyển đến một vị trí nào đó để tiếp tục chơi
Seek	Theo sau là một con số, chuyển đến vị trí trong tập tin
Status Mode	Trả về một chuỗi ký tự thể hiện trạng thái tập tin(đang choi, đang mở, tạm dừng, dừng hẳn....)
Status Position	Trả về vị trí tập tin mà playback đã đạt đến
Status Length	Trả về chiều dài tập tin và hỗ trợ để dưa con số trả về từ Status Position vào một ngữ cảnh có ý nghĩa nào đó.
Close	Đóng tập tin và giải phóng vùng nhớ nó chiếm trước đó

Ngoài ra MCI còn hỗ trợ một số lệnh khác và một số lệnh đặc biệt cho mỗi định dạng tập tin.

Каталог: hungpn -> LaptrinhWindowsVB
LaptrinhWindowsVB -> Kiến trúc ole db/ado
LaptrinhWindowsVB -> ListView dùng để hiển thị danh sách các đối tượng theo nhiều hình thức thể hiện khác nhau. Ví dụ: trong cửa sổ Window Explorer, bên trái là danh sách các ổ đĩa và thư mục được tổ chức theo dạng cây sử dụng TreeView

tải về 1.69 Mb.

Chia sẻ với bạn bè của bạn: