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

[Zadovatel]

Всем привет.На повестке дня 2 вопроса.
1)Что за "мусор" приходит в ответе?

Бордовым подчеркнуто эхо и ответ.Остальное содержимое мне не понятно.
2)Как реализовать нормальный вывод?Сейчас использую вот такой вариант(жирным выделил момент,который мне не нравится):

procedure ReadComm;
  var
   Resive:array [0..255] of char;
  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;
      ReadFile(CommHandle,Resive,Kols,Kols,@Ovr);//÷èòàåì
      //òóò äîëæíà èäòè îáðàáîòêà ïðèíÿòîé èíôîðìàöèè èç Resive
      Form1.Edit2.Text:=string(Resive);
      //íå î÷åíü õîðîøèé âàðèàíò âûâîäà, íî äëÿ ïðèìåðà ïîäîéäåò
     end;//mask
    end;//while
  end;

Во-первых,VCL в модуле,во-вторых текст постоянно перезаписывается,а хотелось бы,что бы просто происходил перевод строки.Читаю постоянно в отдельном потоке и при поступление перевода каретки в буфер считываю инфу.
P.S.Копирайты.Частично взят код пользователя со стороннего ресурса.Данные автора:Pasha, pasha676@newmail.ru.

[raxp]

Остальное содержимое мне не понятно.

это кодировка, проблемы использования юникодной Delphi, к примеру.

Во-первых,VCL в модуле,

никто не заставляет, заведите глобальную переменную и выводите в нее. В другом месте эту переменную визуализируйте. А если речь о визуализации из потока, то синхронизе.

во-вторых текст постоянно перезаписывается,а хотелось бы,что бы просто происходил перевод строки

так добавьте символы переноса и пишите а-ля text:= text + ansistring(Resive) + #13#10. Или просто Memo1.lines.add()/

P.S.Копирайты.Частично взят код пользователя со стороннего ресурса

DW.

[Zadovatel]

Мне кажется,что здесь проблема не в кодировке.Символы очень часто меняются.

[raxp]

...это просто неотображаемые (непечатаемые) символы аски ...выведите их код, байтовое значение и взгляните в таблицу аски.

[Zadovatel]

Привел читалку в терпимый вид и заметил,что сообщения дублируются.В чем может быть причина?

Результат запроса одной команды.В коде поменял только:

Form1.Memo1.lines.add(ansistring(Resive));

P.S.Обещаюсь завтра вытащить VCL,не пинайте сильно

[raxp]

В чем может быть причина?

...буфер очищать надо.

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

Об устройстве ничего не известно(в глаза его не видел).

так как же вы с ним работаете, с конем вакуумным?

[Zadovatel]

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

...буфер очищать надо.

так как же вы с ним работаете, с конем вакуумным?

Да вот так и работаю,методом тыка.Через удаленку тестирую.При помощи подбора AT команд выяснил,что это что-то вроде модема компании Wavecom,отсюда и пляшу.Чистка буфера полностью решила проблему.А стоит ли чистить структуру OVERLAPPED?
Как осуществить вот эту часть:

В другом месте эту переменную визуализируйте.

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

[raxp]

это что-то вроде модема компании Wavecom

у WAVECOM есть офсайт, где куча даташитов на их продукцию. А узнать модель терминала просто классическими командами:

AT+CMGI, должен ответить WAVECOM MODEM.
AT+CGMM, даст рабочие частоты.
AT+CGMR, будет версия ПО.

Зная все это, выясните с чем работаете, зайдете к производителю и скачаете все по модему, его командам и даже примерам работы.

А стоит ли чистить структуру OVERLAPPED

если вы отслеживаете и служебные сигналы.

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

в дополнительном потоке или таймере проверяете переменную, если не пустая, визуализируем и очищаем.

Если же вы из потока хотите обращаться к VCL, то вот вам пример:

type

  // создаем класс-поток
  t = class(TThread)
   procedure Execute; override;
   procedure f;
  end;


var text: ansistring;

procedure T.f;
begin
 // визуализируем
 form1.memo1.lines.add(text);
end;


procedure t.Execute;
begin
 while true do begin

  { ТУТ ВАШЕ ЧТЕНИЕ ПОРТА }
  text:= 
  ...

  Synchronize(f);
 end
end;



...
 // создаем поток
 tt:= t.Create(false);

...
 // уничтожаем поток
 tt.Terminate

[Zadovatel]

По AT командам вопросов нет.Здесь скорее проблема в моей криворукости и в том,что я уже очень давно не програмил.Огромное вам спасибо за пояснение.Вы будете долго смеяться,но я совсем забыл,что глобальные переменные,объявленные в модуле видны всей программе и уже собирался писать для этих целей класс...

[northener]

я совсем забыл,что глобальные переменные,объявленные в модуле видны всей программе

Все переменные объявленные вне процедур/функций являются глобальными, но не все они видны всей программе.