пробую написать собственный NetMonitor для компа, но все время вылетает вот такая ошибка:
кто-нибудь знает как ее исправить?
З.Ы. при подключении телефона через usb ноут задает для модема два порта COM8 и COM9. И на том и на другом эта ошибка
собственный netmonitor — Netmonitor GSM/UMTS: от телефонов до измерительных комплексов
- Svyazist-58
- Начинающий нетмониторщик
- Сообщения: 20
- Зарегистрирован: Чт, 07-07-2011, 12:16
- Откуда: Пенза
- Нетмонитор: SE k800i
собственный netmonitor
За связь без брака!!!
- Svyazist-58
- Начинающий нетмониторщик
- Сообщения: 20
- Зарегистрирован: Чт, 07-07-2011, 12:16
- Откуда: Пенза
- Нетмонитор: SE k800i
вот исходники
Код: Выделить всё
unit at;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XComDrv, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
XModem1: TXModem;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure XModem1HayesAT(Sender: TObject; AT: THayesAT);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear; // Очищаем список
XModem1.OpenDevice; // открываем порт
XModem1.EnterCommandState; // Входим в командный режим
XMODEM1.SendCommand('AT+GMI'); //Производитель
XModem1.WaitForAT(1500); //Ждём ответа
XMODEM1.SendCommand('AT+СGMM'); //Модель
XModem1.WaitForAT(1500);
XMODEM1.SendCommand('AT+GMR'); //Версия прошивки
sleep(1500);
XModem1.WaitForAT(1500);
XMODEM1.SendCommand('AT+GSN'); //IMEI
sleep(1500);
XModem1.WaitForAT(1500);
XMODEM1.SendCommand('AT+IMI'); //IMSI
sleep(1500);
XModem1.WaitForAT(1500);
XModem1.ExitCommandState; // Выходим из командного режима
XModem1.CloseDevice; // Закрываем порт
Showmessage('Данные приняты, хозяин');
end;
procedure TForm1.XModem1HayesAT(Sender: TObject; AT: THayesAT);
begin
if at.Command='AT+GMI' then ListBox1.Items.add('Производитель: '+at.data);
if at.Command='AT+СGMM' then ListBox1.Items.add('Модель: '+at.data);
if at.Command='AT+GMR' then ListBox1.Items.add('Версия прошивки: '+at.data);
if at.Command='AT+GSN' then ListBox1.Items.add('IMEI: '+at.data);
if at.Command='AT+IMI' then ListBox1.Items.add('IMSI: '+at.data);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close();
end;
end.
За связь без брака!!!