Synaser

[PeterH]

Hello,
I'm trying to find an example how to receive serial data (19200,n,8,1) with synaser.
The data is a string of 128 characters.
Since synaser has no event driven receive routine... how is this done?

The examples that come with the source code only show sending data.

Thanks in advance for your time !

[theo]

http://wiki.freepascal.org/Hardware_Access#Serial_Communication

http://sourceforge.net/mailarchive/forum.php?forum_name=synalist-public

[jhmos]

Synasers API is described in the declaration section of the synaser.pas source file.

You could do something like this:

var
    Timeouts : integer;
    buf : array [0..128] of Byte;

    SynaSerComPort: TBlockSerial;

begin
  if SynaSerComPort = nil then

    SynaSerComPort:= TBlockSerial.Create;

  SynaSerComPort.LinuxLock:= False;
  // ignore port locking in Linux
  if not SynaSerComPort.InstanceActive then

    SynaSerComPort.Connect('COM1');  // or whatever com port (might be /dev/ttyUSB0 for Linux)
  // add some delays to allow for serial port setup times

  sleep(500);

  SynaSerComPort.Config(19200, 8, 'N', SB1, False, False);

  sleep(300);


    count:= SynaSerComPort.RecvBufferEx(@buf[0], 128, 500);  //Wait for 500ms per 128 byte packet
    if SynaSerComPort.LastError = ErrTimeout then

    begin

      Inc(Timeouts);
  // Do some sort of recovery here maybe
    end;


end;

[PeterH]

Thanks ! I'm going to look into the example

[PeterH]

I'm still a little confused. I don't see any polling in the example above.
Or does Synaser fires an event on Receiving characters?

I'm also curious on the Receive Packet function. Can I receive a string by delaring a start/stop character?

[Laksen]

In the example it calls RecvBufferEx and blocks until it either times out or receives some data