Disminuir el tiempo en recibir byte con ApsComPort...

[[seoane]]

Ignoro como funciona el componente que mencionas, pero me surge una pregunta, ¿por que no utilizas la API para leer el puerto serie?. Windows dispone de las funciones necesarias para leer el puerto serie de manera sencilla, los componentes lo único que hacen es llamar a esas mismas funciones, pero además incluyen un montón de código a mayores, que a veces en vez de ayudar es una molestia.

¿Que es lo que necesitas exactamente?, es decir, si tienes que leer byte a byte e ir procesando cada uno por separado un simple bucle sera mucho mas rápido que cualquier componente que funcione con eventos. Si no quieres tener tu aplicación congelada mientras ejecutas el bucle, utiliza threads, de esta manera la lectura se realizara en paralelo con hilo principal de tu programa. Un simple loop dentro de un thread es el método mas rápido que existe para leer los bytes, eso te lo garantizo.

Por ejemplo:

Código Delphi [-]
var
  hPort: THandle;
  DCB: TDCB;
  Estado: TCOMSTAT;
  ErrorCode: cardinal;
  Leidos: Cardinal;
  B: Byte;
begin
  // Para el COM2 usa '\\.\COM2'
  hPort:= CreateFile(PChar('\\.\COM1'), GENERIC_READ or GENERIC_WRITE,0, nil,
    OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hPort<>INVALID_HANDLE_VALUE then
  begin
    DCB.DCBlength:= sizeof(DCB);
    if GetCommState(hPort,DCB) then
    begin
      // Cambiar esto para una configuracion del puerto diferente
      with DCB do
      begin
        BaudRate := CBR_9600;
        ByteSize := 8;
        Parity   := NOPARITY;
        StopBits := ONESTOPBIT;
        // Aqui es donde indicamos que active RTS y DTR
        Flags    := $1013;
      end;
      if SetCommState(hPort, DCB) then
      begin
        // Vaciamos el Buffer
        PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or
          PURGE_RXCLEAR);
        repeat
          B:= 1;
          ClearCommError(hPort, ErrorCode, @Estado);
          if Estado.cbInQue > 0 then
          begin
            ReadFile(hPort,B,1,Leidos,nil);
            // Aqui usa el valor de B para lo que quieras
          end else Sleep(100);
          // Si no hay bytes esperando dormimos un poco para no estresarnos
        until B = 0;
        // Terminamos el bucle cuando recibimos un 0, tu ajustalo a tus necesidades
      end;
    end;
    CloseHandle(hPort);
  end;
end;

Aunque si vas a leer una gran cantidad de bytes te recomiendo que metas el código dentro de un Thread, para no tener la aplicación parada.

[Geta]

Seoane, al final voy a probar lo que dices de programarme a pelo las rutinas de manipulacion del COM. Pero estoy pez en la api. Sabes de informacion de la API referente a como manipular el puerto COM ?

Agredeceria links o documentos.

A por cierto esto de los threads, ni idea como funcionan?

gracias.

[[seoane]]

Todas las funciones las tienes en la ayuda. En el menú de ayuda de Delphi abre "Windows SDK" hay encontraras la función CreateFile, SetCommState, etc. Incluso creo recordar que viene algún ejemplo de como leer el puerto serie. Básicamente windows trata el puerto serie como si fuera un archivo mas (con ciertas limitaciones), una vez abierto y configurado, puedes leer y escribir en el como si de un archivo se tratase. Tienes un par de funciones, además, para manejar si te hiciese falta, las lineas RTS,DTR, etc.

PD: En el ejemplo anterior, añadi una linea que faltaba.

[[seoane]]

Empezado por Geta

A por cierto esto de los threads, ni idea como funcionan?

Los threads sirven para ejecutar un código en un hilo diferente al principal. Si una rutina va a durar mucho corremos el riesgo de que nuestra aplicación parezca congelada. Así que podemos utilizar threads para que se ejecute paralelamente al resto de la aplicación. En este foro encontraras mucha información sobre threads, echale un vistazo

[Geta]

Nada, no soy capaz de mandar un string por el com con las funciones de la API. Me es imposible.

Imaginad una cadena a mandar por ejemplo: ' hola'

Como la mando, he imtentado con writefile pero al leer la respuesta del dispositivo, nada, no hay respuesta.

estoy desesperado.

[[egostar]]

He hecho algunas pruebas con el componente AdpComPort, prueba con este código, haber que tal.

Código Delphi [-]
 
 
var
  Form1: TForm1;
  Primer,Resto : String;
  
:::::::::
 
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : Char;
  S : String;
begin
  S := '';
  for I := 1 to Count do begin
    C := ApdComPort1.GetChar;
    S := S + C;
  end;
  sleep(100);
  if Length(S) = 1 then begin
     Primer := S;
  end
  else begin
         Resto := S;
         Memo1.Lines.Add(Primer+Resto);
         Primer := '';
         Resto  := '';
       end;
end;

Puede ser mejorado, pero lo hice asi al vuelo.

Te explico un poco, en el evento OnTriggerAvail del AdpComPort llega los bytes uno por uno, entonces, al llegar cada paquete leo el primer caracter y espero 100 ms para que llegue toda la cadena restante. Yo uso un Memo para ver la cadena pero tu puedes usar variables.

Podrás mover este parámetro de espera en ms si la cadena es muy grande, pero no lo creo necesario.

Espero te sirva.

Saludos

[[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;

[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.