Я тоже... Определяю присутствие своего устройства в системе: («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Разработка, производство и продажа радиоэлектронной аппаратуры

| Карта сайта | Пишите нам | В избранное

Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Я тоже... Определяю присутствие своего устройства в системе:

Отправлено Гудвин 18 мая 2007 г. 11:28
В ответ на: Я делал так: отправлено Lexandro 18 мая 2007 г. 09:03


procedure TMF.TestSimCon;
var
i: integer;
b:byte;
ch: char;
Begin
TI.Hint:='SimCon ';
   for i:=1 to 15 do
   begin
    cpd.PortName:= '\\.\com'+IntToStr(i);
      if cpd.Connect then
        begin
        cpd.FlushBuffers(true,true);
        cpd.SendByte(27);
        sleep(100);
        if cpd.CountRX>5 then
          begin
          cpd.ReadByte(b) ;
            if b=27 then
             begin
             cpd.ReadChar(ch);
             TI.Hint:=TI.Hint+ch;
             cpd.ReadChar(ch);
             TI.Hint:=TI.Hint+ch;
             cpd.ReadChar(ch);
             TI.Hint:=TI.Hint+ch;
             cpd.ReadChar(ch);
             TI.Hint:=TI.Hint+ch;
             cpd.ReadChar(ch);
             TI.Hint:=TI.Hint+ch;
             cpd.ReadChar(ch);
             TI.Hint:=TI.Hint+ch;
             MF.Caption:='Ждем...';
             TI.Hint:=TI.Hint+' на COM'+ IntTostr(i);             break;
             end;
          end;
        cpd.Disconnect;
        end;
   end;
  if i=16 then
    begin
  //  Application.MessageBox('Не подключен регистратор SimCon','Ошибка',MB_OK+MB_ICONWARNING);
    TI.Hint:=TI.Hint+' не подключен!';
    end;
end;

Составить ответ | Вернуться на конференцию

Я тоже... Определяю присутствие своего устройства в системе:

Ответы