Имя: Пароль:
1C
1C 7.7
v7: Запись с микрофона
0 geniusbsd
 
25.05.15
00:14
Добрый вечер
Можно ли через какую нибудь ВК делать запись с микрофона
Требуется записывать клиента сдающего в ремонт технику.
1 Serginio1
 
25.05.15
00:42
2 Garykom
 
гуру
25.05.15
00:45
проще наверно некую прогу с параметрами (начать/остановить запись) вызывать и потом подцеплять файлик из папки
3 Serginio1
 
25.05.15
10:47
Смотря для кого.
4 Serginio1
 
25.05.15
10:52
Просто  на каждое желание найти ВК проблема, но легко самому написать используя кучу примеров в интернете.
Ты же используешь СОМ объекты встроенные в ОС.
Всетаки мы программисты.
5 geniusbsd
 
25.05.15
16:47
Нашол некую bass.dll и примеры на делфи
Вывод сделал что напишу свою длл на делфи
6 geniusbsd
 
26.05.15
22:10
Кому нужно вот код на Delphi
procedure StartRecord (Sender: TObject);
begin

mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
   mciSendString('SET mysound TIME FORMAT MS ' +     // set time
    'BITSPERSAMPLE 16 ' +                // 16 Bit
    'CHANNELS 1 ' +                     // MONO
    'SAMPLESPERSEC 8000 ' +             // 8 KHz
    'BYTESPERSEC 8000',                // 8000 Bytes/s
    nil, 0, Handle);
   mciSendString('RECORD mysound', nil, 0, Handle)

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


end;

procedure StopRecords(Sender: TObject);
begin
mciSendString('STOP mysound', nil, 0, Handle)
end;

Сделал как приложение для проверки микрофона теперь буду делать dll и вставлять с эку
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.