Red de conocimiento informático - Material del sitio web - ¡Cómo utilizar el control MSCOMM en DELPHI para la programación del puerto serie! ! !

¡Cómo utilizar el control MSCOMM en DELPHI para la programación del puerto serie! ! !

1. Inicialice y abra el puerto serie

pruebe

Mscomm1.CommPort

//Especifique el puerto serie

Mscomm1 .Settings

600,n,8,1';

//Configuración del modo de comunicación serie

Mscomm1.InBufferCount

// Borrar el búfer de recepción

Mscomm1.OutBufferCount

//Borrar el búfer de envío

Mscomm1.PortOpen

ue;

//Abre el puerto serie

excepto

ShowMessage('¡Error de inicialización del puerto!');

end; datos al puerto

MSComm1.Output

Contenido de la cadena; 3. Obtener datos del puerto

Si conoce la longitud de los datos que se deben recibir (se supone ser 8):

var

st

string;

...

st

tTickCount();

mientras

((MSComm1.InBufferCount<8)

y

(GetTickCount( )-st<50))

do

Application.ProcessMessage;

TempStr

=

MSComm1 .InPut;

...//Procesa la información recibida

excepto

end;

Si no conoces el longitud de los datos que debe recibir, puede configurar sus propiedades RThreshold e InpuLen para indicar respectivamente cuántos caracteres se reciben para generar un evento OnComm y cuántos caracteres obtiene un método de entrada del búfer. TempStr

MSComm1.InPut; ponerlo en el evento OnComm. Por ejemplo, puede establecer RThreshold=1, InputLen=1 y escribir esto en el evento OnComm:

TempStr

MSComm1.InPut;

if

TempStr<>#13

entonces

//Los datos aún no se han recibido

ReceiveStr

ReceiveStr

+

TempStr

else

...

//Procesar los datos recibidos (no No los recuerdo claramente) Oh, el programa que escribí originalmente ya no está conmigo hoy)