Enviar Y Recibir Informacion Puerto Com1

[jfrancho]

Buen día, necesito saber como enviar y recibir información por medio del puerto COM1 O rs232, en delphi 7.SALUDOS.-

[Casimiro Notevi]

Mira si te sirve algunos de los enlaces del final de esta página, abajo del todo.

[ajvdelphi]

Empezado por jfrancho

Buen día, necesito saber como enviar y recibir información por medio del puerto COM1 O rs232, en delphi 7.SALUDOS.-

Hola
Yo uso las API de Windows, si, se que es mas complicado pero te da mucha independencia y te permite hacer cualquier cosa con los puertos.
Yo lo hago así porque me dedico a la electrónica industrial y muchas veces me tuve que comunicar con dispositivos industriales como PLC's, controlodaroes de ejes, drives de motores, etc que cada uno tiene su propio protocolo, para que la vamos a hacer fácil si la podemos hacer dificil .

Te mando el código que habitualmente uso, por hay te sirve-

Para abrir y configurar el puerto
Yo declaro previamente dos variables tipo

Esta es para leer el puerto, te devuelve Leido:=true si el puerto fue leido correctamente y en "Valor" el valor leido

Código Delphi [-]
type TComms = Record
     Leido:boolean;
     Valor:Integer;
End;

Esta es para abrir y configurar el puerto, te devuelve OK:=true si el puerto pudo ser abierto correctamente y en "Handle" un cardinal que apunta al puerto abierto, que luego se usa para las funciones de escritura/lectura;

Código Delphi [-]
type TAbrirPuertoCom = Record
     Ok:boolean;
     Handle:integer;
End;

Function Foem1.AbrirPuertoCom(FPuerto:PChar):TAbrirPuertoCom;
Var
    Parametros:TDCB;
    TimeOut:TCommTimeouts;
    Baud,WordSize,Stops,Par:integer;
begin
  result.Handle:=CreateFile(FPuerto, generic_read or generic_write ,0, nil, OPEN_EXISTING,0,0);
  If result.handle=INVALID_HANDLE_VALUE then
     Begin
       MessageBox(0,'El puerto solicitado es inválido o está siendo usado por otro dispositivo',
                  'Atención',mb_ok+mb_SystemModal+mb_IconExclamation);
       Result.Ok:=false;
       OpenPort:=False;
       exit;
     end;
   FillChar(Parametros, SizeOf(Parametros), 0);
   With Parametros Do
        Begin
          DCBLength := SizeOf(DCB);
          BaudRate:=9600; //Velocidad de transmision
          ByteSize:=8;  //Bits de datos
          Parity:=0;   //paridad 0=none 1=Par 2=impar
          StopBits:=0; //bits de parada 1 Bit=0, 2 bits=1
        End;
   With TimeOut do  //Configura el timeout del puerto en ms
        begin
          ReadIntervalTimeout:=10;
          ReadTotalTimeoutMultiplier:= 10;
          ReadTotalTimeoutConstant:=10;
          WriteTotalTimeoutMultiplier:=10;
          WriteTotalTimeoutConstant:=10;
        end;
   if not (SetCommState(result.handle,Parametros)) or not (SetCommTimeouts(result.handle,TimeOut)) then
        Begin
          MessageBox(0,'Los parámetros de configuración del puerto son incorrectos',
                     'Atención',mb_ok+mb_SystemModal+mb_IconExclamation);
          Result.Ok:=false;
          Exit;
        End;
  Result.Ok:=True;
end;

Funcion para leer o escribir el puerto, normalmente para recibir información de algún dispositivo, primero hay que preguntarle, eso implica hacer primero una escritura, se hace enviando un array con la cantidad de caracteres y los caracteres que el dispositivo requiera

Código Delphi [-]
Function Form1.EscribirLeerRegistro(Puerto:Cardinal):TComms; //Puerto es el valor(handle) que nos devolvió la función de AbrirPuertoCom
Var k:longInt;
    Preguntar: Array[0..19] of char;
    Recibir: Array[0..19] of char;
    CantBytes,ipCantBytes:cardinal;
    OK:Boolean;
Begin
  //Llenar el array para preguntar
  {Preguntar[0]:= 'A';
  ..............
  Preguntar[19]:=CHar(13);}
  k:=0;
  repeat
    Begin
      CantBytes:=20;
      OK:=WriteFile(Puerto,textoLeer,CantBytes,ipCantBytes,nil); //Escribe
      CantBytes:=20;
      Ok:=ReadFile(Puerto,Recibir,CantBytes,ipCantBytes,nil);  //Lee
      If ok Then
         Begin
            result.Valor:=Recibir;  // Aquí en realidad hay que hacer lo que uno precise. La función ReadFile devuelve un array de
                                         // caracteres, habrá que convertirlos a algún valor si se desea o devolverlos como caracteres. 
                                         //En este caso result.valor es un integer, pero podría ser un array u otro tipo de variable
           result.Leido:=true;
           exit;
         End;
    End;
  k:=k+1;
  Until k>5;  //cantidad de interrogaciones si Ok viene false
  result.Leido:=false;
End;

Bueno espero no ser muy pesado, pero esto te permite hacer lo que quieras inclusive, si te das maña, tu propio objeto de comunicaiones

Saludos
Augusto

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ajvdelphi]

Hola

Entendido, perdón no lo sabía, me pregunta justamente eso, porque quedaba muyyyyyyyy feo

Saludos
Augusto

[Casimiro Notevi]

Empezado por ajvdelphi

Hola
Entendido, perdón no lo sabía, me pregunta justamente eso, porque quedaba muyyyyyyyy feo
Saludos
Augusto

Aquí tienes una guía de todos los 'tags', puedes guardarte el enlace para usarlo en cualquier otra ocasión que lo necesites,
aunque normalmente te vale con los que te he mostrado anteriormente


Por cierto, gracias por la aportación, me guardo el código, lo mismo me hace falta algún día