Serial Port

[JoseFco]

Hola Amigos.

Tengo el siguiente codigo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr('0200');
Comport1.Connected:=False;
end;
end.

Me explico. Yo quiero mandar dos hex 02 y 00 al puerto serial.Pero al correr este programita me da en el monitor que tengo de serial port eso mismo pero en ascii 30 32 30 30 y yo quiero que me de solo hex 02 00 .

La pregunta. Que estoy haciendo mal?

Gracias y un Saludo.

[[egostar]]

Empezado por JoseFco

Hola Amigos.

Tengo el siguiente codigo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr('0200');
Comport1.Connected:=False;
end;
end.

Me explico. Yo quiero mandar dos hex 02 y 00 al puerto serial.Pero al correr este programita me da en el monitor que tengo de serial port eso mismo pero en ascii 30 32 30 30 y yo quiero que me de solo hex 02 00 .

La pregunta. Que estoy haciendo mal?

Gracias y un Saludo.

Y si mandas esto

Código Delphi [-]
Comport1.WriteStr(#2#0);

Salud OS

[JoseFco]

Un Saludo Egostar.

No pues el monitor dice que eso es exactamente lo que le hacia falta al codigo.

Un millon de gracias Carnal.

[[egostar]]

Empezado por JoseFco

Un Saludo Egostar.

No pues el monitor dice que eso es exactamente lo que le hacia falta al codigo.

Un millon de gracias Carnal.

Ah pues que bien que te sirvio, la cuestion es que en realidad estabas mandando 4 caracteres 0 2 0 0, pero cuando envias caracteres de control como son 00 (NULL), 02 (STX), 03 (ETX), 05 (ENQ), 06 (ACK), 21 (NAK), que son las mas comunes, es necesario enviarlos como te indique.

Salud OS

[canvilem]

No utilices WriteStr porque lo que envías es un String. Seguro que tienes otra función para enviar tus Hex.

[JoseFco]

Hola Canvilem.

La verdad estoy estudiando el comportamiento de un programita que me gustaria emular.Solo puedo leer la parte que corresponde a un micro que lo acompaña.La parte de la aplicacion esta escrita dice que en GUI para windows.Yo quiero hacer algo parecido pero en Delphi y es donde entra la tareita que me he puesto para comenzar con mi primer programita Delphi.(jajajaja nada facil pero esos retos me encantan).Para esto tengo algunas herramientas y todo el tiempo del mundo,(no me apura).La herramienta mas importante para esta primera etapa es esta.Serial con este programita puedo ver el protocolo entre el (target y su esclavo)Los hex esos 02 00 son los que manda el pc al micro OnCreate y espera que el micro le mande 48 69 2D 4C 4F 47 49 43 la aplicacion los compara y si son igual a lo que espera termina de habrir la aplicacion de lo contrario te daria un error " no establecio la comunicacion" algo asi.

Tengo que seguir estudiando el tema y espero, ir superando las etapas una por una.

Un Saludo.

[JoseFco]

Hola Amigos.

Estoy tratando de recivir por el serial port una data y llevarla a un edit.Pero no lo logro.

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls;
type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ComPort1ReceiveCallBack(Data: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;
 procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
Edit1.Text:=(Data);
end;
 
end.

Que esta mal aqui?

Un Saludo.

[[egostar]]

Empezado por JoseFco

Hola Amigos.

Estoy tratando de recivir por el serial port una data y llevarla a un edit.Pero no lo logro.

Que esta mal aqui?

Un Saludo.

Bueno, tal vez no está mal, pero lo que creo que te falta es identificar en que momento recibes toda la cadena (desde principio a fin) desconozco ese componente que usas y no se su formato yo uso dos uno que se llama WSC (de pago) y el APro (Libre) y eso que requieres lo hace sin dificultades.

Salud OS

[[egostar]]

Leyendo un hilo en ASM donde muestras una página con el ejemplo de un code delphi vi esto que me parecio particularmente curioso

Código Delphi [-]
Temperatura:=Ord(Data[1]);

Te recomiendo que hagas un trace de tu codigo y ver que es lo que tiene el String Data.

Salud OS

[JoseFco]

Hola Egostar.

Creo entender la naturaleza del problema y a mi modo de entender.Es un problema de tiempo de ejecucion.Debo darle un tiempo entre el 02 y el 00 que mando al micro.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;

En la aplicacion original se maneja un timer (12 mhz).
Existe alguna forma de frenar el tiempo de ejecucion de una aplicacion Delphi sin importar la velocidad del PC?
Se puede crear un edit donde se pueda crear el tiempo de ejecucion de una aplicacion?

Rodando este programita puedo ver que el micro no responde, esto lo veo en el monitor de serial port que utilizo.Y creo que al no tener un tiempo de retardo entre el 02 y el 00 el micro interpreta 0200 y el tiene que comparar primero 02 ejecutar una rutina luego 00 y determina que hacer en ese caso.( mandar 8 hex de retorno al serial port)

Un Saludo.

[[egostar]]

Empezado por JoseFco

Hola Egostar.

Creo entender la naturaleza del problema y a mi modo de entender.Es un problema de tiempo de ejecucion.Debo darle un tiempo entre el 02 y el 00 que mando al micro.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Comport1.Connected:=true;
Comport1.WriteStr(#2#0);
end;

En la aplicacion original se maneja un timer (12 mhz).
Existe alguna forma de frenar el tiempo de ejecucion de una aplicacion Delphi sin importar la velocidad del PC?
Se puede crear un edit donde se pueda crear el tiempo de ejecucion de una aplicacion?

Rodando este programita puedo ver que el micro no responde, esto lo veo en el monitor de serial port que utilizo.Y creo que al no tener un tiempo de retardo entre el 02 y el 00 el micro interpreta 0200 y el tiene que comparar primero 02 ejecutar una rutina luego 00 y determina que hacer en ese caso.( mandar 8 hex de retorno al serial port)

Un Saludo.

Puedes hacer esto

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   Comport1.Connected:=true;
   Comport1.WriteStr(#2);
   Sleep(12);
   Comport1.WriteStr(#0);
end;

Salud OS

[JoseFco]

Esto es lo que me da el monitor de serial port:

Com1 Opened
Baud Rate=56000
RTS Signal=False
DTR Signal=False
Line Control Change: None- 8- 1

Write 1 Bytes:
02
Write 1 Bytes:
00
Read 8 Bytes:
48 69 2D 4C 4F 47 49 43
Com1 Closed.

Eso es lo que me da el monitor al espiar entre el programa y el micro original.

El programita del micro esta configurado a interrumpir cualquier funcion y hacerle caso al serial port al recibir algo el lo compara y sigue una rutina en este caso al recibir 02 y luego de un tiempo (x) recibir el 00 el pasa a una rutina que manda al serial port de regreso esa cadena de 8 hex (que yo las puedo cambiar, todo lo que esta en el micro, lo puedo cambiar sin problemas, solo que despues de entender bien el funcionamiento de la aplicacion, cambiare algunas cosas del mismo.
En el programa original del pc utilizan como decia un "Target Clock" esto en un edit para poder alterarlo. En realidad el clock del micro no se lo pueden alterar por sofware, entonces entiendo que estan frenando por asi decirlo al pc y que los hex 02 y 00 entren en un tiempo de separacion que le de tiempo al micro de manipularlos, compararlos y tomar decicion de que hacer.

Un Saludo.

[[egostar]]

Para hacer pausas entre cada envio se usa la función Sleep(), puedes ir jugando con los valores, tal vez tambien necesites hacer alguna pausa antes de leer el puerto.

Yo haría una pausa mas larga, por ejemplo 120 ms entre envio y envio y una pausa de 256 ms antes de leer el puerto.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   Comport1.Connected:=true;
   Comport1.WriteStr(#2);
   Sleep(120);
   Comport1.WriteStr(#0);
   Sleep(256);
end;

Salud OS

[JoseFco]

Buano ya cambie el tiempo de Sleep a diferentes parametros y nada.Yo espero que el micro mande los 8 hex y puede que los este mandando.Lo que uso para monitoriar el serial port es un programa 100% software (no usa cables para nada.Solo monitorea las actividades del serial port y no que pasa en su pin de entrada.El micro no espera que el programa lo quiera recibir o no,el solo necesita recibir dos hex 02 y 00 entonces manda al serial port los 8 hex antes mencionados.Si el programa los espera los leeara sino se los pierde,pero el micro no entiende eso.La rutina del micro para mandar algo al puerto serial no esta en dependencia de si el pc los quiere leer o no.(yo entendiendo esto esperaba leerlos en el monitor)Pero si este fuera con cables y estubiera en otra pc los estaria mirando.Ahora si quiero ver si el micro los manda y como el monitor que tengo para ello solo me dira que es lo que el serial port esta recibiendo tendre que estar en la aplicacion al final de esos dos hex 02 y 00 que la aplicacion entre a leer el serial port.
Puede que siga confundido.

Un Saludo.

[[egostar]]

Empezado por JoseFco

Buano ya cambie el tiempo de Sleep a diferentes parametros y nada.Yo espero que el micro mande los 8 hex y puede que los este mandando.Lo que uso para monitoriar el serial port es un programa 100% software (no usa cables para nada.Solo monitorea las actividades del serial port y no que pasa en su pin de entrada.El micro no espera que el programa lo quiera recibir o no,el solo necesita recibir dos hex 02 y 00 entonces manda al serial port los 8 hex antes mencionados.Si el programa los espera los leeara sino se los pierde,pero el micro no entiende eso.La rutina del micro para mandar algo al puerto serial no esta en dependencia de si el pc los quiere leer o no.(yo entendiendo esto esperaba leerlos en el monitor)Pero si este fuera con cables y estubiera en otra pc los estaria mirando.Ahora si quiero ver si el micro los manda y como el monitor que tengo para ello solo me dira que es lo que el serial port esta recibiendo tendre que estar en la aplicacion al final de esos dos hex 02 y 00 que la aplicacion entre a leer el serial port.
Puede que siga confundido.

Un Saludo.

Vamos a hacer una prueba digamos "manual":

Abre hiperterminal, configura los parametros de comunicacion, envia el archivo que adjunto (Menú Transferir, Enviar Archivo de texto) y ve lo que regresa el dispositivo.

El primer hexa, contiene los dos caracteres 02 y 00, los otros son por separado.

Salud OS

[[egostar]]

Una pregunta, veo que estas tratando de usar una velocidad de Baud Rate=56,000, pero.... acaso no será Baud Rate=57,600

Salud OS

[JoseFco]

Yo nunca he usado hiperterminal, no tengo idea ni como hacerlo.Ahora bien tengo un RealTerm:Serial Capture Program y acabo de configurarlo a los parametros del micro, le puce los hex 02 00 seguidos y me dio la respuesta del micro con su cadena de 8 hex.luego los mande por separado manual en dos botones primero el 02 y luego el 00 y me dio la misma respuesta.El micro esta funcionando bien, al parecer es que el programa que uso de monitor como es por software si no mira actividad en el serial port no me lee nada.

Tengo que en la aplicacion delphi despues de mandarle esos hex estar recibiendo el serial port.

Creo que por eso no miro nada en el otro monitor.

[JoseFco]

Ya cambie la velocidad tambien.

Empezado por egostar

Una pregunta, veo que estas tratando de usar una velocidad de Baud Rate=56,000, pero.... acaso no será Baud Rate=57,600

Salud OS

El programita espia al rodar la aplicacion original con el micro me dice que es a 56,000 y puedo leer los 8 hex que retorna el micro.

[[egostar]]

Hice un pequeño programa para capturar lo que se recibe en el puerto, ademas le he puesto las señales del puerto serial para ver cuando se envia y cuando se reciben caracteres y el estado de otras señales importantes.

Espero que esto funcione.

Salud OS

[JoseFco]

Eso esta perfecto.

Cuando lo ruedo con el micro me da los 8 hex, las luces solo son TX and RX.

Dime algo que configuracion tiene el serial port en ese programita?

Un Saludo.