FreeBasic
Главная
Вход
Регистрация
Среда, 07.12.2022, 20:58Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Простой аудио-видео плеер (Простой аудио-видео плеер)
Простой аудио-видео плеер
haavДата: Понедельник, 02.07.2012, 07:54 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Простой аудио-видео плеер




При своих ~20 строчках, этот проигрыватель умеет воспроизводить аудио и видео, открывать диалоговое окно для выбора файлов, изменять громкость, скорость , изменять размер видеоокна, и пр.
Естественно это жутко ограниченная вещь как в плане форматов, так и в плане гибкости. Но думается и не следует ожидать от такого плеера большего biggrin
Может пригодиться для каких диалоговых окон по настройке звука в своей программе.

Code

#Include "windows.bi"
#Include "win/vfw.bi"

Dim msg As MSG  
Dim Shared As Integer oldproc

Function wndproc(hwnd As HWND, msg As Uinteger,_
    wparam As WPARAM, lparam As LPARAM) As Integer
     Select Case msg
         Case WM_DESTROY
             PostQuitMessage(0)
     End Select
     Return CallWindowProc(Cast(wndproc,oldproc),hwnd,msg,wparam,lparam)
End Function

Var hwnd = MCIWndCreate(NULL, 0,MCIWNDF_SHOWNAME or MCIWNDF_SHOWMODE Or _
             WS_OVERLAPPEDWINDOW Or WS_VISIBLE, NULL)
oldproc=SetWindowLong(hwnd,GWL_WNDPROC,Cast(Long,@wndproc))

While GetMessage(@msg,0,0,0)
     TranslateMessage(@msg)
     DispatchMessage(@msg)
Wend
Прикрепления: 1846730.png(30.3 Kb)


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Простой аудио-видео плеер (Простой аудио-видео плеер)
  • Страница 1 из 1
  • 1
Поиск: