Советы по Delphi. Версия 1.4.3 от 1.1.2001

unit PlaySnd1;
interface

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

type TForm1 = class(TForm)
 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.

Создание нового WAV-файла

Тема: Создание нового файла с расширением .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');