Главная страница
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.049 c
1-1091510617
race1
2004-08-03 09:23
2004.08.15
pointers


1-1091261600
brat2
2004-07-31 12:13
2004.08.15
компоненты лезут без очереди!!!


14-1091209922
Кириешки
2004-07-30 21:52
2004.08.15
Вот самая транспанентная форма.


3-1090056519
Russko
2004-07-17 13:28
2004.08.15
Сортировка ORDER BY


3-1090247645
sergvc
2004-07-19 18:34
2004.08.15
как добавить в DataSet колонку не связанную с данными для временн