SoloCodigo

Hola

Acabo de registrarme en SoloCodigo

Por favor necesito saber donde puedo encontrar información de como se puede con Delphi leer o escribir datos en un puerto serie, pues necesito hacer un software que me reciba y procese ciertos datos que me envia una pizarra teléfonica conectada a mi PC por un puerto serie.

Bueno primero que todo disculpen mi ausencia pero es que en el trabajo me tienen superocupado por unas presentaciones que hay que hacer:

if XComm1.OpenDevice then;  // Abres el puerto
begin   
    if XComm1.SendString(Comando) then // Envio la cadena comando
    begin
      Cadena := '';
      I := 0;
      while (I < 5) do // hago el ciclo para contar 4 despues de ETX
      begin
        XComm1.ReadByte(Caracter) then
        begin
          if (Caracter = 18) then // Este valor me indica que tengo que esperar
          begin                         
            Sleep(400); // Detengo la ejecución del programa por 400 msg
            Application.ProcessMessages;
          end else
          begin
              Cadena := Cadena + Char(Caracter); // hago la cadena
             
              // ETX es una constante     

              If Caracter = ETX then I := 1; // despues de este caracter
              if I > 0 then I := I + 1;          // empiezo el contador
          end;
        end;
      end;
    end else
    begin
      Codigo := 66;
      Cadena := 'Error de Comunicación 66';
    end;
    XComm1.CloseDevice;

ejemplo de puertos serie en delphi

Muchas gracias a todos los que me han respondido, voy a estudiar    y probar    lo que me han mandado, espero que me sea de gran utilidad