13 respuestas en este tema

[egostar]

Hola

Pues si, estoy incrustando un panel con algunos componentes que me muestran el estado de las señales de puertos seriales, mi problema es que se quedan encendidas (cuando llegan datos al puerto) y no cambian su estado a apagadas (cuando se cierra la comunicación o cuando deja de enviar datos al puerto)

¿ Alguien ha hecho algo similar o ha tenido el mismo problema ?

Les adjunto unas imagenes de lo que les estoy explicando.

Salud OS

PD, Estoy usando este truco que me encontré.

Archivos adjuntos

•  1226_0995471eeeac6971ef5e4f60f53e0e7a33d35c11.jpg   19,71KB   13 descargas

[Delphius]

Hola Eliseo,
Desconozco como estarás operando el puerto serie... creería que estás usando el componente Apro (o algo así) que tanto se ha mencionado.

¿Por casualidad no tendrás alguna variable de control, o flag y te olvidaste de cambiar o actualizar de valor en algún proceso o rutina? Se que lo que digo puede sonar tonto pero es posible...

Al no tener idea de como llevas la programación pues no te sabría decir.

Saludos,

[egostar]

Hola Eliseo,
Desconozco como estarás operando el puerto serie... creería que estás usando el componente Apro (o algo así) que tanto se ha mencionado.

¿Por casualidad no tendrás alguna variable de control, o flag y te olvidaste de cambiar o actualizar de valor en algún proceso o rutina? Se que lo que digo puede sonar tonto pero es posible...

Al no tener idea de como llevas la programación pues no te sabría decir.

Saludos,

Efectivamente, uso el Apro, los "leds" que ves que se ponen en rojo operan en base a las señales que le llegan del componente apdComPort, no hay que hacer nada, esto lo hago sin problema fuera del StatusBar y las señales cambian correctamente.

Pienso que algo de lo que se hace al incrustarlo en el Statusbar es lo que les está cambiando su modo de operar.

Yo solo hago esto en la programación

delphi

  InicializaCOM; // Asigno los parámetros de comunicación en el puerto seleccionado.
  ApdSLController1.Monitoring := true; // Activo el monitoreo de señales

Eso es todo lo que se tiene que hacer. Muchas gracias por leerme a estas horas

Salud OS

[Delphius]

Hola Eliseo, de suerte me agarras... aquí son las 12:23 am, siento cansancio pero desde hace días que me está costando dormir por más sueño que tenga .

Nunca he usado el componente... si tiene esa propiedad Monitoring, intuyo que debe tener algún evento del tipo "OnMonitoring" o algo parecido... ¿Podemos ver lo que tienes en ese evento que desconozco ?

Por cierto, si es como dices que quizá se deba al inscrustado... me gustaría saber que tienes programado en el evento OnDrawPanel.

Intuyo que una combinación entre el hipotético OnMonitoring/OnDrawPanel está escondido el bicho.

Saludos,

[egostar]

Este es el código para incrustar el panel, el componente de monitoreo no tiene eventos

delphi

procedure TfrmSTarw.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel = StatusBar.Panels[2] then
  with Panel2 do
  begin
    Top := Rect.Top;
    Left := Rect.Left;
    Width := Rect.Right - Rect.Left - 4;
    Height := Rect.Bottom - Rect.Top;
  end;
end;
 
procedure TfrmSTarw.FormCreate(Sender: TObject);
var
  PanelStyle: integer;
begin
  StatusBar1.Panels[2].Style := psOwnerDraw;
  Panel2.Parent := StatusBar1;
  PanelStyle := GetWindowLong(Panel2.Handle,GWL_EXSTYLE);
  PanelStyle := PanelStyle - WS_EX_STATICEDGE;
  SetWindowLong(Panel2.Handle,GWL_EXSTYLE,PanelStyle);
 
  .......
end;

Salud OS

[Delphius]

Ummm... no veo alguna línea de código que sugiera que se cambie el color ....

¿En que parte o como es que le haces cambiar el color de los paneles? Porque quiero pensar que inicialmente están de verde, y si cambiaron al color rojo (o a la inversa, inicialmente rojo y luego a verde)... es porque hay algún procedimiento/rutina que lo hace...

Allí está el asunto amigo

Saludos,

[egostar]

Voy a darle una buena revisada a todo el code a ver si encuentro algo, ya te diré que pasó y si pude solucionarlo.

Muchas gracias amigo Marcelo.

Salud OS

[egostar]

Bueno, pues ya logre resolver este asunto, pues nada, me fuí a despejar un rato y recordé que no estaba realizando la lectura del buffer del puerto, así que era obvio que no iba a funcionar como debe ser.

Les dejo la imagen tal y como debería de funcionar.

Mea Culpa. :$

Salud OS

Archivos adjuntos

•  1228_463206e60e81beed4d2027d80b36ea2657397e06.jpg   13,02KB   8 descargas

[luk2009]

Hola Egostar

Me gustaria saber que componente usas para los cuadritos de colores y que eventos debo atrapar del apdcomport para detectar los cambios y cambiar el color.  En mi caso me da igual que sea en el status bar, porque lo puedo poner en un panel dentro del form

gracias

[Delphius]

Me alegro que lo hayas solucionado

Luk2009, los cuadritos de colores que puso eliseo no es más que unos TPanels

Sobre la segunda parte de la pregunta no sabría responder... no uso el dichoso componente.

Saludos,

[egostar]

Me alegro que lo hayas solucionado

Luk2009, los cuadritos de colores que puso eliseo no es más que unos TPanels

Los 'cuadritos' son los componentes llamados TApdStatusLight que vienen en la carpeta de los APro y estos están ligados al componente TApdSLController, en mi caso solo usé 4 que representan las señalizaciones seriales de RX (recepción), CTS (Clear to Send), DCD (Data Carrier Detect) y DSR (Data Set Ready), hay otras señalizaciones más que son BRAKELight, ERRORLight, RINGLight y TDXLight (éste último lo utilizo para comunicaciones bidireccionales, en este caso solo es de recepción por eso no lo he incluido) de tal suerte que puedes utilizar hasta 8 señalizaciones para monitorear los puertos.

Lo que hice fue 'meter' en un TPanel todos estos componentes y sus etiquetas para no incrustar uno por uno de los componentes al StatusBar ahorrandome mucho código......

Una vez que están asignados los 'leds' al TApdSLController solo hay que activarlo con la línea que escribí mas arriba...

delphi

ApdSLController1.Monitoring := true; // Activo el monitoreo de señales

Salud OS

[egostar]

Les muestro las pantallas de como se realiza en tiempo de diseño lo que acabo de comentar.

Una es la asignación de leds en el componente de monitoreo y la otra es el antes y después de como se diseñó el panel de luces.

Salud OS

Archivos adjuntos

•  1232_ef53c6f178a2cd969810dda9fe04579058baf28b.jpg   24,18KB   4 descargas
•  1230_c525c0cf20501943b246a0fd00567a56cff0a525.jpg   24,23KB   3 descargas

[luk2009]

Egostar me imagino que debo poner

ApdSLController1.Monitoring := true; // Activo el monitoreo de señales 

en el oncreate del form?

[egostar]

Egostar me imagino que debo poner

ApdSLController1.Monitoring := true; // Activo el monitoreo de señales 

en el oncreate del form?

Si, lo puedes poner ahí, aunque yo suelo usar el evento OnShow casi siempre, solo es un estilo personal .

Salud OS