Use tts0, This example is from chatgpt,but why it doesn't work?

[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: Pascal  [Select][+][-]

1. program uart19200;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   cthreads, SysUtils, synaser;
7.  
8. var
9.   Serial: TBlockSerial;
10.   ReceivedData: string;
11. begin
12.  // WriteLn('Empfangene Daten: ');
13.   // Serielle Schnittstelle initialisieren
14.   Serial := TBlockSerial.Create;
15.   try
16.     // Serielle Schnittstelle öffnen
17. Modify message
18.  

[Jurassic Pork]

hello,
i don't see in your code init of the serial port.
Friendly, J.P

[Thaddy]

You need to ask the question more precise:

Code: Pascal  [Select][+][-]

1. program SerialPortListener;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   cthreads, SysUtils, synaser;
7.  
8. var
9.   Serial: TBlockSerial;
10.   ReceivedData: string;
11.  
12. begin
13.   // Initialize the serial port
14.   Serial := TBlockSerial.Create;
15.   try
16.     // Set the device to the appropriate serial port (e.g., /dev/ttyS0 or /dev/ttyUSB0)
17.     Serial.Connect('/dev/ttyS0');
18.     // Set the baud rate to 19200, 8 data bits, no parity, 1 stop bit
19.     Serial.Config(19200, 8, 'N', SB1, False, False);
20.  
21.     // Loop to read data from the serial port
22.     while True do
23.     begin
24.       // Check if data is available
25.       if Serial.CanRead(1000) then
26.       begin
27.         // Read the data
28.         ReceivedData := Serial.RecvPacket(1000);
29.         // Print the received data
30.         WriteLn('Received: ', ReceivedData);
31.       end;
32.     end;
33.   finally
34.     // Clean up
35.     Serial.Free;
36.   end;
37. end.

Not my code, chatGPT  This one works if the synapse library is in the path or the package is installed. (just tested, minimally on /dev/ttyUSB0, the above code is untouched)

Both synaser examples from the wiki also work when you set up the config for your conection:
https://wiki.freepascal.org/Hardware_Access#Serial_Communication

[coradi]

same..nothing happens
No blinking RX LED or something.
With Hterm it works well
I use /dev/ttyUSB0

[cdbc]

Hi
Just checking...
You are trying to fit Thaddy's example to use your local values, right?!?
...Not just copy-pasting and hoping... 
Regards Benny

[af0815]

The samples are for reading data on the computer side, not for sending. If you use HTerm i think, you are sending data to the serial device.

[Thaddy]

That works almost identical. will add that example tomorrow.

[coradi]

At this moment I only need reading. I don'T use hterm.
I used it only to check if I can get Data here, and this work, in Hterm I receive data.
But in PAscal, nothing happens, when I end hterm for free the com Port.

Yes, I only copy paste this and take a look into the Console output Window

[coradi]

Maybe the problem is, that the sending string has no /0 at the end?
But ow can I receive it then, if  can't mody the sending string?