24 respuestas en este tema

[Meta]

Hola:

 

Haciendo pruebas, tengo Delphi 10.2 y aquí por fin encontré un tutorial de como instalar el comport.

 

https://www.youtube....h?v=3_YIzPKii58

 

La librería comport:

https://sourceforge....ojects/comport/

 

Voy hacer la interfaz así:

 

Teniendo el código de Arduino abajo y funciona bien:

php

const byte Led = 13;   // Declaramos la variable pin del Led.
char caracter;
String comando;
 
void setup()
{
  pinMode(Led, OUTPUT);  // Inicializa el pin del LED como salida:
  Serial.begin(115200);     // Puerto serie 115200 baudios.
}
 
void loop()
{
  /*
    Voy leyendo carácter a carácter lo que se recibe por el canal serie
    (mientras llegue algún dato allí), y los voy concatenando uno tras otro
    en una cadena. En la práctica, si usamos el "Serial monitor" el bucle while
    acabará cuando pulsamos Enter. El delay es conveniente para no saturar el
    canal serie y que la concatenación se haga de forma ordenada.
  */
  while (Serial.available() > 0)
  {
    caracter = Serial.read();
    comando.concat(caracter);
    delay(10);
  }
 
  /*
    Una vez ya tengo la cadena "acabada", compruebo su valor y hago que
    la placa Arduino reacciones según sea este. Aquí podríamos hacer lo
    que quisiéramos: si el comando es "tal", enciende un Led, si es cual,
    mueve un motor... y así.
  */
 
  // Si le llega el mensaje Luz_ON.
  if (comando.equals("Luz_ON") == true)
  {
    digitalWrite(Led, HIGH); // Enciende el Led 13.
    Serial.write("ON - Led encendido.");    // Envía este mensaje a C++.
  }
 
  // Si le llega el mensaje Luz_ON.
  if (comando.equals("Luz_OFF") == true)
  {
    digitalWrite(Led, LOW); // Apaga el Led 13.
    Serial.write("OFF - Led apagado. ");  // Envía este mensaje a C++.
  }
 
  // Limpiamos la cadena para volver a recibir el siguiente comando.
  comando = "";
}

Falta entender bien como se envía comandos desde Delphi:

 

Como puedes ver arriba en Arduino que hice, mi idea en enviar estos dos comandos.

Luz_ON
Luz_OFF

Lo que en Delphi sería así:

php

begin
  if Puerto.Connected then Puerto.Write("Luz_ON"); // Enciende el Led.
end;

En DElphi estoy demasiado oxidado, poco a poco vuelvo a los andares.

 

Cualquier información bienvenido sea.

 

Saludos.

[egostar]

Falta entender bien como se envía comandos desde Delphi:

 

Como puedes ver arriba en Arduino que hice, mi idea en enviar estos dos comandos.

Luz_ON
Luz_OFF

Lo que en Delphi sería así:

php

begin
  if Puerto.Connected then Puerto.Write("Luz_ON"); // Enciende el Led.
end;

En DElphi estoy demasiado oxidado, poco a poco vuelvo a los andares.

 

Cualquier información bienvenido sea.

 

Saludos.

 

Hola

 

Voy a escribir algo basado en tu código y lo comparto para que hagas pruebas.

 

Saludos

[Meta]

Tengo un problema, debo instalar la librería y me da error por todas partes.

Quiero instalar una librería que se llama comport que es el componeten para controlar el puerto serie.

ComPort Library

Estoy siguiendo el vídeo tutorial abajo que usa Delphi 10.1, sigo los paso y me da errores por todas partes.

Ver víeo.

Guardo la carpeta donde está los proyectos que hago como si fuera un proyecto más.
Selecciono la librería tal como indica en el vídeo.



Pulse el archivo que pulse para abrir, me sale este error.



¿Hay alguna solución?

Saludos.

[egostar]

Preguntas

 

¿Ya agregaste el path a Delphi Options --> Library?

 

¿Estas utilizando Delphi 10.2 Starter?

 

 

Voy a intentarlo.

 

Saludos

[egostar]

Hola

 

Algo estas haciendo mal, ya lo he instalado en Delphi 10.2 Tokio Starter sin problema alguno.

 

Saludos

Archivos adjuntos

•  comport_01.png   187,78KB   2 descargas
•  comport.png   198,2KB   2 descargas
•  comport_02.png   33,71KB   2 descargas

[egostar]

Hola

 

Pues ya hice una pequeña prueba con Hyperterminal, Mini Terminal y un emulador de puertos (mi maquina no tiene puertos seriales)

 

Con ésto ya solo es coser y cantar para que funcione con Arduino.

 

Saudos

Archivos adjuntos

•  comport_03.png   145,78KB   2 descargas

