Componente Comport

[harimuya]

Tengo un problema con el componente CPortLib, exactamente con el
Comport, no me captura la informacion a traves de un For - End
funciona bien si lo hago por partes (es decir click para capturar, click para procesar) pero no me sirve asi, debo poner todo el proceso a traves de un for, les paso algo...

Código Delphi [-]
for Wvez := 1 to 50 do
begin
ComPort.Port:='COM12';
ComPort.BaudRate:=brCustom;
ComPort.Open
ComPort.WriteStr('1');
        
ComPort.ReadStr(Str, 3000);   // Esta parte no me funciona
Memo1.Text := Str;    // Si le pongo un Message recien captura
.        // si le pongo Sleep(xx) tampoco funciona 
.
.
end;

esto debe ser automatico,
alguien podria ayudar con este tema
desde ya gracias por su respuestas

[marcoszorrilla]

Empezado por harimuya

Tengo un problema con el componente CPortLib, exactamente con el
Comport, no me captura la informacion a traves de un For - End
funciona bien si lo hago por partes (es decir click para capturar, click para procesar) pero no me sirve asi, debo poner todo el proceso a traves de un for, les paso algo...

Código Delphi [-]
Application.Processmessages;
for Wvez := 1 to 50 do begin
 ComPort.Port:='COM12';
 ComPort.BaudRate:=brCustom;
ComPort.Open ComPort.WriteStr('1');
                  ComPort.ReadStr(Str, 3000);   
// Esta parte no me funciona
 Memo1.Text := Str;
      // Si le pongo un Message recien captura .
              // si le pongo Sleep(xx) tampoco funciona  . .
 end;

esto debe ser automatico,
alguien podria ayudar con este tema
desde ya gracias por su respuestas

Prueba de esta manera a ver.

Un Saludo.

[harimuya]

Empezado por marcoszorrilla

Prueba de esta manera a ver.

Un Saludo.

Nada MarcosZorrila,

sigue sin funcionar y me va a volver loco este tema

Saludos.

[[FGarcia]]

Hola!

1. No veo el porque en cada iteracion del ciclo for asignas puerto baudios y abres el puerto. Creo que eso lo debes de hacer antes de entrar en el ciclo for.

Código Delphi [-]
 ComPort.Port:='COM12';
 ComPort.BaudRate:=brCustom;
 ComPort.Open
Application.Processmessages;
for Wvez := 1 to 50 do 
  begin
     ComPort.WriteStr('1');
     ComPort.ReadStr(Str, 3000);   
     // Esta parte no me funciona
     Memo1.Text := Str;
     // Si le pongo un Message recien captura .
     // si le pongo Sleep(xx) tampoco funciona  . .
 end;

2. ¿Has visto los ejemplos que tre el comport? Ahi te muestra que deberias de usar el evento OnRxChar para capturar los datos entrantes:

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
end;

3. Por supuesto esto ultimo lo deberas adaptar a tus nececidades.

Saludos!!

[harimuya]

Empezado por FGarcia

Hola!

1. No veo el porque en cada iteracion del ciclo for asignas puerto baudios y abres el puerto. Creo que eso lo debes de hacer antes de entrar en el ciclo for.

Código Delphi [-]
 ComPort.Port:='COM12';
 ComPort.BaudRate:=brCustom;
 ComPort.Open
Application.Processmessages;
for Wvez := 1 to 50 do 
  begin
     ComPort.WriteStr('1');
     ComPort.ReadStr(Str, 3000);   
     // Esta parte no me funciona
     Memo1.Text := Str;
     // Si le pongo un Message recien captura .
     // si le pongo Sleep(xx) tampoco funciona  . .
 end;

2. ¿Has visto los ejemplos que tre el comport? Ahi te muestra que deberias de usar el evento OnRxChar para capturar los datos entrantes:

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
end;

3. Por supuesto esto ultimo lo deberas adaptar a tus nececidades.

Saludos!!

Gracias FGarcia por la respuesta.
Con respecto a asignar y abrir el puerto lo hago antes del for y con respecto al OnRxChar si fue lo primero que probe pero igual no recibo la informacion hasta que termine el programa, y necesito recibir la informacion despues de cada ComPort.WriteStr('1'); para poder trabajar con la informacion que recibo antes de tener la siguiente vuelta.

Saludos.

[[FGarcia]]

harimuya:

Con un ratillo libre hice este ejemplo, revisalo y espero que sea lo que necesitas.

El proyecto esta en delphi 2010, se supone que en versiones anteriores lo puedes abrir, en caso de algun problema solo comenta la linea siguiente (en el Source Code del proyecto)

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True; //COMENTA ESTA LINEA
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

La unit2 solo la cree para hacer pruebas con el hardware adecuado, no es necesario que la uses.

Otro detalle es en comport version 2010 es el uso de AnsiString en vez de String solamente, solo cambia el tipo de variable donde sea necesario en el proyecto si tienes una version anterior.

No olvides comentarnos como te fue.