8 respuestas en este tema

[FGarcia]

Siguiendo con problemas, 

tengo esta cadena que se transmite continuamente

<STX>DDDDDDDDUMS<CR><LF><STX>DDDDDDDDUMS<CR><LF><STX>DDDDDDDDUMS<CR><LF><STX>DDDDDDDDUMS<CR><LF>

//<STX> Caracter de inicio
//DDDDDDDD Cadena de Datos
//UMS Señalizadores de 1 caracter c/u
//<CR> Fin de cadena
//<LF> No lo uso para fines practicos

Con un boton quiero capturar esa cadena desde el puerto serie (este ya está abierto y funcionando OK)

delphi

procedure TfrmMain.Button1Click(Sender: TObject);
var
  n: integer;
  num: byte;
  Cad: string;
begin
  // Los datos se repiten y terminan con #13(CR)
  repeat
   repeat
     until FileRead(HandlePuerto,Num,1)=1;
  until Num=13; // Final de cadena anterior
 
  Cad:='I'; //Aqui deberia ser una cadena vacia. [u]El valor es solo por prueba[/u]
 
  //Aqui esperaria a capturar y llenar la variable Cad en este orden <LF><STX>DDDDDDDDUMS  
  for n := 1 to 8 do
    begin
      repeat
        until FileRead(HandlePuerto,Num,1)= 1; //lee un byte
      Cad:=Cad + chr(Num);
    end;
 
  Label1.Caption := Cad; //Muestra la lectura
end;

Bueno, el detalle es que en la label1.caption solo obtengo I + el 7 caracter (p.e. <LF><STX>  104000UMS) = I4
He probado con diferentes valores de n pero no, los resultados on erroneos o simplemente se queda en el bucle. Debe ser una tontera pero no me puedo dar cuenta.

[FGarcia]

¡¡¡Este frio esta alentando mis neuronas!!!!

la cadena capturada empieza con un codigo de control <LF> o Linefeed y yo quiero ver esos datos en una etiqueta que no esta en autosize, pues no veia nada de lo que se capturaba porque la etiqueta iniciaba una segunda linea donde colocaba los datos. Ok ya corregi eso y ahora si funciona.

solo añadi al uses la unidad StrUtils y en la linea 22 coloque esto:

delphi

Cad := MidStr(Cad,3,11); //solo selecciona DDDDDDDDUMS

Que conste en actas que la lucha se le hizo!!!

[Caral]

Hola
Me alegro que lo auto arreglaras.
Lo estuve viendo pero por supuesto no le llegue.
Saludos

[egostar]

<STX>DDDDDDDDUMS<CR><LF>
<STX>DDDDDDDDUMS<CR><LF>
<STX>DDDDDDDDUMS<CR><LF>
<STX>DDDDDDDDUMS<CR><LF>

delphi

procedure TfrmMain.Button1Click(Sender: TObject);
var
  num: byte;
  Cad: string;
begin
  // Los datos se repiten y terminan con #13(CR)
  repeat
     FileRead(HandlePuerto,Num,1)=1;
     if chr(Num) = #2 then 
        Cad := ''
     else begin
              if Num >= 32 then
                 Cad:=Cad + chr(Num);
     end;
  until Num = 13; // Final de cadena anterior
  Label1.Caption := Cad; //Muestra la lectura
end;

Salud OS

[FGarcia]

Jeje No habia visto tu respuesta, disculpas.

La estoy probando pero me da errores

1.  FileRead(HandlePuerto,Num,1) = 1; //espera un := y encontro =

2.  lo modifique asi:

delphi

procedure TfrmMain.Button1Click(Sender: TObject);
var  num: byte;  Cad: string;
begin  
// Los datos se repiten y terminan con #13(CR)  
repeat     
   repeat
      until FileRead(HandlePuerto,Num,1)=1;
   if chr(Num) = #2 then        
     Cad := ''
   else 
     begin              
        if Num >= 32 then 
          Cad:=Cad + chr(Num);
     end;  
until Num = 13; // Final de cadena anterior  
Label1.Caption := Cad; //Muestra la lectura
end;

pero aqui se queda bloqueado el programa, no sale del ciclo. Esta comprobado que la cadena recibida cumple lo que se espera.

[egostar]

Veamos amigo

la cadena viene asi

<STX>DDDDDDDDUMS<CR><LF>

Es lo mismo que

#2DDDDDDDDUMS#13#10

Pero aun no entiendo para que estas haciendo esto....

delphi

   repeat
   until FileRead(HandlePuerto,Num,1)=1;

Me imagino que lo que quieres es leer lo que te llega del puerto, me imagino que estas utilizando el componente ComPort, entonces porque no usas el evento OnRXChar de tu componente y te quitas de problemas.

delphi

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
   Cad: string;
begin
  Comport1.Readstr(Cad,Count);
  Cad := StringReplace(Cad,#2,'',[rfReplaceAll]);
  Cad := StringReplace(Cad,#10,'',[rfReplaceAll]);
  Cad := StringReplace(Cad,#13,'',[rfReplaceAll]);
  Label1.Caption := Cad; //Muestra la lectura
end;

Salud OS

[FGarcia]

jajajaja no!, no estoy usando ComPort (ahi es mas facil usar el ComPacket que el RxChar para cadenas de estructura fija), estoy usando una estructura DCB que permite a windows accesar al puerto serie.

El porque de usar nuevamente un ciclo Repeat Until es por la razon que menciono en el primer punto del mensaje anterior

delphi

FileRead(HandlePuerto,Num,1) = 1; //espera un := y encontro =

si lo coloco en un repeat until desaparece el error, pero  se queda bloqueada la ejecucion del programa.

La razon de esto es conocer una forma mas de leer el puerto serie y como mencione en un post anterior quiero incluir ese acceso a una dll.

disculpa las molestias.

[egostar]

y si mejor haces esto amigo

delphi

procedure TfrmMain.Button1Click(Sender: TObject);
var
   S: string;
   Cad: array[1..80] of Char;
   BytesRead: integer;
begin
  if ReadFile (HandlePuerto, Cad, sizeof(Cad), BytesRead, Nil) then begin
     s := '';
     for i := 1 to BytesRead do begin
         if ord(Cad[I]) > 32  then
            s := s + Cad[I];
     end;
     Label1.Caption := Cad; //Muestra la lectura
  end;
end;

Salud OS

[FGarcia]

Pues no, sigue el error, ahora al intentar compilar me aparece:

[Error] UfrmMain.pas(171): Types of actual and formal var parameters must be identical

y se pone en rojo la linea de ReadFile y el cursor se posiciona antes de Nil

Estoy leyendo el http://msdn.microsof...467(VS.85).aspx pero no encuentro razon para ese error.