Delphi 7 Read Serial Port

Posted By admin On 18.08.19

Controlling Outputs with the PC Controlling Arduino Outputs with the PC Elsewhere on my website, I show details of a Video Switcher which can be controlled using the.

Serial Communications Library for Borland/Embarcadero Delphi to easily communicate with RS232 or multi-drop RS422 / RS485 serial ports and virtual ports such as those created by Bluetooth and USB/serial converters. Hi, I can read from the serial port when triggered by an event, for example from a button click:- procedure. I know that I have to read the number of packets in the buffer (maybe using ClearCommError) and that. Going from a program that already worked in Delphi 7 with the ComPort installed in.

DataPort - thread-safe abstract port for data exchange. You can open DataPort and push some data into - data will appear on other side. And if other side send some data, you will get notifyed and can pull data from port at any time.

DataPort use Ararat Synapse library ( http://sourceforge.net/p/synalist/code/HEAD/tree/trunk/ ), which must be installed first as separate package for Lasarus.

DataPort can be freely used and modified under MIT License.

Features:

  • non-visual components for Lazarus/Delphi
  • network (TCP/UDP/HTTP)
  • serial port (UART, COM-port, FTDI)
  • device file (ioctl supported) and conventional file
  • named pipes

Coming soon:

  • listener (server)
  • paralel port (LPT)
  • DDE
  • IPC

Delphi 7 Serial Port

TDataPort is abstract component for reading and writing data to some port. It don't do anything and needs to be used as property or parent class for new components.

Properties:

  • Active - is port ready for data exchange.

Methods:

  • Push() - Send data to port
  • Pull() - Get data from port. Data readed from incoming buffer, and removed after that. You can specify number of bytes for read. If incoming buffer have less bytes, than specified, then will be returned while buffer. By default, return whole buffer and clear it after.
  • Peek() - Read data from incoming buffer, but don't remove. You can specify number of bytes for read. If incoming buffer have less bytes, than specified, then will be returned while buffer. By default, return whole buffer.
  • PeekSize() - Returns number of bytes in incoming buffer of port.
  • Open() - Open data port for data exchange. You can specify port initialisation string
  • Close() - Shut down port communication

Events:

  • OnDataAppear - Triggered in data appear in incoming buffer of dataport.
  • OnError - Triggered on error, contain error description.

TDataPortSerial

Serial communication port. In Windows it COM-port (real or virtual). In Linux it /dev/ttyS or /dev/ttyUSB. Also, Linux use file /var/lock/LCK.ttyS for port locking

Properties:

  • Port - port name (COM1, /dev/ttyS01)
  • BaudRate - data excange speed
  • MinDataBytes - minimal bytes count in buffer for triggering event OnDataAppear

Methods:

  • Open() - Opens port. As parameter it use port initialization string:

Events:

Her academic interests include haptics, teleoperation, virtual environments and simulators, medical robotics, neuromechanics and rehabilitation, prosthetics, and engineering education. Outside academia, she enjoys spending time with her husband and two children, running, and playing. Alison online program.

  • OnConnect - Triggered after sucñessful connection.
  • OnDisconnect - Triggered after disconnection.

TDataPortFtdi

Serial communication port based on FTD2XX library.

Properties:

  • SerialNumber - device serial number
  • DeviceDescription - device description string
  • BaudRate - data excange speed (300, 1200, 9600, 115384, 230769, 923076)
  • MinDataBytes - minimal bytes count in buffer for triggering event OnDataAppear

Methods:

  • Open() - Opens port. As parameter it use port initialization string:
  • GetFtdiDeviceList() - list of available devices in format:

Events:

  • OnModemStatus - Triggered when modem status changes (CTS, DTR, RI, DCD)

TDataPortIP, TDataPortTCP, TDataPortUDP

Asynchronous wrapper around Synapse TBlockSocket.

When using UDP, remember, that it not session protocol, data delivery and correct order not guaranteed. To start receive data, you must send empty packet to remote side, it tell remote side return address.

From version 1.0.3 multiple DataPortIP instances uses common socket reader with single thread. It allow open thousands IP connections without performance losses.

Delphi 7 serial port component

Properties:

  • RemoteHost - IP-address or name of remote host
  • RemotePort - remote UPD or TCP port number

Methods:

  • Open() - Connect to remote port. Session establiched for TCP and just port initialised for UDP. Init string format:

Events:

  • OnConnect - Triggered after UDP port init or TCP session establiched.

TDataPortHTTP

Allows you to communicate via HTTP. Specify URL and request parameters, then call Push() to connect and transfer data to a remote server. After successful execution of the request, data can be read from the input buffer. Large amounts of data received by parts, and OnDataAppear event can be triggered multiple times.

If POST method selected, then request parameter mime-type='application/x-www-form-urlencoded' set, it allow transfer parameters as web form values.

Properties:

  • Url: address and params string, URL
  • Params: HTTP request params in name=value format
  • Method: HTTP request method
    • httpGet - GET
    • httpPost - POST

Methods:

  • Open() - sets URL string for HTTP request, but not send request itself. Request will be sent on Push(). URL string format:

TDataPortFile

Data exchange via file. Suitable for device files (/dev/* under Unix or specialfiles in Windows). Conventional data files can be used too.

Properties:

  • Filename - Path (optionally) and name of file.
  • FilePos - Current position in file, bytes from beginning (for conventional files).
  • QueryInterval - Interval for checking changes in file, milliseconds.
  • MinDataBytes - Minimum number of bytes in buffer for triggering OnDataAppear event.
  • KeepOpen - Keep the file open between read and write operations:
    • True - file stay opened
    • False - file will be opened before every read/write operation and closed after.
  • WriteMode - File write mode:
    • fwmRewrite - every write apply to beginning of file
    • fwmAppend - data written from last operation position or appended to the end of file

Methods:

  • Open() - Opens file with given name, 'file:' prefix can be used.

TDataPortPipes

Data exchange through named pipes. Pipe name is platform-specific. On Windows, '.pipe' prefix added automaticaly.

Pipe must be already exists, created by Linux 'mkfifo' command or some other program.

Methods:

  • Open() - open pipe channel with specified name

Delphi 7 Serial Port Library

I need complete code of writing to serial port.
This is what I need:
I need to send a string of hexa to the serial port and receive another string of hexa from there (and translate it later)
The string I need to send is:
$f0$41$30$4f$f7
The received data will also be hexa, and I need to append it to a table in specific columns of a table (but that is not a problem for me, so don't bother)
The sending of the data will happen periodically (but that's also my problem to solve, not yours)
Please do not point me to various other links in experts-exchange or links to components.. I've been there already. But sadly I have no experience in communicating with the serial port (not even using any third party component to do it).
So please give me working code (perhaps using a specific third party component)
I must give you here a list of freeware components that seem to work just fine with the serial port (but obviously they work for someone that has some experience with serial ports):
http://www.torry.net/pages.php?id=198
http://www.domis.de/cms/index.php?module=ContentExpress&func=display&ceid=8
http://www.ciemmesoft.com/release3/Forum_Componenti/Topic.asp?ID=972
http://sourceforge.net/projects/tpapro/