Недавно добавленные исходники

•  TDictionary Custom Sort  684

•  Fast Watermark Sources  1 044

•  3D Designer  1 937

•  Sik Screen Capture  1 580

•  Patch Maker  1 593

•  Айболит (remote control)  1 486

•  ListBox Drag & Drop  1 247

•  Доска для игры Реверси  25 505

•  Графические эффекты  1 444

•  Рисование по маске  1 412

•  Перетаскивание изображений  1 138

•  Canvas Drawing  1 036

•  Рисование Луны  871

•  Поворот изображения  826

•  Рисование стержней  857

•  Paint on Shape  534

•  Генератор кроссвордов  808

•  Головоломка Paletto  740

•  Теорема Монжа об окружностях  911

•  Пазл Numbrix  649

•  Заборы и коммивояжеры  896

•  Игра HIP  587

•  Игра Go (Го)  557

•  Симулятор лифта  587

•  Программа укладки плитки  537

•  Генератор лабиринта  599

•  Проверка числового ввода  552

•  HEX View  635

•  Физический маятник  563

•  Задача коммивояжера  597

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Запись WAV-файлов



Оформил: DeeCo

uses mmSystem;

 {....}

 procedure TForm1.Button1Click(Sender: TObject);     // Record 
begin
   mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
   mciSendString('SET mysound TIME FORMAT MS ' +     // set time 
    'BITSPERSAMPLE 8 ' +                // 8 Bit 
    'CHANNELS 1 ' +                     // MONO 
    'SAMPLESPERSEC 8000 ' +             // 8 KHz 
    'BYTESPERSEC 8000',                // 8000 Bytes/s 
    nil, 0, Handle);
   mciSendString('RECORD mysound', nil, 0, Handle)
 end;


 procedure TForm1.Button2Click(Sender: TObject);     // Stop 
begin
   mciSendString('STOP mysound', nil, 0, Handle)
 end;


 procedure TForm1.Button3Click(Sender: TObject);      // Save 
var
    verz: String;
 begin
   GetDir(0, verz);
   mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
   mciSendString('CLOSE mysound', nil, 0, Handle)
 end;




Похожие по теме исходники

Wave Recorder

Haar Wavelet

Wave Recorder v2

Wave and MIDI In-Out

 

Example RIFF Wave

Wave

WAVE Tagger

Чтение PSD файлов

 

Шифратор файлов

Поиск файлов

FileMan (менеджер файлов)

Поиск открытых файлов

 



Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram