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]

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

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

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

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

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

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