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;
|