Disminuir el tiempo en recibir byte con ApsComPort...

[Geta]

Empezado por seoane

Suponiendo que ya tienes el puerto abierto y configurado, para escribir una cadena puedes usar algo como esto:

Código Delphi [-]var s: string; Escritos: Cardinal; begin s:= 'hola'; // O puede que s:= 'hola' + #13#10; WriteFile(hPort, PChar(s)^,Length(s), Escritos, nil); end;

Magnifico, asi si que me lo entiende el dispositivo. Le he dicho a si a groso modo que encienda un led con un byte en hexadecimal y se ha encendido. pero se supone me tenia que responder un byte y no lo hace. Leo con ReadFile asi:

comando: String;
...
...
ReadFile(hPort,comando,length(comando),cuantos,nil);

pero nada.

[[seoane]]

Bien, parece que estas controlando algún tipo de dispositivo electrónico, habría que ver como es el protocolo de comunicación de ese dispositivo. ¿Utiliza comandos de texto?, es decir, los que tu mandas y recibes son cadenas de texto. Si es así, para mandar el texto ya tienes la solución arriba, y para recibir texto hay que saber que carácter termina cada linea. Lo normal es leer byte a byte el puerto serie hasta encontrar el carácter final que suele ser #13.

De todas formas el código que tu pones no es correcto:

Empezado por Geta

comando: String;
...
...
ReadFile(hPort,comando,length(comando),cuantos,nil);

No puedes leer el puerto serie con una variable tipo string, al menos no así. Ya que ReadFile intentara leer tantos caracteres como longitud tenga la cadena de texto almacenada en comando (si no hay nada sera 0), y lo peor es que lo almacenara a partir de la primera posición de memoria de la variable comando, que en un string no coincide con el primer carácter de la misma. Yo normalmente leo los bytes uno a uno, o utilizo un buffer (un array de Chars).

De todos modos, ¿cual es el protocolo de comunicación de ese dispositivo?, ¿que le tienes que mandar tu?, ¿que te responde el?, ¿es texto o bytes?, ¿sabes la longitud de la respuesta, o esta delimitada por un carácter final?. Y si no es mucho preguntar ¿que dispositivo es?, si me das más datos puede que entienda mejor lo que necesitas.

[Geta]

al dispositivo se le mandan bytes en hexadecimal pero para mandarselos y que lo entienda ese byte lo hemos de pasar a char. Asi por ejemploo mandando la siguiente secuencia de bytes 20 30 40 50 primero tendria que pasar el byte 20 a char luego el 30 a char, etc y cuando tengamos todos los bytes en char mandarlo. la respuesta nos tendria que dar una secuencia de chars que nosotros pasariamos a hex para ver su valor.

Pero vamos que casi todos los circuitos electronicos que se manejan por el com creo que van de forma parecido o igual.

Otra cosa, se me olvidaba darte la gracias por tu interes.

[Geta]

Al final lo he conseguido. Muchas gracias. Lo que he hecho a sido hacer lo que tu decias. Con un bucle ir leyendo byte a byte pasarlo a char y añadirlo a un string y ya tengo la respuestas que tenia que darme.

Me has sido de gran ayuda. Muchisimas gracias.

Solo una pregunta que se me ocurre. Al leer un byte del buffer del com con ReadFile, ese byte se borra del buffer al ser leido o se sigue quedando ahi hasta que limpiemos el buffer o se reciba otra cosa?

[[seoane]]

Parece que mientras respondía, tu te adelantaste

Empezado por Geta

Al final lo he conseguido. Muchas gracias. Lo que he hecho a sido hacer lo que tu decias. Con un bucle ir leyendo byte a byte pasarlo a char y añadirlo a un string y ya tengo la respuestas que tenia que darme.

Me has sido de gran ayuda. Muchisimas gracias.

Solo una pregunta que se me ocurre. Al leer un byte del buffer del com con ReadFile, ese byte se borra del buffer al ser leido o se sigue quedando ahi hasta que limpiemos el buffer o se reciba otra cosa?

Al leerlo se borra del buffer, lo limpiar el buffer es una manía que tengo para asegurarme que no hay nada en el buffer antes de empezar.

[Geta]

Muchas gracias por todo amigo mio. Ya lo tengo funcionando.

[[seoane]]

No estoy seguro si te entendí bien, quieres decir que si tienes que mandar el byte 41h (65 en decimal) lo que tienes que mandar es Chr($41) (Una 'A'). No entiendo porque, un Char y un byte tienen ambos el mismo tamaño (8 bits), de hecho no hay diferencia entre enviar un byte o un Char. ¿O refieres acaso a convertir cada byte en dos caracteres que representen su valor hexadecimal?

Por ejemplo, si tengo que enviar los bytes 20h, 30h, 40h, 50h se podría hacer así (siempre suponiendo que tenemos el puerto abierto y configurado):

Código Delphi [-]
var
  Buffer: array[1..4] of byte; // El tamaño puede ser mayor
  Escritos: Cardinal;
begin
  Buffer[1]:= $20;
  Buffer[2]:= $30;
  Buffer[3]:= $40;
  Buffer[4]:= $50;
  WriteFile(hPort, Buffer,4, Escritos, nil);
end;

Para leer los bytes tenemos que saber que nos va a mandar, es decir, podemos estar leyendo continuamente, leer durante un tiempo, o leer hasta encontrar un carácter final. La primera opción no parece practica, solo seria útil para hacer un programa que monitorizara el puerto serie. Y como parece ser que tu dispositivo no utiliza un carácter especial para terminar la conexión, tendremos que quedarnos con la segunda opción.

Código Delphi [-]
var
  Buffer: array[1..4096] of byte; //4kb por ejemplo
  Leidos: Cardinal;
  Ticks: Cardinal;
  i,j: integer;
  B: byte;
  Str: string;
  Estado: TCOMSTAT;
  ErrorCode: cardinal;
begin
  i:= 0;
  Ticks:= GetTickCount;
  repeat
    ClearCommError(hPort, ErrorCode, @Estado);
    if Estado.cbInQue > 0 then
    begin
      ReadFile(hPort,B,1,Leidos,nil);
      inc(i);
      Buffer[i]:= B;
    end else Sleep(10);
  until (GetTickCount - Ticks) > 5000; // Leemos durante 5 segundos
  // Ahora puedes hacer lo que quieras con los bytes recibidos,
  // por ejemplo mostrarlos
  Str:= '';
  for j:= 1 to i do
    Str:= Str + IntToHex(Buffer[j],2) + 'h ';
  ShowMessage(Str);
end;

Una secuencia de como lo haria yo seria la siguiente:

Abrir el puerto
Configurar el puerto

  Purgar el puerto
  Mandar los bytes
  Recibir la respuesta durante unos segundos
  Mostrar la respuesta o usarla para lo que se quiera

Cerrar el puerto