Запись с микрофона

dev.Free · 18.01.2013, 14:35. **Показов** 3601. **Ответов** 9

Студворк — интернет-сервис помощи студентам

День добрый! Вот код, нашел на VB.NET переделал на Visual Basic 6.0. Пользуйтесь!

Понять не могу одного, у меня при записи есть фон, может уши слабые, хотя навряд ли, супруга подарила стоят 110$. У кого есть, фонит на заднем фоне и как бы эхо еще есть.

Кликните здесь для просмотра всего текста

Visual Basic
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
Private Declare Function mciSendString _
    Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
    ByVal ReturnString As String, _
    ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
    Dim Path As String
    Dim rs As String
    Dim cb As Integer
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub cmdRecordStop_Click()
If cmdRecordStop.Caption = "Çàïèñàòü" Then
    cmdRecordStop.Caption = "Îñòàíîâèòü"
    Command2.Enabled = False
        Call mciSendString("Open New Type waveaudio Alias capture", rs, 256, cb)
        Call mciSendString("record capture", rs, 256, cb)
Else
    cmdRecordStop.Caption = "Çàïèñàòü"
    Command2.Enabled = True
        Call mciSendString("Stop capture", rs, 256, cb)
        Call mciSendString("save capture " & Path, rs, 256, cb)
        Call mciSendString("Close capture", rs, 256, cb)
End If
End Sub
 
Private Sub Command1_Click()
    Call mciExecute("stop " & "D:\1.WAV")
End Sub
 
Private Sub Command2_Click()
    Call mciExecute("play " & "D:\1.WAV")
End Sub
 
Private Sub Form_Load()
    Path = "D:\1.WAV"
    cmdRecordStop.Caption = "Çàïèñàòü"
    Command2.Caption = "Ïðîñëóøàòü"
    Command2.Enabled = False
End Sub

@Cricket93 · 18.01.2013, 14:55

Сообщение от inv.DS

cmdRecordStop

Не подскажешь где находится этот элемент?

dev.Free · 18.01.2013, 14:58 **[ТС]**

cmdRecordStop так называется кнопка. На исходник, не парься.

SoftIce · 18.01.2013, 15:02

Есть проект (не мой) с использованием DirectX

dev.Free · 18.01.2013, 15:04 **[ТС]**

SoftIce, Библиотеку не может найти, скажи как называется в какой папке.

@Cricket93 · 18.01.2013, 15:07

Сообщение от inv.DS

На исходник, не парься.

Оо)) Щас тогда вб скачаю

dev.Free · 18.01.2013, 15:17 **[ТС]**

dx8vb.dll ВЕРСИЯ СТАРАЯ. ДЛЯ SEVEN И 8 не идет вообще, а если и идет нифега не пишет. Кстати вопрос эха и шума решил, обновил DirectX.

@Pro_grammer · 18.01.2013, 19:15

Сообщение от inv.DS

Понять не могу одного, у меня при записи есть фон, может уши слабые,

Уши не при делах, просто по умолчанию запись с таким качеством полное г-но!
Надо прописать настройки с хорошим качеством, да и вообще использовать немного другой метод.
Вот подправил код, запись идеальная, лучше чем через DX

Visual Basic
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
43
44
45
46
47
48
49
Private Declare Function mciSendString _
    Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
    ByVal ReturnString As String, _
    ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer
    Dim Path As String
    Dim rs As String
    Dim cb As Integer
    Dim Status As Integer
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub cmdRecordStop_Click()
rs = Space(256)
cb% = 0
Alignment% = 4
bits% = 16                 '16bit wave file
channels% = 2             '1=mono 2=stero
samples& = 44100           '44.1kHz sample rate
 
 
If cmdRecordStop.Caption = "Записать" Then
    cmdRecordStop.Caption = "Остановить"
    Command2.Enabled = False
        Call mciSendString("Open New Type waveaudio Alias recsound", rs, 256, cb)
        Call mciSendString("set recsound time format ms", 0&, 0, 0)
        Call mciSendString("set recsound alignment " & Str(Alignment) & " bitspersample " & Str(bits) & " samplespersec " & Str(samples) & " channels " + Str(channels) & " bytespersec " & Str(samples * Alignment), 0&, 0, 0)
        Call mciSendString("record recsound",  0&, 0, 0)
Else
    cmdRecordStop.Caption = "Записать"
    Command2.Enabled = True
        Call mciSendString("Stop recsound", 0&, 0, 0)
        Call mciSendString("save recsound " & Path, 0&, 0, 0)
        Call mciSendString("Close recsound", 0&, 0, 0)
End If
End Sub
 
Private Sub Command1_Click()
    Call mciExecute("stop " & "C:\1.wav")
End Sub
 
Private Sub Command2_Click()
    Call mciExecute("play " & "C:\1.wav")
End Sub
 
Private Sub Form_Load()
    Path = "C:\1.wav"
    cmdRecordStop.Caption = "Записать"
    Command2.Caption = "Прослушать"
    Command2.Enabled = False
End Sub

dev.Free · 18.01.2013, 19:47 **[ТС]**

Pro_grammer, Блин хорошие советы! Хорошие...

Интересно, а запись со Skype к примеру возможно сделать ? Раньше были DialUP модемы там запись можно было проще сделать, а как сейчас ?

@Pro_grammer · 18.01.2013, 20:56

Сообщение от inv.DS

а как сейчас ?

Включи стерео микшер и микрофон одновременно ( если позволит система) и этот код будет все писать, что в колонках слышно. Или просто микшер. Вот только скайп сам может программно переключить на микрофон.
В общем это индивидуально для компа - у всех своя звуковуха. У меня раньше комп всё подряд писал этим кодом, а сейчас каналы микрофона и микшера не миксуются, или только выход пишет или только вход

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

dev.Free Заблокирован
	18.01.2013, 15:04 [ТС]
	SoftIce, Библиотеку не может найти, скажи как называется в какой папке. 0

dev.Free Заблокирован
	18.01.2013, 15:17 [ТС]
	dx8vb.dll ВЕРСИЯ СТАРАЯ. ДЛЯ SEVEN И 8 не идет вообще, а если и идет нифега не пишет. Кстати вопрос эха и шума решил, обновил DirectX. 0

dev.Free Заблокирован
	18.01.2013, 19:47 [ТС]
	Pro_grammer, Блин хорошие советы! Хорошие... Интересно, а запись со Skype к примеру возможно сделать ? Раньше были DialUP модемы там запись можно было проще сделать, а как сейчас ? 0

Запись с микрофона

Решение