собственный netmonitor — Netmonitor GSM/UMTS: от телефонов до измерительных комплексов

[Svyazist-58]

пробую написать собственный NetMonitor для компа, но все время вылетает вот такая ошибка:



кто-нибудь знает как ее исправить?

З.Ы. при подключении телефона через usb ноут задает для модема два порта COM8 и COM9. И на том и на другом эта ошибка

[Svyazist-58]

вот исходники

Код: Выделить всё

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.