Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Опрос модема [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Страницы: 1 2 >
pfar © (2002-11-27 07:32:00)
Как правильно опросить модем, послать к примеру ati2 и получить ответ от модема?

Timon (2003-01-14 10:53:00) [1]
Ну вы блин даёте!!!!!!!!!!!!!!!!!!!!!!!

Diamond Cat (2003-01-14 01:38:00) [2]
не нормально, предположить , что у человека почта не пришла по причине падения почтового сервака (у провайдера) никто не догадался , а как на него поклеп наводить и т.д. так это все ЗА. ладно-ладно.
2 Strelok , а на обиженых воду возят
2 Pfar ну не пришли исходники, причем не я виноват, яж ни на кого не обижаюсь, хотя мог подумать , что ты зажал!!!!!!!!!

strelok (2002-12-15 09:13:00) [3]
да, все быстро и дружно обижаемся на diamondcat :)

pfar (2002-12-15 08:32:00) [4]
Всем спасибо, со всем разобрался!!!

P.S Не общайтесь с diamond_cat, я ему все инфу по модемам выслал,
а он даже спасибо не сказал

pfar (2002-12-06 12:46:00) [5]
...

pfar (2002-12-05 07:31:00) [6]
Так все-таки, с посылкой команды я разобрался, надо не просто в порд послать AT команду, ну еще и #10+#13 или наоборот #13+#10 точно не помню, а ведь не кто не сказал. Так осталась проблема получить ответ, он получает, но понять что на трезву голову не удаеться. Да остроумно, но я думаю на пьяну тем более.

Diamond Cat (2002-12-05 03:55:00) [7]
2 pfarа что ты хочешь изобразить, присто я сейчас тоже работаю над комутацией модема, но к сожалению очень мало литературы, может объединить усилия, пиши на мыло diamond_cat@newmail.ru

pfar (2002-12-04 09:43:00) [8]
При передаче модему команд они сначала заносятся во внутренний буфер, который, как правило, имеет размер 40 символов. Команды, записанные в буфер модема, исполняются после поступления символа возврата каретки (<CR>). Вследствие ограниченности размера буфера не следует передавать модему слишком длинные команды (больше размера буфера). Длинные команды можно разбивать на части и передавать в несколько заходов. При этом каждая часть должна начинаться префиксом AT и заканчиваться символом возврата каретки.

На счет +#10+13 вопрос снят.

pfar (2002-12-04 09:16:00) [9]
Не ужели вы думаете, что я не могу разобрать код команды? jack128 это же просто наезд!
Вы все пишете код для работы с COM портом, а модемы чего-то не хватает. Например чтоб он стал набирать номер нужно кроме "atdp 555555" lj, добавить #10+#13 (что-то подобное). А что это такое, с чем его едят, а главное от куда берет?

Diamond Cat (2002-12-04 03:26:00) [10]
это API для телефонии

iNew (2002-12-03 13:03:00) [11]
Что такое TAPI?

Diamond Cat (2002-12-03 01:33:00) [12]
с Tapi какраз не серьезно, а только на уровне предлагаемых функций

jack128 (2002-12-02 17:33:00) [13]
а ты просто пример скомпилировал?
тогда с чего бы ты получил ответ, если не посылаешь запрос

а вообще если хочешь серьезно работать с модемом
используй TAPI

pfar (2002-12-01 06:52:00) [14]
Да действительно, но я не получаю ответа после Ati2? Хотя функция работает, но конечной цель не достигнута.

Diamond Cat (2002-11-30 23:26:00) [15]
Что вы, что вы, какие деньги? :о)

pfar (2002-11-30 10:23:00) [16]
Вот спасибо, Diamond Cat!!! Очень приятно, а то гоняют по ссылкам, на которых я был, перед тем как вопрос задавать, а там еще и ошибок полно. Очень выручил, а главное вовремя!!!

Diamond Cat (2002-11-30 02:37:00) [17]
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var dcb : TDcb; // структура ( виндусовская ) с установками СОМ портов hCom : THandle; // handler СОМ2 fSuccess : boolean; dwRead : DWORD; CharArray : array[0..10] of char; // временный массив данных в оперативной памяти fileOut : file of char; // файл в который будут писаться данные из СОМ2 i : integer; begin hCom := CreateFile(PChar("COM2"),GENERIC_READ,0,nil,OPEN_EXISTING,0,0); //получение указателя на СОМ2 try fSuccess:= GetCommState(hCom, dcb); // Получение данных о текущих установках СОМ2 и заполнение // структуры dcb dcb.BaudRate := CBR_38400; // Установка новых параметров dcb.ByteSize := 8; // для СОМ2, скорость 38400, 8-ми битный обмен, dcb.Parity := NOPARITY; // нет контроля четности, dcb.StopBits := ONESTOPBIT; // один стоповый бит fSuccess := SetCommState(hCom, dcb); // Установка новых параметров для СОМ2 except ShowMessage("Error"); end; if fSuccess then ShowMessage("Success!") else ShowMessage("Error of initiate ComPort..."); for i:=0 to 10 do // цикл чтения из СОМ2 ( к примеру ) одиннадцати байт begin ReadFile(hCom, CharArray[i], 1, dwRead, nil); // чтение одного байта из порта end; AssignFile(FileOut,"c:\out.txt"); Rewrite(FileOut); for i:=0 to 10 do // цикл записи полученной информации в файл на диске begin Application.ProcessMessages; Write(FileOut,CharArray[i]); end; CloseFile(FileOut); CloseHandle(hCom); end; end.

послать команду можно посредством записи в организованный файл hCom

pfar (2002-11-29 17:48:00) [18]
Ну куда же все подевались

pfar (2002-11-28 17:00:00) [19]
Да все я примеры смотрел, просто прога виснет при попытке считывания из порта. А отправляет все в норме. А в реестре каждый ковыряться может, но мне нужно именно модем опросить.
вот и выходит , что послать команду могу а принять нет. Просто бросте мож у кого завалялся готовый пример проги. Не из за лени я здесь

Fel (2002-11-28 11:04:00) [20]
Оттуда. Мог бы и сам не полениться поискать.
Лови ссылку.
http://www.delphikingdom.com/mastering/ports1.htm
Ройся. Там тебе с практичеси полным описанием работы с портами.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »