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

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

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

XComDrv [D6, WinXP]

ashnurov © (2005-09-08 13:49:00)
Подскажите где можно найти пример с использованием компанента XComDrv

Reindeer Moss Eater (2005-09-08 14:37:00) [1]
Ну вспомни, что ты делаешь в гипертерминале когда текст команды введен полностью но еще не отправлен в порт.

ashnurov (2005-09-08 14:34:00) [2]
Что посоветуйте и куда вставить?

Reindeer Moss Eater (2005-09-08 14:29:00) [3]
Ограничителя команды видимо не хватает.

ashnurov (2005-09-08 14:27:00) [4]
да на все команды отвечает ок. А тут не хотит

Reindeer Moss Eater (2005-09-08 14:26:00) [5]
И отвечает правильно на команды?
Тогда см. пункт [2].

Reindeer Moss Eater (2005-09-08 14:25:00) [6]
да вот так. а как же иначе.

ashnurov (2005-09-08 14:25:00) [7]
да пробовал всё нормально проглатывает

ashnurov (2005-09-08 14:19:00) [8]
не понял как это?

Reindeer Moss Eater (2005-09-08 14:17:00) [9]
И вообще.
Ты пробовал эти команды скармливать своему телефону без своей программы? Скажем в гипертерминале.
Может проблема вовсе и не в XComDrv.

Reindeer Moss Eater (2005-09-08 14:15:00) [10]
Команды ничем не надо завершать?

ashnurov (2005-09-08 14:12:00) [11]
я делаю следующее, но ничего не выходит:
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Clear; // Очищаем список
xmodem1.OpenDevice; // открываем порт
xmodem1.EnterCommandState; // Входим в командный режим
XMODEM1.SendCommand('AT+CGMI'); //Производитель
xmodem1.WaitForAT(1500); //Ждём ответа
XMODEM1.SendCommand('AT+CGMM'); //Модель
xmodem1.WaitForAT(1500);
XMODEM1.SendCommand('AT+CGMR'); //Версия прошивки
sleep(1500);
xmodem1.WaitForAT(1500);
XMODEM1.SendCommand('AT+CGSN'); //IMEI
sleep(1500);
xmodem1.WaitForAT(1500);
XMODEM1.SendCommand('AT+CIMI'); //IMSI
sleep(1500);
xmodem1.WaitForAT(1500);
xmodem1.ExitCommandState; // Выходим из командного режима
xmodem1.CloseDevice; // Закрываем порт
Showmessage(‘Данные приняты, хозяин’);
end;
procedure TForm1.XModem1HayesAT(Sender: TObject; AT: THayesAT);
begin
if at.Command='AT+CGMI' then listbox1.Items.add('Производитель: '+at.data);
if at.Command='AT+CGMM' then listbox1.Items.add('Модель: '+at.data);
if at.Command='AT+CGMR' then listbox1.Items.add('Версия прошивки: '+at.data);
if at.Command='AT+CGSN' then listbox1.Items.add('IMEI: '+at.data);
if at.Command='AT+CIMI' then listbox1.Items.add('IMSI: '+at.data);
end;

Наверх

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