Control de barrera vehicular desde delphi

[[Al González]]

Hola Víctor.

Por lo que se ve en el manual, la controladora que mencionas posee una tarjeta de relevadores parecidas a las que manejé hace algunos años para control vehicular.

Por lo que veo las conexiones BT, BTA1, BTA2... (página 6 del manual) corresponden a uno de los bits del puerto serial. Si, por ejemplo, envías por ese puerto el valor byte 5, que en binario es 00000101, posiblemente estarías activando los relevadores de BT y BTA2 (primer y tercer bit), llevándose a cabo las acciones que corresponden a esas señales.

En su momento usé la biblioteca de componentes "TurboPower Async", aunque hay muchos otros componentes para comunicación a través de los puertos.

Espero no haya sido inútil este intento de orientación mío. Por cierto, en la sección Trabajo del foro hay muchos colegas que pueden ayudarte a resolver el problema de manera profesional.

Hasta luego.

Al González.

[VictorPenyalver]

Hola Al,

Es un proyecto para la empresa donde trabajaba antes (ahora lo hago como externo), y que también usaré como proyecto final de carrera (lo tenía aparcado desde hace unos añitos jejejeje) con lo que no es posible pedir que lo haga un experto en estos campos.

Es todo un detalle que te hayas tomado la molestia de leerte hasta el manual con lo pesado que es, muchas gracias por tu ayuda.
Estos días haré unas pruebas, a ver si hay suerte!

Un saludo!

[VictorPenyalver]

Buenos días,

Ya he podido realizar pruebas, y no ha funcionado.
El conversor RS232/TCP tiene una web de configuración donde se le indican los parámetros necesarios para convertir una comunicación tcp en una serie.

Con todo lo anterior bien configurado debería recibir los comandos que quiero enviar al dispositivo(mo 63) por la ip 192.168.100.111 en el puerto 10001 , y convertirlo en una comunicación serie (con el mo 63) con los parámetros: Baud Rate = 19200, Data Bits = 8, Stop bits = 1, Parity = 0, Flow Control = None, FIFO = Enable.

Vamos, que le envío algo al dispositivo desde mi pc a través de un socket pero es como si lo enviara por el puerto serie.

Éste es el código que uso para enviar el comando. El comando es un 5 (00000101) como bien me indico Al Gonzalez.

Código Delphi [-]
var

   buffer : array [0..1] of byte;
   mem_ste : TMemoryStream;

begin

  if ClientSocket1.Active then begin
       
       mem_ste := TMemoryStream.Create;
       buffer[0] := 5;
       mem_ste.Write(buffer[0],length(buffer));
       ClientSocket1.Socket.SendStream(mem_ste);

  end else ShowMessage('El puerto está cerrado');

end;

Puede tener algo que ver el bit Stop? Yo solo envío un byte y no se si éste bit va dentro del dato o no.
Que hago mal? El dispositivo no responde a nada de lo que le envío, y funciona bien con su software (que paro antes de hacer las pruebas para que no haya conflictos).

Muchas gracias por vuestra ayuda!