Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 17.10.2015
Сообщений: 8
1

Диктофон на Delphi

17.10.2015, 09:52. Просмотров 2043. Ответов 1
Метки нет (Все метки)


Нашел вот такой вариант:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mmSystem, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject); //кнопка записи файл сохраняется в c:\temp\test.wav
begin
  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS Zvuk',nil,0,Handle);
  mciSendString('SET Zvuk TIME FORMAT MS BITSPERSAMPLE 8 CHANNELS 1 SAMPLESPERSEC 8000 BYTESPERSEC 8000',nil,0,Handle);
  mciSendString('RECORD Zvuk',nil,0,Handle);
  ShowMessage('Нажмите OK для остановки записи');
  mciSendString('STOP Zvuk',nil,0,Handle);
  mciSendString(Pchar('SAVE Zvuk c:\temp\test.wav'),nil,0,Handle);
  mciSendString('CLOSE Zvuk',nil,0,Handle)
end;
 
procedure TForm1.Button2Click(Sender: TObject); //кнопка воспроизведения
begin
  sndPlaySound('c:\temp\test.wav',SND_ASYNC);
end;
 
end.
Кто-то может подсказать как сделать чтобы я выбирал куда сохранять этот wav-файл, и мог сам задавать ему имя?
Ну или дайте готовый диктофон (исходники).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2015, 09:52
Ответы с готовыми решениями:

Диктофон
Добрый день. Мне нужно узнать ведется ли запись на диктофон в данный момент. Если создать объект...

Диктофон в Смартфоне
Привет всем, хотел спросить, хотел записать как ругаются соседи для полиции, включил диктофон, но...

Сайт диктофон
Можно ли сделать сайт, который при нажатии на кнопку будет записывать то, что говорится в микрофон...

Диктофон не записывает
Привет. С недавнего времени диктофоны не записывают звуки или речь. Сперва грешил на программу, но...

1
Пишу на Delphi...иногда
1418 / 1275 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
17.10.2015, 10:19 2
изменить строку (о чем писали в другом топике)
Delphi
1
2
3
...
mciSendString(Pchar('SAVE Zvuk c:\temp\test.wav'),nil,0,Handle);
...
на строки
Delphi
1
2
3
4
...
if SaveDialog1.Execute then
   mciSendString(Pchar('SAVE Zvuk ' + SaveDialog1.FileName),nil,0,Handle);
...
экземпляр TSaveDialog кидается на форму и настраивается на фильтр 'wav'

исходник диктофона - библиотека bass.dll, в архиве в папке Delphi пример RecordTest
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2015, 10:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Драйвера на диктофон Olympus
Скачала драйвера с офсайту olympus для диктофона Olympus VN-2100PC но при установке вылетела...

Подскажите скрытный диктофон для Android
Добрый день, ищу какой-нибудь диктофон для автоматической записи входящих и исходящих звонков. Что...

Мой компьютер не видит диктофон olympus ds-30
Всем привет! Вот какая проблема: один ----- (не хороший человек), вместо того, чтобы перекинуть...

Планшет Samsung galaxy. Где найти диктофон?
Где в этом звере найти диктофон?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.