Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как преобразовать данные прочитанные с 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]


> На компорт подаю  число

Какое число?


Наверх

Титульная страница Поиск, карта сайта Написать письмо