[Com порт;AT команды]Вывод информации и "мусор в ответе"

[raxp]

OFFTOP >

Здесь скорее проблема в ... я уже очень давно не програмил

вы знаете, вы так часто упоминаете сие в своих постах, что надоедать начинает. Я вот тоже часто не "программлю", я вообще радиоинженер. Так что давайте в партизанов не играть и назовем конкретную модель GSM-терминала с которым вы работаете, благо для этого есть все предпосылки.

[Zadovatel]

Сообщение от raxp

OFFTOP >
вы знаете, вы так часто упоминаете сие в своих постах, что надоедать начинает. Я вот тоже часто не "программлю", я вообще радиоинженер. Так что давайте в партизанов не играть и назовем конкретную модель GSM-терминала с которым вы работаете, благо для этого есть все предпосылки.

Я еще раз повторяю:в глаза его не видел.Находится он где-то в 800 километрах от моего места проживания.Человек,который попросил написать под него софт сам о нем не имеет никакой информации.Единственное,что удалось выпытать из терминала - жрет wavecom-овские команды.Примерное описание,которое мне передали:"Хреновина из Китая,в которую вставляются сим карты.Других данных нет."Совсем забыл.Можно-ли как-то организовать фильтр по 2-м байтам,а не по одному?Сейчас стоит вариант фильтра по возврату каретки ,но входящая информация(аля смс пришло и т.д.) начинается с 0x0A(клавиша энтер).Фильтр через dsb структуру (параметр EvtChar).

[raxp]

Я еще раз повторяю:в глаза его не видел.Находится он где-то в 800 километрах от моего места проживания.Человек,который попросил написать под него софт сам о нем не имеет никакой информации.Единственное,что удалось выпытать из терминала - жрет wavecom-овские команды.

выше я дал команды, которые дадут производителя, модель и версию прошивки. Дело за вами.

Совсем забыл.Можно-ли как-то организовать фильтр по 2-м байтам,а не по одному?Сейчас стоит вариант фильтра по возврату каретки ,но входящая информация(аля смс пришло и т.д.) начинается с 0x0A

можно, вручную самому. Pos(), PosEx().

[Zadovatel]

Как правильно чистить буфер?На сегодняшний момент функция чтения следующая:

procedure ReadComm;
  begin
     while true do
   begin
    TransMask:=0;
    WaitCommEvent(CommHandle,TransMask,@Ovr); //æäåì
    if (TransMask and EV_RXFLAG)=EV_RXFLAG then //ïðîâåðÿåì íóæíîå ñîáûòèå
     begin
     ClearCommError(CommHandle,Errs,@Stat);//ñáðàñûâàåì ôëàã
      Kols := Stat.cbInQue;
      fillChar(Resive, sizeOf(Resive), 0); //Î÷èùàåì áóôåð
      ReadFile(CommHandle,Resive,Kols,Kols,@Ovr);//÷èòàåì
      {òóò äîëæíà èäòè îáðàáîòêà ïðèíÿòîé èíôîðìàöèè èç Resive}
      ReadMyBuff;
     end;//mask
    end;//while
  end;

Жирным выделил очистку.Проблема в том,что после нескольких циклов чтения приложение завершается с критической ошибкой из-за переполнения буфера.С размером все в порядке.И так ему уже 1кб выделил...

[raxp]

На сегодняшний момент функция чтения следующая:

...пример чтения у меня:

// обработчик потока приема
procedure DoEvent;
var Resive :array [0..255] of char;
    comstat: TComStat;
    mask, signal, temp, btr: dword;
    //
    str: string;
    i: Integer;
begin
 ovr.hEvent:= CreateEvent(nil, true, true, nil);

 while true do begin
  WaitCommEvent(h, mask, @ovr);
  signal:= WaitForSingleObject(ovr.hEvent, INFINITE);

  if (signal = WAIT_OBJECT_0) then
   if (GetOverlappedResult(h, ovr, temp, true)) then begin

    if ((mask and EV_RXCHAR)<>0) then begin
      ClearCommError(h, temp, @comstat);
      btr:= comstat.cbInQue;
      str:= '';

      ReadFile(h, Resive, btr, temp, @ovr);
      for i:= 0 to temp-1 do
       str:= str + Resive[i];
      // визуализируем принятый пакет
      show_tn(1, str, 'Copyright © RS-232/USB Test Monitor and Control');
    end;
   end;

 end
end;

Как правильно чистить буфер?

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

[Zadovatel]

Большое спасибо за код.Проблема оказалось не в переполнении.Если я не ответил на Ваш вопрос,то возможно я его банально не заметил.Надежнее через личку спрашивать.