[Meta]

Hola:

 

 

Preguntas

 

¿Ya agregaste el path a Delphi Options --> Library?

 

¿Estas utilizando Delphi 10.2 Starter?

 

 

Voy a intentarlo.

 

Saludos

 

Sí en las dos preguntas.

 

 

Se comporta como que no he hecho nada.

 

Entonces. ¿Cuál es el problema?

 

Justo en este otro vídeo en el minuto 2:17, no me aparece el archivo indicado a la derecha para selecconar el install pack.

 

Ver vídeo.

 

Saludos.

[Meta]

Hola de nuevo:
 
Ya me funciona en parte. Puedo encender y apagar el Led.
 
Formulario principal.

 
Código completo:

delphi

unit Principal;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, CPort;
 
type
  TForm1 = class(TForm)
    Button_ON: TButton;
    Button_OFF: TButton;
    Label1: TLabel;
    ComPort1: TComPort;
    Button_COM: TButton;
    Button_Abrir: TButton;
    Memo_Mensajes: TMemo;
    Label_Mensajes: TLabel;
    Button_Limpiar: TButton;
    procedure Button_COMClick(Sender: TObject);
    procedure Button_AbrirClick(Sender: TObject);
    procedure ComPort1AfterClose(Sender: TObject);
    procedure ComPort1AfterOpen(Sender: TObject);
    procedure Button_ONClick(Sender: TObject);
    procedure Button_OFFClick(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
    procedure Button_LimpiarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button_AbrirClick(Sender: TObject);
begin
  if ComPort1.Connected then
  begin
    ComPort1.Close;
 
    Button_COM.Enabled := True;
    Button_ON.Enabled := False;
    Button_OFF.Enabled := False;
  end
 
  else
 
  begin
    ComPort1.Open;
 
    Button_COM.Enabled := False;
    Button_ON.Enabled := True;
    Button_OFF.Enabled := True;
  end;
end;
 
procedure TForm1.Button_COMClick(Sender: TObject);
begin
ComPort1.ShowSetupDialog;
end;
 
procedure TForm1.Button_LimpiarClick(Sender: TObject);
begin
Memo_Mensajes.Clear();
end;
 
procedure TForm1.Button_ONClick(Sender: TObject);
begin
ComPort1.WriteStr('Luz_ON');
end;
 
procedure TForm1.Button_OFFClick(Sender: TObject);
begin
ComPort1.WriteStr('Luz_OFF');
end;
 
procedure TForm1.ComPort1AfterClose(Sender: TObject);
begin
  if Button_Abrir <> nil then
    Button_Abrir.Caption := 'Abrir';
end;
 
procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
Button_Abrir.Caption := 'Cerrar';
end;
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);
  Memo_Mensajes.Text := Memo_Mensajes.Text + Str;
end;
 
end.

Si te fijas bien en la imagen de arriba ocurren dos cosas que no me gusta.
 
1. No hace el truco del #13#10 para que se muestre en cada línea en el Memo. Si incluyo el #13#10 como qu ea veces, los mensajes me vienen como partido en dos.

delphi

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);
  Memo_Mensajes.Text := Memo_Mensajes.Text + Str + #13#10;
end;

2. La barra de scroll del Memo, si se llena mucho de mensajes, se llena como es lógico, pero no muestra los datos recientes. ¿Se puede solucionar?
 
Saludos.

[egostar]

Yo cambiaría éste procedimiento:

delphi

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);
  Memo_Mensajes.Text := Memo_Mensajes.Text + Str;
end;

 por ésto
 

delphi

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);
  Memo_Mensajes.Lines.Add( Str );
end;

Dime que sucede.
 
Saludos

[Meta]

Buenas:

 

Funciona bien tal como lo quiero.

 

Falta un detalle, a veces las cadenas de texto como que saltan o no se muestra correctamente.

 

¿Qué puede ser y cómo se soluciona?

 

Probando en otro Terminal si funciona  de maravilla.

 

Saludos.

[egostar]

Buenas:

 

Funciona bien tal como lo quiero.

 

Falta un detalle, a veces las cadenas de texto como que saltan o no se muestra correctamente.

 

¿Qué puede ser y cómo se soluciona?

 

Probando en otro Terminal si funciona  de maravilla.

 

Saludos.

 

Hola

 

El asunto es que no siempre se puede leer todos los caracteres enviados, quiero decir, no se están leyendo los paquetes completos, en tu imagen recibió el primer paquete sin el punto, despúes se reciubió el punto, el tercero se recibio completo y el cuarto se recibió la mitad y en otro paquete la otra mitad, para poder resolver el asunto hay que analizar lo que nos llega y determinar el inicio y el final de los paquetes enviados.

 

