![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola, sigo sin ser capaz de leer el puerto.
Me he dado cuenta de un error en el código, donde pone Handle hay poner HandlePuerto Saludos |
#2
|
|||
|
|||
Hola a todos
Yo estoy intentando lo mismo pero utilizando un componente comport en su evento procedure TMainForm.ComTerminalStrRecieved(Sender: TObject; var Str: String); begin Showmessage('Dato '+z); x:=copy(Str,1,2); If x=#2',' Then // Indica el inicio de la cadena Begin y:=Str; If Copy(str,17,1)=#$D Then //Indica el fin de la cadena Begin z:= Copy(y,3,14); Edit1.Text:=z; End Else End ; end; Capturo el dato que envia la balanza todo esta bien pero si quito el showmessage, el dato ya no es enviado correctamente ... asi que hasta ahi me he quedado si sabel algo me gustaria que puedan ayudarme de antemano gracias
__________________
IVAND |
![]() |
|
|
![]() |
|