¡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 p>
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 p>
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)