How To Send to the Serial Port by Using Mscomm32.ocx

Last reviewed: January 8, 1997
Article ID: Q139526
The information in this article applies to:
  • Microsoft Visual FoxPro for Windows, versions 3.0, 5.0

SUMMARY

This article describes the settings necessary to send data to the serial port by using Mscomm32.ocx. Mscomm32.ocx ships with the Professional Edition of Visual FoxPro. It can be used in Windows 95 or Windows NT only.

MORE INFORMATION

The most frequently used properties to send data to the serial port using the mscomm control are as follows:

CommPort

The CommPort property specifies the communications port number. A numeric property that corresponds to the Comm port. By default, this property is set to 1 corresponding to com1. Valid values are 1, 2, 3, or 4 depending on the serial ports installed on the computer and their configuration.

Settings

The Settings property configures the baud rate, parity, data bits, and stop bits for the serial port. It is a character string with individual values separated by commas. By default, the Settings property contains 9600,N,8,1. This corresponds to 9600 baud, no parity, 8 data bits, and 1 stop bit.

PortOpen

The PortOpen property specifies a logical value that controls whether or not the serial port is open and active. Once the previous properties are set to begin using the serial port, you can set this property to true.

Output

The Output property is assigned the string of characters to be sent to the serial port. To output the string "Hello World" to the serial port after the previous properties are set, use the following command:

   myform.mycomm.output = "Hello World"

Other properties that may be also be needed depending on the application are as follows:

CommEvent

The CommEvent property contains a value that represents the most recent communications event or errors.

Sthreshold

The Sthreshold property specifies the minimum number of characters in the output buffer that are sent.

OutBufferCount

The OutBufferCount control returns the number of characters waiting in the transmit buffer. This should always be zero if the Sthreshold property is zero. Setting the OutBufferCount property to zero will clear the transmit buffer.

OutBufferSize

The OutBufferSize property specifies the size of the transmit buffer. By default, this buffer is 512 bytes. The larger the transmit buffer, the less memory available to other applications. Slow baud rates and large text strings written to the serial port may mean you need to make this value larger.

Following is a sample that shows how to set up the comm control and dial the phone number 555-1234 by using the standard Hayes Modem commands.

   PUBLIC ComForm
   ComForm = CREATEOBJECT('Form')
   ComForm.AddObject("Testcom","Olecontrol","MSCOMMLib.MSComm")
   ComForm.Testcom.CommPort = 2 && Use Comm2, The second Serial Port.
   ComForm.Testcom.Settings = "14400,N,8,1"  && 14.4 Kbaud, No Parity,
                                             && 8 data Bits, 1 Stop Bit
   ComForm.Testcom.PortOpen = .T.
   ComForm.Testcom.Output = "ATDT555-1234" + chr(13) && Dialing the number
   * The chr(13) is needed to complete the modem command sequence
   ComForm.Testcom.PortOpen = .F.
   ***** End Code *****


Additional reference words: 5.00 3.00 VFoxWin
KBCategory: kbprg kbhowto kbcode
KBSubcategory: FxprgGeneral


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: January 8, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.