Текущий архив: 2004.08.15;
Скачать: CL | DM;
Вниз
Почему это не работает? Найти похожие ветки
← →
Rain © (2004-07-02 10:54) [0]предполагалось, что модем наберет номер (это он делает), переведется в голосовой режим (командой AT#CLS=8) и в режим приема DTMF (командой AT#VTD=3F,3F,3F). Но по непонятным (для меня) причинам выполняется только первая команда. Может кто-нибудь что-то знает по этому вопросу? Заранее спасибо всем, кто поможет.
procedure TForm1.btnInitClick(Sender: TObject);
begin
CommPort := "COM1"; {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;
PhoneNumber := "ATDT" + Edit1.Text + #13 + #10; {Edit1.text - собственно номер, по которому звонить}
NumberWritten:=0;
if WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
nil) = false
then
begin
ShowMessage("Unable to write to " + CommPort);
end;
PhoneNumber := "AT#CLS=8" + #13 + #10;
WriteFile(hCommFile, {переводим модем в голосовой режим}
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
nil);
PhoneNumber := "AT#VTD=3F,3F,3F" + #13 + #10;
WriteFile(hCommFile, {переводим модем в режим приема DTMF}
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
nil);
end;
← →
Reindeer Moss Eater © (2004-07-02 11:06) [1]А где анализ результатов WriteFile?
← →
Rain © (2004-07-02 11:36) [2]вы уж простите за глупый вопрос, но зачем это, и как это сделать?
Страницы: 1 вся ветка
Текущий архив: 2004.08.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
