Hola egostar.
La cosa esta asi:Tengo esta funcion que estaria mandando los bytes que se encuentran en el buffer al serial port.Tengo que mandar el primer byte y estaria reciviendo un byte por cada uno que mando (53) esto hasta que se termine el contenido del buffer.Y esta rutina se encargaria de eso, pero no me copila.
Código Delphi
[-]
procedure TForm1.ProcedimientoEscribir;
begin
if CuentaB <= Length(Buffer) then
begin
ComPort.WriteStr(Buffer[CuentaB]);
Inc(CuentaB);
end
else
ComPort.WriteStr(ByteFinTx);
end;
end.
Un Saludo.