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

[azzzazzzelDEAN]

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

...пользуйте memo.doublebuffered в true.

Но вообще, складировать данные в визуальном компоненте плохой тон, память отжирает. Пишите данные в файл, а для отображения используйте последние 100-1000, на ваш выбор.

жалко что отладкой нельзя попользоватся пока я отлаживаю устройство данные отсылает. а без отладки немогу реализовать нормально фильтрацию строки (R 2 34; D 2 30 в 234 и 230.
а если сделать эмуляцию ком порта на теймере? и так отладить или есть более гуманные методы?

[azzzazzzelDEAN]

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

function TransToRange(var str: string): string;
var
i:integer;
begin
for I := 1 to length(str) do
begin
if (KeyRange=0) and (str[i]='R') then
begin
StrRange:='';
//StrRange:=StrRange+str[i];
KeyRange:=1;
end;

if (KeyRange=1) and (str[i]<>'R') and (str[i]<>'D') and (str[i]<>';') then
begin
StrRange:=StrRange+str[i];
end;

if (KeyRange=1) and (str[i]=';') then
begin
Result:=StrRange;
KeyRange:=0;
end;
end;
end;

function TransToDeg(var str2: string): string;
var
i:integer;
begin
for I := 1 to length(str2) do
begin
if (KeyDeg=0) and (str2[i]='D') then
begin
StrDeg:='';
//StrDeg:=StrDeg+str2[i];
KeyDeg:=1;
end;

if (KeyDeg=1) and (str2[i]<>'R') and (str2[i]<>'D') and (str2[i]<>';') then
begin
StrDeg:=StrDeg+str2[i];
end;

if (KeyDeg=1) and (str2[i]=';') then
begin
Result:=StrDeg;
KeyDeg:=0;
end;
end;
end;

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var str: ansistring;
ResivData,StrRange,StrDeg:string;
i,rt: Integer;
t: array[1..255] of ansiChar;
begin
str:= '';
//bc.ReadStr(s, count);

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

StrRange:=TransToRange(ResivData);
StrDeg:=TransToDeg(ResivData);

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

if StrRange<>'' then
memo2.lines.Add(StrRange);

if StrDeg<>'' then
memo3.lines.Add(StrDeg);
end;

может более грамотно можно было сделать? функции возвращают числа в String. если сделать чтоб возвращала в интегер начинает высакивать в мемо фигня всякая. какието левые числа.

[imv14]

Всем добрый день. Подскажите пожалуйста. Есть устройство ардуино, которое посылает в ком порт по 10 байт. Как с помощью компоненты bc_port, правильно принимать байты и записывать их в массив.
Как я понял надо использовать BComPort1RxChar принимать по 10 байт, записывать их в массив, обрабатывать, затем следующие 10 байт снова перезаписывать в этот же массив?
С ардуино посылаю байтами (write), а не символами (print).