Use ttyS0, exsample code? For Linux

[coradi]

Hallo,
is tehre any exsample code for using Serial ports with USb Converter (ttyS0)?
A simple open Port, and read port, or send and read back from same RX/TX?

[MarkMLl]

https://github.com/MarkMLl/serialcomms plus several others in the same repo.

MarkMLl

[coradi]

Great, I will try

[MarkMLl]

That's obviously based on the standard serial.pp, which hasn't had any attention for many years /but/ was tested on Linux, Windows (2Kish?) and SunOS/Solaris (which should be fairly similar to MacOS or whatever it's called).

It extended work that somebody else had done, but I was specifically focusing on low-level access and the calls will typically be in their own thread. At the time I was working on a serial comms analyzer (to capture the protocol between two commercial comms analyzers) and I very much wanted each captured byte to have a timestamp and a snapshot of the control line states.

On Windows it gets sole-access to the port, on unix it doesn't (which is something I'd be inclined to change). Also it doesn't have a SerAvailable(), but in Linux that has a gotcha: the result is truncated at 4K. More details in that repo, which also has stuff to detect various USB devices (which in practice are often built into e.g. a multimeter, Arduino etc.).

MarkMLl

[coradi]

This example is from chatgpt,but why it doesn't work?
With hterm the LED from CH UART is working, but with this code, nothing happends

Code: [Select]

program uart19200;

{$mode objfpc}{$H+}

uses
  cthreads, SysUtils, synaser;

var
  Serial: TBlockSerial;
  ReceivedData: string;
begin
 // WriteLn('Empfangene Daten: ');
  // Serielle Schnittstelle initialisieren
  Serial := TBlockSerial.Create;
  try
    // Serielle Schnittstelle öffnen
    Serial.Connect('/dev/ttyUSB0'); // Passe den Pfad hier an
    Serial.Config(19200, 8, 'N', SB1, False, False);

    // Empfangen von Daten
    WriteLn('Warte auf Daten...');

    while True do
    begin


      if Serial.WaitingData > 0 then
      begin
        ReceivedData := Serial.Recvstring(1000); // 1 Sekunde Timeout
        if ReceivedData <> '' then
        begin
          WriteLn('Empfangene Daten: ', ReceivedData);
        end;
      end
      else
        Sleep(100); // Warte kurz, um CPU-Last zu reduzieren
    end;

  except
    on E: Exception do
      WriteLn('Fehler: ', E.Message);
  end;

  Serial.Free;
end.             

[MarkMLl]

This example is from chatgpt,but why it doesn't work?
With hterm the LED from CH UART is working, but with this code, nothing happends

Don't post ChatGPT code here in case a subsequent search engine takes it as authoritative.

I pointed you at tested code which you said you'd try: what happened?

MarkMLl

[Thaddy]

Furthermore, please resolve any problems with chatGPT presented or generated code yourself, before posting.

[ccrause]

With hterm the LED from CH UART is working, but with this code, nothing happends
...

Which LED?
What is CH UART?
What actions did you perform in hterm?
The code example you refer to only receives serial data, thus there will be no noticeable activity on the USB converter unless something else is transmitting data on the converter's RX pin.  What do you expect should happen when you only receive data in the test code?

[coradi]

nobody?

[Thaddy]

nobody?

Which LED?
What is CH UART?
What actions did you perform in hterm?
The code example you refer to only receives serial data, thus there will be no noticeable activity on the USB converter unless something else is transmitting data on the converter's RX pin.  What do you expect should happen when you only receive data in the test code?

Why do you not answer those questions? ccrause is an expert. He needs that information, understand?

[MarkMLl]

nobody?

Have you actually read the messages posted in this thread?

What more do you expect anybody to say?

MarkMLl