Reisah

blza, obrigado pela ajuda.... Identifiquei meu problema, para enviar os valores hexadecimais em pascal eu deveria enviar $40 ao invés de 0x40, por exemplo. Agora estou com outro problema como tratar os valores recebidos na comport, estou lendo eles como String, mais gostaria de trabalhar com os valores em hexadecimal, sei que posso ler através do Read, ao invés do ReadStr, mais qual o tipo de variavel eu devo usar para armazenar o buffer da serial e como eu posso jogar o valor em um form apenas para visualização???. procedure TForm1.CPRxChar(Sender: TObject; Count: Integer); var S:string; begin cp.ReadStr(S, 13); cp.ClearBuffer(True, True); memo1.Text:=memo1.Text+S; end; end;

Possuo um controle de acesso com biometria em usb, mais devido a limitação do cabo usb de 5m, estou migrando para serial. No entanto não existe biblioteca ou sdk para desenvolvimento via serial, tudo tem que ser feito na mão mesmo. Estou utilizando o component Tcomport para comunicar com o leitor mais não tenho obtido nenhuma resposta. Confesso que estou totalmente perdido. O protocolo do leitor é o seguinte: StartByte|Comand Byte|Param1|Param2|Error/Flag|CheckSum|StopByte 1byte 1byte 4byte 4byte 1byte 1byte 1byte O inicio do pacote deve ser: Start code: 1 byte. Indicates the beginning of a packet. 0x40, corresponding to ‘@.’ O final do pacote: End code: 1 byte. LF (‘\n’, 0x0D). Indicates the end of a packet. O comado para checar o leitor: 1.Check finger Code of command|Param1| Param2 |Flag/Error 0x4B 0x00000000 0x00000000 0x00 Check and inform host if there is finger on the scanning window Return to Host 0x00 Contrast value 0x00000000 0x40 (if finger is) 0x41(if there isn’t finger ) Agora minha duvida, como faço para mandar estes valores para o leitor utilizando o Tcomport??? Já tentei simplesmente escreve-los pelo writeStr, mais não tive nenhum sucesso. Vi um modelo feito em C++, estes valores 0x00, 0x40, 0x4B, etc., são escritos no tipo byte, mais tentei escreve-los como byte, mais o delphi so reconhece o '0' inicial. Tentei como char também, tive o mesmo problema. Agradeço se alguém puder me ajudar.