![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как преобразовать данные прочитанные с com порта? [D7, 2000]
Сергей © (2011-03-14 18:10:00)Использую компонет CommPortDriver для чтения сомпорта
в обработчике пытаюсь обработать данные.
На компорт подаю число но после чтения получаю козяблики.
Как их преобразовать в число?
procedure TMainForm.CommPortDriverReceiveData(Sender: TObject;
DataPtr: Pointer; DataSize: Integer);
var
i:integer;
s,L:string;
begin
For i:=0 to (DataSize-1) do begin
s:=s+ PChar(DataPtr)[i];
end;
RxMemo.lines.add(s);
end;
Сергей (2011-03-16 13:08:00) [1]Данные отображались не правильно т.к скорость чтения comпорта была не 115200 бод. Выставил эту скорость все отображается.
Германн (2011-03-14 18:19:00) [2]Если передается текст, то так
s:=s+ Char(DataPtr[i]);
Если не текст, то можно такs:=s+#32+IntToHex(DataPtr[i]);
Германн (2011-03-14 18:12:00) [3]
> На компорт подаю число
Какое число?