Si puedes guardar en un archivos de texto algunos paquetes te puedo ayudar a ordenar los paquetes. 

 

Saludos

[Meta]

Buenas:
 
Por lo que veo, usar esto.

delphi

Memo1.Lines.SaveToFile(archivo.txt);
Memo1.Lines.LoadFromFile(archivo.txt);

El resultado es el mismo que en el MEmo cuando lo guardas en el txt.

delphi

ON - Led encendido.
OFF - Led apagado. 
ON - Led encendido.
OFF - Led
 apagado. 
ON - Led encendido.
OFF - 
Led apagado. 
ON
 - Led encendido.
OFF - Led apagado. 
ON - Led encen
dido.
OFF - 
Led apagado. 
ON - Led 
encendido.
OFF - Led apagado. 
ON - Led encendido.
OFF - Led apaga
do. 
ON - Led encendido.
OFF - Led apagado. 
ON - Led encendido.
ON - Led encendi
do.
ON - Led en
cendido.
ON - L
ed encendido.
O
N - Led encendido.
ON - Led encendido.
ON - Led encendido.
ON - Led encendido.
ON - Led encendido.
ON - Led encendido.
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apa
gado. 
OFF - Le
d apagado. 
O
FF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led ap
agado. 
OFF 
- Led apagado. 
O
FF - Led apagado. 
ON
 - Led encendido.
ON - Led
 encendido.
ON - Le
d encendido.
ON - Led encendido.
ON - Led encendido.
ON - Led encendido.
ON - Led encendido
.
ON - Led ence
ndido.
ON - Led encendido.
ON - Led encendido.
ON - Led encendido.
OFF - Led apagado. 
OFF - Led apagad
o. 
OF
F - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado. 
OFF - Led apagado
. 
OFF - Led apa
gado. 
ON - Led encendido.
ON - Led encendido.
ON - Led encendido.

delphi

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count); // Recibe caracteres desde el puerto.
  Memo_Mensajes.Lines.Add( Str ); // Muestra los textos en pantalla.
 
  Memo_Mensajes.Lines.SaveToFile('archivo.txt');
 
end;

Salu2.

[egostar]

Buenas:
 
Por lo que veo, usar esto.

 

El resultado es el mismo que en el MEmo cuando lo guardas en el txt.

 

Hola

 

Conecta tu Arduino a Hyperterminal y guarda todo lo que recibes en un archivo de texto. adjunta el archivo para poder descargarlo y revisar lo que contiene.

 

Saludos

[Meta]

 

Para poder ver el Terminal de Windows, debo escribir Luz_ON y Hyperterminal no me deja.

[egostar]

 

Para poder ver el Terminal de Windows, debo escribir Luz_ON y Hyperterminal no me deja.

 

Veamos, cierra tu aplicacion, abre Hyperterminal y conecta al puerto serial que está conectado a Arduino, presiona ENTER y luego escribe Luz_ON y presiona ENTER, no vas a ver nada en Hyperterminal, pero sí estás enviando a Arduino. Para apagar igual, escribe Luz_OFF y presiona ENTER. Antes de conectarte a Arduino, indicale a hyperterminal que guarde todo lo que pase por el puerto.

 

Saludos

[Meta]

Siguiendo los pasos, no me deja escribir nada, por mucho qu epulse Enter y sin pulsar también, no deja haga lo que haga.

[egostar]

Siguiendo los pasos, no me deja escribir nada, por mucho qu epulse Enter y sin pulsar también, no deja haga lo que haga.

 

Que raro, hyperterminal es una de las mejores terminales de windows para puertos seriales. 

 

Aquí el asunto es hacer que se lean paquetes definidos, con APro lo hago sin problema, necesito ver como se hace con comPort para poder decirte algo, llegando a casa hago unas pruebas.

 

Saludos

[Meta]

Hola:

 

Te paso el proyecto completo con DropBox.

 

Enlace.

 

Saludos.

[egostar]

Hola:

 

Te paso el proyecto completo con DropBox.

 

Enlace.

 

Saludos.

 

Muy bien. 

 

Saludos

[egostar]

Hola

 

Intenta con lo siguiente:

 

Agrega un componente TComDataPacket y configura las propiedades que te muestro en la imagen DataPacket.png

 

En el código eliminas el evento ComPort1RxChar  y agregas el evento OnPacket del componente ComDataPacket con el siguiente código:

delphi

procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: string);
begin
  Memo_Mensajes.Lines.Add( Str ); // Muestra los textos en pantalla.
end;

Con eso ya estará solucionado el problema.

 

Saludos

Archivos adjuntos

•  ON-OFF.png   211,08KB   1 descargas
•  DataPacket.png   22,82KB   1 descargas