Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.041 c
14-1091190960
Bless
2004-07-30 16:36
2004.08.15
Эх, и все-таки чего-то не хватает... Задачек!!!


3-1090306977
agent007
2004-07-20 11:02
2004.08.15
Пример соединения через ODBC


14-1091041766
K.o.Z
2004-07-28 23:09
2004.08.15
Фотогаллерея российского тунинга.


1-1091011547
andrey__
2004-07-28 14:45
2004.08.15
Как по коду ошибки получить текст ошибки?


1-1091209480
Antonmm
2004-07-30 21:44
2004.08.15
Добавление программы в реестр