Hola egostar.
Este es el codigo en realidad.
Código Delphi
[-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort.ReadStr(Str, Count);
AddHexString(Str,Memo.Lines);
if length(Str)>= 8 then
if Str = 'Hi-LOGIC' then
showmessage('¡OK! ¡ES ORIGINAL!')
else if Str = '01' then
Comport.WriteStr(#2#2)
else
showmessage('¡HORROR!, ¡ES PIRATA!');
end;
Creo que aqui esta el problema.Yo tengo esa rutina que al comenzar recibe
algo que me envia el chip y si es = continua el programa.Creo que aqui esta la cosa.
Dejame estudiar eso ultimo que mandastes.
Un Saludo.