Терминал BComPort выдает иероглифы.

[azzzazzzelDEAN]

Здравствуйте. У меня с компьютером, с помощью виртуального Com-порта, связано устройство(контроллер Arduino). Так вот это устройство отправляет в порт данные.Когда отправляет по одному символу то все приходит нормально, но когда отправляет несколько символов за раз приходят китайские иероглифы.И из сотен иероглифов местами иногда могут проскакивать те символы что я отправлял. может кто подскажет в чем проблема? Сторонние терминалы(например com_terminal-1.9b) принимают все отлично. Принимаю в delphi терминалом который шел в примере с компонентом.
Заранее всем спасибо

[raxp]

...дуина отправляет в аски. Показывайте код приема у вас и дамп, снятый сниффером при данном обмене.

[azzzazzzelDEAN]

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

...дуина отправляет в аски. Показывайте код приема у вас и дамп, снятый сниффером при данном обмене.

код приема:
procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var
S: String;
begin
BComPort1.ReadStr(S, Count);
if cbCRLF.Checked and (S[Length(S)] = #13) then // Добавление перевода строки
S := S + #10;
Memo1.Text := Memo1.Text + S;
end;

фото того что приходит в терминалы.
http://modernlife.ucoz.ru/photo/1-0-5-3

не совсем понял про дамп? как его снять? и какой сниффер пользовать?

[raxp]

Сниффер - Portmon.
Версия Delphi - юникодная? Попробуйте заменить во всех методах string на ansistring или:

procedure tform1.rec(Sender: TObject; Count: Integer);
var s: ansistring;
    i: Integer;
    t: array[1..255] of ansiChar;
begin
 str:= '';
 //bc.ReadStr(s, count);

 BC.Read(t, count);
 for i:= 1 to count do begin
  str:= str + t[i];
 end;
 
 if cbCRLF.Checked and (S[Length(S)] = #13) then // Добавление перевода строки
 S := S + #10;
 
 Memo1.Lines.SetText(Memo1.Lines.GetText + s);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 MEMO1.CLEAR;
...

[azzzazzzelDEAN]

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

Сниффер - Portmon.
Версия Delphi - юникодная? Попробуйте заменить во всех методах string на
...[/CODE]

насчет версии не знаю.а где это посмотреть можно?
а вообще делфи 2009 так что скорее всего юникодный
Portmonom не понял как работать.
Сделал другой утилитой (вот фотка:
http://modernlife.ucoz.ru/photo/1-0-6-3

пример кода который вы привели вставил он не работает, пытался все стринг на ансистринг заменить, но тоже не работает - делфи ругается.

[Slym]

Обычно в таких случаях скорость порта неправильно выставлена.
Пробуй разную скорость

[raxp]

Скорость порта в чужом терминале и у него = 9600.

пример кода который вы привели вставил он не работает, пытался все стринг на ансистринг заменить, но тоже не работает - делфи ругается.

у меня работает. Какую ошибку пишет и как именно вы вставили, тупой копипаст?

Portmonom не понял как работать.

элементарно, выбрать порт, нажать кнопку HEX и захват, дамп - лог обмена в текстовом виде в тему, ваши какахостинги задолбали уже в виде картинок.

[azzzazzzelDEAN]

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

Скорость порта в чужом терминале и у него = 9600.

у меня работает. Какую ошибку пишет и как именно вы вставили, тупой копипаст?

элементарно, выбрать порт, нажать кнопку HEX и захват, дамп - лог обмена в текстовом виде в тему, ваши какахостинги задолбали уже в виде картинок.

подшаманил ваш предыдущий код и вот теперь заработало.

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var str: ansistring;
i: Integer;
t: array[1..255] of ansiChar;
begin
str:= '';

BComPort1.Read(t, count);
for i:= 1 to count do begin
str:= str + t[i];
end;

if cbCRLF.Checked and (Str[Length(Str)] = #13) then // Добавление перевода строки
Str := Str + #10;

//Memo1.Lines.SetText(Memo1.Lines.Get Text + str);
memo1.Text:=memo1.Text+str
end;

На то как вы реализовали запись в Memo компилятор ругается(говорит что то про типы Char и Ansistring).
минуты полторы две погонял вроде косяков нету. и сейчас слово arduino каждый раз приходит с переносом на новую строку а раньше все приходило в одну строку.

в портмоне кнопка порт неактивна и не могу выбрать.
А вот дамп с другой проги:

[25/11/2013 18:16:47] Read data
41 A
[25/11/2013 18:16:47] Read data
52 44 55 RDU
[25/11/2013 18:16:47] Read data
49 4e 4f 0d INO.
[25/11/2013 18:16:47] Read data
0a .
[25/11/2013 18:16:47] Read data
41 A
[25/11/2013 18:16:47] Read data
52 44 55 RDU
[25/11/2013 18:16:47] Read data
49 4e 4f 0d INO.
[25/11/2013 18:16:47] Read data
0a .
[25/11/2013 18:16:47] Read data
41 A
[25/11/2013 18:16:47] Read data
52 44 55 49 RDUI
[25/11/2013 18:16:47] Read data
4e 4f 0d NO.
[25/11/2013 18:16:47] Read data
0a .
[25/11/2013 18:16:48] Read data
41 A
[25/11/2013 18:16:48] Read data
52 44 55 49 RDUI
[25/11/2013 18:16:48] Read data
4e 4f 0d NO.
[25/11/2013 18:16:48] Read data
0a .
[25/11/2013 18:16:48] Read data
41 A
[25/11/2013 18:16:48] Read data
52 44 55 49 RDUI
[25/11/2013 18:16:48] Read data
4e 4f 0d NO.
[25/11/2013 18:16:48] Read data
0a .
[25/11/2013 18:16:48] Read data
41 A
[25/11/2013 18:16:48] Read data
52 44 55 49 RDUI
[25/11/2013 18:16:48] Read data
4e 4f 0d 0a NO..

вот не пойму от куда точки берутся я их то не отправляю.или это норм? в делфи сейчас все нормально без точек приходит

И еще один вопрос. В чем косяк был почему не работало со стандартным примером а с этим заработало?

Сейчас следующая задача у меня будет, отсылать координаты через мое устройство и рисовать на канве в соответствии с этими координатами. Если возникнут вопросы буду спрашивать
А пока Спасибо за помощь

[raxp]

На то как вы реализовали запись в Memo компилятор ругается(говорит что то про типы Char и Ansistring).
минуты полторы две погонял вроде косяков нету.

надо писать что за ошибки в теме сразу. А так, пишу по памяти обычно . Ну, и привести типы к единому тоже вам никто не мешает.

и сейчас слово arduino каждый раз приходит с переносом на новую строку а раньше все приходило в одну строку

вообще, вы так задумали, разве нет? С другой стороны, что вам мешает просто писать - memo.lines.add()?

в портмоне кнопка порт неактивна и не могу выбрать.

ОС семерка? В ней работать не будет, Руссинович ушел оттуда к тому моменту.

вот не пойму от куда точки берутся я их то не отправляю.или это норм?

неотображаемые символы сниффер так отображает, это интерпретация CR LF в данном случае.

И еще один вопрос. В чем косяк был почему не работало со стандартным примером а с этим заработало?

потому что у вас юникодная Delphi + по разному воспринимается тип string в разных версиях (в методе ReadStr() компонента он и используется). У меня же доступ через чтение буфера и непосредственное выделение памяти в один байт для каждого символа в принятом массиве, как и положено.

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

вообще, если вы изначально не обозначили тему как единую, скажем под то же устройство GPS, то принято: 1 вопрос - 1 тема. Иначе месиво будет.

[azzzazzzelDEAN]

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

вообще, вы так задумали, разве нет? С другой стороны, что вам мешает просто писать - memo.lines.add()?

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

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

ОС семерка? В ней работать не будет, Руссинович ушел оттуда к тому моменту.

да 7ка.

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

вообще, если вы изначально не обозначили тему как единую, скажем под то же устройство GPS, то принято: 1 вопрос - 1 тема. Иначе месиво будет.

хорошо если что создам только по уму наверное потоки сделать для этих целей? а то я немного попробовал нифига не работает(одна строка приходит и одна линия рисуется)