Главная страница
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.024 c
3-1090416537
Term
2004-07-21 17:28
2004.08.15
Какой функцией в запросе можно выделить год из даты


3-1090212073
Tempo
2004-07-19 08:41
2004.08.15
Как удалить определенные записи по условию


1-1090987927
R
2004-07-28 08:12
2004.08.15
Маска папки


1-1091491749
Almaz
2004-08-03 04:09
2004.08.15
Выбор Published свойств, определенных в конкретном классе


3-1090240496
Aslan
2004-07-19 16:34
2004.08.15
Как с помощью SQL добавить данные в поле типа Memo?