Cómo escribir un programa usando Delphi para leer datos del puerto serie y mostrarlos.

Comm1.CommName := 'com1'; Comm1.BaudRate := 4800;//La velocidad en baudios es diferente para cada máquina Comm1.Parity := TParity(2); 2); Comm1.StopBits := TStopBits(2); Comm1.StartComm; // Recuerda finalizar cuando comiences

Escribe el código anterior en formshow

Luego escribe el siguiente proceso.

procedimiento Tfrm_cnc_h_edt.Comm1ReceiveData(Remitente: TObject; Buffer: Puntero; BufferLength: Word);

var str: string;

comenzar a editar.Clear; ( Str, BufferLength); move(buffer^, pchar(@Str[1])^, bufferlength edit.Text := trim(Str);//El texto edit.que desea se muestra aquí sendmessage(edt_measure.handle). , wm_keydown, vk_return, 0);

end;

Finalmente escribe en formclose

Comm1.StopComm; //Fin de comm1

El control es el mismo que el de la linterna del sistema.

Puedes copiar el código, te resultará más fácil.