Читаем Советы по Delphi. Версия 1.4.3 от 1.1.2001 полностью

 PlaySndFromFile: TButton;

 PlaySndFromMemory: TButton;

 PlaySndbyLoadRes: TButton;

 PlaySndFromRes: TButton;

 procedure PlaySndFromFileClick(Sender: TObject);

 procedure PlaySndFromMemoryClick(Sender: TObject);

 procedure PlaySndFromResClick(Sender: TObject);

 procedure PlaySndbyLoadResClick(Sender: TObject);

private

 { Private declarations }

public

 { Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.DFM}

{$R snddata.res}

uses MMSystem;

procedure TForm1.PlaySndFromFileClick(Sender: TObject);

begin

 sndPlaySound('hello.wav', SND_FILENAME or SND_SYNC);

end;

procedure TForm1.PlaySndFromMemoryClick(Sender: TObject);

var

 f: file;

 p: pointer;

 fs: integer;

begin

 AssignFile(f, 'hello.wav');

 Reset(f,1);

 fs := FileSize(f);

 GetMem(p, fs);

 BlockRead(f, p^, fs);

 CloseFile(f);

 sndPlaySound(p, SND_MEMORY or SND_SYNC);

 FreeMem(p, fs);

end;

procedure TForm1.PlaySndFromResClick(Sender: TObject);

begin

 PlaySound('HELLO', hInstance, SND_RESOURCE or SND_SYNC);

end;

procedure TForm1.PlaySndbyLoadResClick(Sender: TObject);

var

 h: THandle;

 p: pointer;

begin

 h := FindResource(hInstance, 'HELLO', 'WAVE');

 h := LoadResource(hInstance, h);

 p := LockResource(h);

 sndPlaySound(p, SND_MEMORY or snd_sync);

 UnLockResource(h);

 FreeResource(h);

end;

end.

<p>Создание нового WAV-файла</p>

Тема: Создание нового файла с расширением .wav.

Данный документ был создан по многочисленным просьбам пользователей и описывает дополнительную функциональность компонента Delphi TMediaPlayer. Новая функциональность компонента заключается в возможности создания при записи нового файла формата .wav. Процедура "SaveMedia" создает тип record, передаваемый команде MCISend. Существует исключение, которое вызывает закрытие медиа при любой ошибке, возникающей при открытии определенного файла. Приложение состоит из двух кнопок. Button1 вызывает по-порядку процедуры OpenMedia и RecordMedia. Процедура CloseMedia вызывается при генерации приложением исключительной ситуации. Button2 вызывает процедуры StopMedia,SaveMedia и CloseMedia.

unit utestrec;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, MMSystem, StdCtrls;

type TForm1 = class(TForm)

 Button1: TButton;

 Button2: TButton;

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 procedure FormCreate(Sender: TObject);

 procedure AppException(Sender: TObject; E: Exception);

private

 FDeviceID: Word;

 { Private declarations }

public

 procedure OpenMedia;

 procedure RecordMedia;

 procedure StopMedia;

 procedure SaveMedia;

 procedure CloseMedia;

end;

var Form1: TForm1;

implementation

{$R *.DFM}

var MyError,Flags: Longint;

procedure TForm1.OpenMedia;

var

 MyOpenParms: TMCI_Open_Parms;

 MyPChar: PChar;

 TextLen: Longint;

begin

 Flags:=mci_Wait or mci_Open_Element or mci_Open_Type;

 with MyOpenParms do begin

  dwCallback:=Handle; // TForm1.Handle

  lpstrDeviceType:=PChar('WaveAudio');

  lpstrElementName:=PChar('');

 end;

 MyError:=mciSendCommand(0, mci_Open, Flags, Longint(@MyOpenParms));

Перейти на страницу:

Похожие книги

Основы программирования в Linux
Основы программирования в Linux

В четвертом издании популярного руководства даны основы программирования в операционной системе Linux. Рассмотрены: использование библиотек C/C++ и стан­дартных средств разработки, организация системных вызовов, файловый ввод/вывод, взаимодействие процессов, программирование средствами командной оболочки, создание графических пользовательских интерфейсов с помощью инструментальных средств GTK+ или Qt, применение сокетов и др. Описана компиляция программ, их компоновка c библиотеками и работа с терминальным вводом/выводом. Даны приемы написания приложений в средах GNOME® и KDE®, хранения данных с использованием СУБД MySQL® и отладки программ. Книга хорошо структурирована, что делает обучение легким и быстрым. Для начинающих Linux-программистов

Нейл Мэтью , Ричард Стоунс , Татьяна Коротяева

ОС и Сети / Программирование / Книги по IT
97 этюдов для архитекторов программных систем
97 этюдов для архитекторов программных систем

Успешная карьера архитектора программного обеспечения требует хорошего владения как технической, так и деловой сторонами вопросов, связанных с проектированием архитектуры. В этой необычной книге ведущие архитекторы ПО со всего света обсуждают важные принципы разработки, выходящие далеко за пределы чисто технических вопросов.?Архитектор ПО выполняет роль посредника между командой разработчиков и бизнес-руководством компании, поэтому чтобы добиться успеха в этой профессии, необходимо не только овладеть различными технологиями, но и обеспечить работу над проектом в соответствии с бизнес-целями. В книге более 50 архитекторов рассказывают о том, что считают самым важным в своей работе, дают советы, как организовать общение с другими участниками проекта, как снизить сложность архитектуры, как оказывать поддержку разработчикам. Они щедро делятся множеством полезных идей и приемов, которые вынесли из своего многолетнего опыта. Авторы надеются, что книга станет источником вдохновения и руководством к действию для многих профессиональных программистов.

Билл де Ора , Майкл Хайгард , Нил Форд

Программирование, программы, базы данных / Базы данных / Программирование / Книги по IT
Программист-прагматик. Путь от подмастерья к мастеру
Программист-прагматик. Путь от подмастерья к мастеру

Находясь на переднем крае программирования, книга "Программист-прагматик. Путь от подмастерья к мастеру" абстрагируется от всевозрастающей специализации и технических тонкостей разработки программ на современном уровне, чтобы исследовать суть процесса – требования к работоспособной и поддерживаемой программе, приводящей пользователей в восторг. Книга охватывает различные темы – от личной ответственности и карьерного роста до архитектурных методик, придающих программам гибкость и простоту в адаптации и повторном использовании.Прочитав эту книгу, вы научитесь:Бороться с недостатками программного обеспечения;Избегать ловушек, связанных с дублированием знания;Создавать гибкие, динамичные и адаптируемые программы;Избегать программирования в расчете на совпадение;Защищать вашу программу при помощи контрактов, утверждений и исключений;Собирать реальные требования;Осуществлять безжалостное и эффективное тестирование;Приводить в восторг ваших пользователей;Формировать команды из программистов-прагматиков и с помощью автоматизации делать ваши разработки более точными.

А. Алексашин , Дэвид Томас , Эндрю Хант

Программирование / Книги по IT