Use tts0, This example is from chatgpt,but why it doesn't work?
lazarus / 32-Linux

----------------------------------------------------------------------
coradi · 2024-12-03 20:50

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][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i 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 öffnenModify message

----------------------------------------------------------------------
Jurassic Pork · 2024-12-04 01:18

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

----------------------------------------------------------------------
Thaddy · 2024-12-04 05:28

You need to ask the question more precise:Code: Pascal
 [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i program
SerialPortListener; {$mode objfpc}{$H+} uses  cthreads, SysUtils,
synaser; var  Serial: TBlockSerial;  ReceivedData: string; begin  //
Initialize the serial port  Serial := TBlockSerial.Create;  try    //
Set the device to the appropriate serial port (e.g., /dev/ttyS0 or
/dev/ttyUSB0)    Serial.Connect('/dev/ttyS0');    // Set the baud rate
to 19200, 8 data bits, no parity, 1 stop bit    Serial.Config(19200,
8, 'N', SB1, False, False);     // Loop to read data from the serial
port    while True do    begin      // Check if data is available    
if Serial.CanRead(1000) then      begin        // Read the data      
ReceivedData := Serial.RecvPacket(1000);        // Print the received
data        WriteLn('Received: ', ReceivedData);      end;    end; 
finally    // Clean up    Serial.Free;  end;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 · 2024-12-04 15:38

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

----------------------------------------------------------------------
cdbc · 2024-12-04 16:54

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 · 2024-12-04 16:59

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 · 2024-12-04 18:04

That works almost identical. will add that example tomorrow.

----------------------------------------------------------------------
coradi · 2024-12-04 20:37

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 · 2024-12-15 19:07

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?