Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: звук в модем  (Прочитано 4886 раз)
0 Пользователей и 1 Гость смотрят эту тему.
gargona
Гость
« : 23-06-2004 05:04 » 

Никак не могу проиграть файл в модем. Работаю через АТ команды модема.
Набираю номер, перевожу в голосовой режим, затем команлой AT+VTX начинаю передавать звук, а вот дальше я не уверена правильно ли.
Может сначала надо сконвертировать wav файл (сжать) и только потом передавать? И как правильно прописать
путь к файлу->AT+VTX,,,,,C:\winnt\media\notif.wav

Кто работал с такой задачей отзовитесь!!!!

Вот код:
var
       PhoneNumber : string;
       CommPort : string;
       NumberWritten : cardinal;
     begin
       PhoneNumber := 'ATDT57010,,,AT+FCLASS=8,AT+VSM=?,,AT+VLS=2,,AT+VSM=1,AT+VTX,,,,,C:\winnt\media\notif.wav'+ #13 + #10;
       CommPort := 'COM2';
      {Open the comm port}
       hCommFile := CreateFile(PChar(CommPort),
                   GENERIC_WRITE,
                   0,
                   nil,
                   OPEN_EXISTING,
                   FILE_ATTRIBUTE_NORMAL,
                   0);
       if hCommFile=INVALID_HANDLE_VALUE then
       begin
     ShowMessage('Unable to open '+ CommPort);
     exit;
       end;

      {Dial the phone}
       NumberWritten:=0;
       if WriteFile(hCommFile,
            PChar(PhoneNumber)^,
            Length(PhoneNumber),
            NumberWritten,
           nil) = false then begin
     ShowMessage('Unable to write to ' + CommPort);
       end;
     end;
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines