Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.21.231.245] |
|
Сообщ.
#1
,
|
|
|
Читаю из ком порта . как результат преобразовать в текст. если пробую Char() то получаю иероглифы
procedure TCommThread.QueryPort; var MyBuff:array [0..66] of Char; i: byte; Begin all_buf:=''; FillChar(MyBuff,SizeOf(MyBuff),#0); ReadFile(ComFile,MyBuff,SizeOf(MyBuff),BytesRead,Nil); If BytesRead>0 Then Begin for i:=0 to length(Mybuff)-1 do begin all_buf:=all_buf+' '+inttostr(ord(MyBuff[i])); end; Form1.Memo1.Lines.Text:=(all_buf); End; end; 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 14129 3381 12554 13623 2573 |
Сообщ.
#2
,
|
|
|
закрыто. копировать вставлять вредно))
|
Сообщ.
#3
,
|
|
|
В компорт, вероятно, приходят AnsiChar
|
Сообщ.
#4
,
|
|
|
Да я что то затупил. у меня же не текст приходят а цифры только. сделал не массив а один байт читать. и сразу в char
|