Скачать: CL | DM;

XComDrv   Найти похожие ветки 

← →
ashnurov   (2005-09-08 13:49) [0]

Подскажите где можно найти пример с использованием компанента  XComDrv

---

← →
ashnurov   (2005-09-08 14:12) [1]

я делаю следующее, но ничего не выходит:
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;

---

← →
Reindeer Moss Eater ©   (2005-09-08 14:15) [2]

Команды ничем не надо завершать?

---

← →
Reindeer Moss Eater ©   (2005-09-08 14:17) [3]

И вообще.
Ты пробовал эти команды скармливать своему телефону без своей программы? Скажем в гипертерминале.
Может проблема вовсе и не в XComDrv.

---

← →
ashnurov   (2005-09-08 14:19) [4]

не понял как это?

---

← →
Reindeer Moss Eater ©   (2005-09-08 14:25) [5]

да вот так. а как же иначе.

---

← →
ashnurov   (2005-09-08 14:25) [6]

да пробовал всё нормально проглатывает

---

← →
Reindeer Moss Eater ©   (2005-09-08 14:26) [7]

И отвечает правильно на команды?
Тогда см. пункт [2].

---

← →
ashnurov   (2005-09-08 14:27) [8]

да на все команды отвечает ок. А тут не хотит

---

← →
Reindeer Moss Eater ©   (2005-09-08 14:29) [9]

Ограничителя команды видимо не хватает.

---

← →
ashnurov   (2005-09-08 14:34) [10]

Что посоветуйте и куда вставить?

---

← →
Reindeer Moss Eater ©   (2005-09-08 14:37) [11]

Ну вспомни, что ты делаешь в гипертерминале когда текст команды введен полностью но еще не отправлен в порт.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.043 c