Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Запись с микрофона Добавлено: 29.08.10 20:22  

Автор вопроса:  Павел
Как можно записать с микрофона в файл и воспроизвести подскажите пожалуйста.

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Eugy



Вопросов: 0
Ответов: 73
  Профиль | | #1 Добавлено: 29.08.10 22:01
Легко через MCI (winmm.dll), но в .NET может уже есть готовый класс?

Ответить

Номер ответа: 2
Автор ответа:
 Павел



Вопросов: 9
Ответов: 15
  Профиль | | #2 Добавлено: 30.08.10 06:49
Да спасибо я нашел. Ниже что получилось. Может кто знает есть ли готовый класс?

  1.  
  2. Public Class Form1
  3.  
  4.     Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  5.  
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         Dim Result As Long
  8.         Result = mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
  9.         result = mciSendString("record recsound", "", 0, 0)
  10.     End Sub
  11.  
  12.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  13.         Dim Result As Long
  14.         Result = mciSendString("save recsound c:\\record.wav", "", 0, 0)
  15.         Result = mciSendString("close recsound ", "", 0, 0)
  16.         My.Computer.Audio.Stop()
  17.  
  18.     End Sub
  19.  
  20.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  21.         My.Computer.Audio.Play("c:\\record.wav", AudioPlayMode.Background)
  22.     End Sub
  23. End Class

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам