FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#5
|
|||
|
|||
uses
SysUtils, windows; var Puerto,n:integer; Num, Res:byte; Cad:string; Mode:DCB; begin Puerto:=FileOpen('COM1',fmOpenReadWrite);//Abre el puerto Mode.BaudRate := 1200; Mode.ByteSize := 8; Mode.Parity := NOPARITY; Mode.StopBits := ONESTOPBIT; SetCommState(Puerto, Mode); //Ajusta los parámetros Num:=253; // Dato a enviar repeat until FileWrite(Puerto,Num,1)=1; Sleep(1000); // Espera para enviar el siguiente dato end. |
|
|
|