Cómo enviar datos de 16 bits en Delphi

1. Descargue un control de puerto serie SPCOMM gratuito. Este puede ser el mejor en DELPHI. Si no sabe cómo instalarlo, puede consultar la información sobre la instalación del control. para dejar un mensaje para hacer preguntas

2. Al programar, llame a este control y configure la velocidad en baudios (generalmente 9600), la longitud de la palabra (generalmente 8) y el número de puerto serie (¿COM?). esta propiedad ReadIntervalTimeout es el intervalo entre dos cadenas. El tiempo de inactividad, en milisegundos, generalmente se establece en 100

3. Ejemplo

Supongamos que el nombre del control es COMM1,

definir la cadena a enviar como chaSendDatas

Definir un puntero pchSendData

GetMem(pchSendData, 1); //Asignar espacio de memoria al puntero

<); p>chaSendDatas[1] := chr($aa ); //Definir el número hexadecimal a enviar

chaSendDatas[2] := chr($00); //Definir el número hexadecimal a enviar

for i: =1 a 2 do //Usa un bucle para enviar datos predefinidos, correspondientes al número hexadecimal anterior

begin

chaSendData := chaSendDatas [i];

strpcopy(pchSendData, chaSendData); //Apunta el puntero a la memoria enviada

Comm1.WriteCommData(pchSendData,1); //Llama al evento de escritura Comm; para enviar datos

end;

FreeMem(pchSendData); //Libera el espacio de memoria del puntero

De esta forma se envía una cadena de aa 00. Del mismo modo, puedes escribir muchos