Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Serial Port Communication is not working as intended
Message
From
11/04/2007 16:12:55
 
 
To
11/04/2007 15:56:12
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 6
OS:
Windows NT
Miscellaneous
Thread ID:
01214675
Message ID:
01214687
Views:
18
Do you have any use for the incoming data, other than to test for the CR? If not, just test for the CR like below:
DO WHILE !FEOF(dHex)
IF ComForm.Testcom.CommEvent = 2  &&This is triggered if the RThreshold is reached, which is 1 character
   StringBuffer = ComForm.Testcom.Input
   IF vbCrLf $ StringBuffer  &&If a Carriage return is received
      ComForm.Testcom.Output = ">[1]" + firstLine + vbCrLf &&sends a line from the Hexfile
      WAIT WINDOW firstLine NOWAIT
   ENDIF
ENDIF
ENDDO
fclose(dHex)
WAIT WINDOW "DONE SENDING ALL LINES FROM DOWNLOADERHEX.TXT"
Previous
Reply
Map
View

Click here to load this message in the networking platform