Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.08.2011, 15:35   #21
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

никак, это вам не нужно.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 05.08.2011, 19:58   #22
dmitriegorovih
Ещё не
Форумчанин
 
Аватар для dmitriegorovih
 
Регистрация: 04.01.2010
Сообщений: 517
По умолчанию

Цитата:
читабельно конеш, но не совсем то, что хотелось бы получить
А если вот так
Код:
  const
 simvol:array[0..160] of string =
 (' ','!','"','#','$','%','&',#39,'(',')',
  '*','+',',','-','.','/','0','1','2','3',
  '4','5','6','7','8','9',':',';','<','=',
  '>','?','@','A','B','C','D','E','F','G',
  'H','I','J','K','L','M','N','O','P','Q',
  'R','S','T','U','V','W','X','Y','Z','a',
  'b','c','d','e','f','g','h','i','j','k',
  'l','m','n','o','p','q','r','s','t','u',
  'v','w','x','y','z','А','Б','В','Г','Д',
  'Е','Ё','Ж','З','И','Й','К','Л','М','Н',
  'О','П','Р','С','Т','У','Ф','Х','Ц','Ч',
  'Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я','а','б',
  'в','г','д','е','ё','ж','з','и','й','к',
  'л','м','н','о','п','р','с','т','у','ф',
  'х','ц','ч','ш','щ','ъ','ы','ь','э','ю',
  'я','[','\',']','^','_','`','{','|','}','~');
  simvolucs2:array[0..160] of string =
  ('0020','0021','0022','0023','0024','0025','0026','0027','0028','0029',
'002A','002B','002C','002D','002E','002F','0030','0031','0032','0033',
'0034','0035','0036','0037','0038','0039','003A','003B','003C','003D',
'003E','003F','0040','0041','0042','0043','0044','0045','0046','0047',
'0048','0049','004A','004B','004C','004D','004E','004F','0050','0051',
'0052','0053','0054','0055','0056','0057','0058','0059','005A','0061',
'0062','0063','0064','0065','0066','0067','0068','0069','006A','006B',
'006C','006D','006E','006F','0070','0071','0072','0073','0074','0075',
'0076','0077','0078','0079','007A','0410','0411','0412','0413','0414',
'0415','00A8','0416','0417','0418','0419','041A','041B','041C','041D',
'041E','041F','0420','0421','0422','0423','0424','0425','0426','0427',
'0428','0429','042A','042B','042C','042D','042E','042F','0430','0431',
'0432','0433','0434','0435','00B8','0436','0437','0438','0439','043A',
'043B','043C','043D','043E','043F','0440','0441','0442','0443','0444',
'0445','0446','0447','0448','0449','044A','044B','044C','044D','044E',
'044F','005B','005C','005D','005E','005F','0060','007B','007C','007D','007E');
var
  Form1: TForm1;

implementation

{$R *.dfm}

function ucs2(s: string): string;
var i,k: integer;
begin
result:='';
for i:=1 to length(s) do begin
  k:= ord(s[i]);
  if k>=192 then k:= k + 1040 - 192;
  result:= result + inttohex(k,4)
end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,l:integer;
s:string;
begin
s:='';
for l:=1 to length(memo1.Text) div 4 do begin
for i:=0 to 160 do begin
if simvolucs2[i]=copy(memo1.Text,l*4-3,4) then begin
s:=s+simvol[i];
end;
end;
end;
memo2.Lines.Text:=s;
end;

end.
Я понимаю что метод возможно громоздкий но все равно работает )
Воображение важнее, чем знания. (Albert Einstein)
dmitriegorovih вне форума Ответить с цитированием
Старый 05.08.2011, 20:35   #23
Vova777
Уважаемый
Форумчанин
 
Аватар для Vova777
 
Регистрация: 04.07.2010
Сообщений: 318
По умолчанию

Как вы в этих кодах разбираетесь? Я ничего понять не могу.
даешь высокое напряжение
Vova777 вне форума Ответить с цитированием
Старый 11.04.2021, 15:09   #24
VGuller
Пользователь
 
Регистрация: 08.04.2021
Сообщений: 10
По умолчанию

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


[11/04/2021 16:26:43]
165 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 12
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
167 IRP_MJ_READ - Transfers data from a COM port to a client (COM4) - 12 bytes of 12
STATUS_SUCCESS
0f 0f 0f 04 00 00 eb 0a 00 00 00 ea ......л....к
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
169 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_WAIT_ON_MASK - Request is used to wait for the occurrence of any wait event specified by using an IOCTL_SERIAL_SET_WAIT_MASK request
Mask - 0x00000001 (EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
171 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_WAIT_MASK - Request returns the event wait mask that is currently set on a COM port
Mask - 0x00000119 (EV_CTS | EV_DSR | EV_RING | EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
173 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 0
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
175 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_WAIT_ON_MASK - Request is used to wait for the occurrence of any wait event specified by using an IOCTL_SERIAL_SET_WAIT_MASK request
Mask - 0x00000001 (EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
177 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_WAIT_MASK - Request returns the event wait mask that is currently set on a COM port
Mask - 0x00000119 (EV_CTS | EV_DSR | EV_RING | EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
179 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 12
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
181 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 12
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
183 IRP_MJ_READ - Transfers data from a COM port to a client (COM4) - 12 bytes of 12
STATUS_SUCCESS
0f 0f 0f 05 00 00 eb 0a 00 00 00 eb ......л....л
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
185 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_WAIT_ON_MASK - Request is used to wait for the occurrence of any wait event specified by using an IOCTL_SERIAL_SET_WAIT_MASK request
Mask - 0x00000001 (EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
187 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_WAIT_MASK - Request returns the event wait mask that is currently set on a COM port
Mask - 0x00000119 (EV_CTS | EV_DSR | EV_RING | EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
189 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 0
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
191 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_WAIT_ON_MASK - Request is used to wait for the occurrence of any wait event specified by using an IOCTL_SERIAL_SET_WAIT_MASK request
Mask - 0x00000001 (EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
193 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_WAIT_MASK - Request returns the event wait mask that is currently set on a COM port
Mask - 0x00000119 (EV_CTS | EV_DSR | EV_RING | EV_RXCHAR)
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
195 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 12
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
197 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
STATUS_SUCCESS
IOCTL_SERIAL_GET_COMMSTATUS - Request returns information about the communication status of a COM port
Errors - 0
HoldReasons - 0
AmountInInQueue - 12
AmountInOutQueue - 0
EofReceived - 0
WaitForImmediate - 0
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
199 IRP_MJ_READ - Transfers data from a COM port to a client (COM4) - 12 bytes of 12
STATUS_SUCCESS
0f 0f 0f 06 00 00 eb 0a 00 00 00 e8 ......л....и
----------------------------------------------------------------------------------
[11/04/2021 16:26:43]
201 IRP_MJ_DEVICE_CONTROL - Request operates a serial port (COM4)
VGuller вне форума Ответить с цитированием
Старый 12.04.2021, 12:27   #25
FrosyaZZ
Форумчанин
 
Регистрация: 16.11.2020
Сообщений: 243
По умолчанию

Цитата:
Сообщение от VGuller Посмотреть сообщение
на панели есть графические символы которые меняют цвет в зависимости от потока данных
Что на что меняется тоже надо угадать?

А по сути уберите мусор из лога и можно погадать:
Код:
0f 0f 0f 05 00 00 eb 0a 00 00 00 eb
0f 0f 0f 05 00 00 eb 0a 00 00 00 eb
0f 0f 0f 06 00 00 eb 0a 00 00 00 e8
И уже видно
0f 0f 0f хх - номер пакета или простенький заголовок и номер пакета
00 00 eb 0a - команда
00 00 00 e8 - параметр
а дальше смотрите, чем e8 от eb отличается
FrosyaZZ вне форума Ответить с цитированием
Старый 12.04.2021, 14:05   #26
VGuller
Пользователь
 
Регистрация: 08.04.2021
Сообщений: 10
По умолчанию

в программе разбито все по группам , если я возьму параметр 0f0f0f03 присвою одной группе символов а в этой группе 30 графических символов каждому символу присвою константу поступащих данных из лога и получится при совпадении данных из потока комбинации какомуто символу то он будет менять цвет на любой который я задам, и тд группы 0f0f0f03 0f0f0f04 0f0f0f05 и тд
VGuller вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
определение принятых данных Lokos Работа с сетью в Delphi 0 25.10.2010 14:32
Асинхронная обработка принятых данных от порта osandr Общие вопросы Delphi 3 02.06.2010 09:32
зашифровка и расшифровка данных cl0oud Фриланс 11 02.04.2010 08:18
зашифровка и расшифровка данных cl0oud Общие вопросы Delphi 6 01.04.2010 17:27
Считывание и расшифровка (интерпретация) данных с lpt порта, передаваемых печатающему устройству Ma3a Общие вопросы Delphi 3 21.12.2009 08:46