Serial Port Delphi Component Forum

Serial I/O (RS232) Using Delphi (RS232)

Delphi and C Builder component for serial communication. Communication with devices connected to serial port; easy of use and very powerful. These should provide proper Virtual COM port support and have both. From what we've seen there are a few Delphi components for.

All Intel PCs have one or two serial ports usually referred to as Com1 and Com2. These comm ports provide voltages and pin outs consistent with RS-232C. Normally, these ports are used for mice, modems, printers, and the like.

Under DOS, it was possible to directly access these ports. However, Windows 95 and above forbid direct hardware access. Therefore, this page exists to help get around windows.

Generic References Basic Commands Writing a Port Reading a Port TCommPort Additional References

Generic References

I provide numerous references in Serial I/O (RS232).

Basic Commands

I really don't get it, with all the available windows API commands, why doesn't Delphi provide a built-in wrapper function for SerialIO?

Borland provides the following Delphi FAQ's (delphi-faq.zip 915K).

  • 16193: Setting comm port configuration programmatically under Win95
  • 16199: Changing com port config via Win95 CommConfig Dialog
    (Pure gold :) .. except that only the baud rate can be changed :( the other 4 fields are ignored.
  • 16400: How can I dial out through the modem under Win32?
    How to write to the comm port
  • 16774: How can I determine the names of the installed comm ports?
    The data is read from the registry
In addition to the Delphi File I/O commands, there are several Windows API commands. Most of these comm commands (such as CommConfigDialog) are defined in kernel32.

Writing a Port

The following code from FAQ 16400 shows how to write to the comm port as a file. The code in the FAQ also verifies a valid handle before writing to it. Warning: There is an error in the FAQ - NumberWritten must be dword not LongInt

This code works for comports 1 thru 9, but not for ports 10 and higher. Instead, use code similar to the following

Reading a Port

Well, reading the port is almost trivial .. if you know the trick.

You must configure the TimeOutBuffer. I don't know what good values should be, so I used 300.

Having done that, ReadFile waits until I scan a barcode. Eventually, I will use ReadFileEx because it will call a routine when a barcode is scanned.

Once the port is open and configured, here are 2 routines that will read the port. For test purposes, each was connected to its own button. Uh, both routines work when run from the IDE .. the second refuses to work if you double click on the exe file. I have no idea why.

This next routine works from the IDE, but not if you run the app by double clicking the exe file.

When CreateFile, ReadFile, and WriteFile are used, Delphi does not use MSComm. Instead, it uses the following Kernel32 commands (found using Depends.exe)

If you try to search the Delphi 5 help for ReadFile, there are no hits. This is because ReadFile is a Windows API command .. not a Delphi command. Instead, click on it in your code and press F1.

Here is a reference that helped me develop this section.

TCommPort

On the Internet, there are several TCommPort type components (see the references below or just search for them). Serial Port Delphi Component Forum

I have been successful using TCommPort by Dirk Claessens (freeware with full source code).

I strongly suggest using someone else's component rather than trying to build one yourself. Montego bay v56 tanning bed manual 2017. Why? Because they have already been tested on numerous systems and various undocumented 'features' have been taken into account.

Additional References

There are numerous communications routines available at Torry's Delphi Pages, including
  • TSerial (shareware) is frequently mentioned in the Delphi newsgroups
  • Delphi I/O Port Programming under NT v2.0 which includes a driver for manipulating the kernel I/O permissions map
  • Simple I/O for Windows 95/98 only. Assembler code fails in NT.
Dirk's Delphi Pages - lots of freeware with source code - including TCommPort. Author: Robert Clemenzi - clemenzi@cpcug.org
URL: http:// cpcug.org / user / clemenzi / technical / Languages / Delphi / Delphi_SerialIO.htm
    Search