/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Sounds.pas
26 строк
662 B
Alexander Zakharenko
Merge 'master' into 'features/patterns'
08 апр 2018, 13:42
08 апр 2018, 13:42
3f93bfa
Код
Авторство
О чём код?
unit Sounds; {$reference 'PresentationCore.dll'} procedure PlaySound(fname: string); begin var fsound := new System.Windows.Media.MediaPlayer; fsound.Open(new System.Uri(fname,System.UriKind.RelativeOrAbsolute)); fsound.Play; end; type Sound = class fsound := new System.Windows.Media.MediaPlayer; public constructor (fname: string); begin Open(fname); end; procedure Open(fname: string) := fsound.Open(new System.Uri(fname,System.UriKind.RelativeOrAbsolute)); procedure Play := fsound.Play; procedure Stop := fsound.Stop; procedure Pause := fsound.Pause; procedure Reset := fsound.Position := new System.Timespan(0); end; end.