LazSerial not found

[coradi]

Whats wrong?!
Windows 10, and the package is installed
unit1.pas(11,13) Error: Cannot find LazSerial used by Unit1. Check if package LazSerialPort is in the dependencies of the Project Inspector.

Code: [Select]

// Version 1.0

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
  StdCtrls, LazSerial;

type

  { TForm1 }

  TForm1 = class(TForm)
    ButtonStart: TButton;
    LazSerial1: TLazSerial;
    Memo1: TMemo;
    procedure ButtonStartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LazSerial1RxData(Sender: TObject);
  private
    FBuffer: string;
    const END_STRING = 'end';
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'COM Empfaenger - Version 1.0';
  Memo1.Clear;

  LazSerial1.Device := 'COM20';
  LazSerial1.BaudRate := br9600;
end;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
  FBuffer := '';
  Memo1.Clear;
  LazSerial1.Open;
end;

procedure TForm1.LazSerial1RxData(Sender: TObject);
var
  s: string;
begin
  s := LazSerial1.ReadData;

  // fortlaufend anzeigen
  Memo1.Text := Memo1.Text + s;
  Memo1.SelStart := Length(Memo1.Text);

  // Puffer erweitern
  FBuffer := FBuffer + s;

  // Prüfen auf END_STRING
  if Pos(END_STRING, FBuffer) > 0 then
  begin
    LazSerial1.Close;

    // "end" entfernen
    Delete(FBuffer, Pos(END_STRING, FBuffer), Length(END_STRING));
    Memo1.Text := FBuffer;

    ShowMessage('Empfang abgeschlossen');
  end;
end;

end.

[coradi]

sorry, now I found the solution.
I didn't know, that I have to add lazserial in Objekt Inspektor dependecies

[jamie]

in case for some reason, you don't like that one, there is a UNIT called SERIAL that comes with fpc+laz

jamie

[coradi]

Yes, I will try later, this is an chatgpt example:-)
But now I can't change Baudrate?!
 LazSerial1.BaudRate :='B9600';
unit1.pas(43,32) Error: Incompatible type for arg no. 1: Got "Constant String", expected "TBaudRate"

Where can I see, how I use it correct?

[jamie]

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

1.  TBaudRate=(br___110,br___300, br___600, br__1200, br__2400, br__4800,
2.            br__9600,br_14400, br_19200, br_38400,br_56000, br_57600,
3.            br115200,br128000, br230400,br256000, br460800, br921600);
4.  
5.  

If you highliight the unit with control-C and click on it, it will open the source page, there you can see the defines.

[coradi]

thank you:-)
LazSerial1.BaudRate := TBaudRate.br19200;   
are thre different Versions?
LazSerial1.BaudRate := TBaudRate.br_19200;
LazSerial1.BaudRate := TBaudRate.br__19200;   
?   

[jamie]

Could be, I just gave you what I have installed here.

I have 0.6 is what my info displays

[coradi]

How can I use the Form?
I ad a Tmemo and then name this to LazSerial1RxData?
But it doesn't work:-(

[jamie]

did you supply a OnStatus event ?

Also, what device are you connecting to it and is COM20 actually there not in used elsewhere?

Also, there could be a naming issue for ports above COM9, you may need to use //com20 or something similar, can't remember now.

Jamie

[jamie]

it is like this.

'\\.\COM20';

[coradi]

ok, I have changed it To 2, that ist free but I can'T answer the other questions...don'T know how I do that.. I want my old TP7 back ....

[jamie]

ok, I have changed it To 2, that ist free but I can'T answer the other questions...don'T know how I do that.. I want my old TP7 back ....

  TP, The good ole days..

I don't have a device to plug into here at the moment so I can only give you suggestions, I know it works I used at work.

But for windows, anything above 9 or any port for that matter you prepend '\\.\" before the name.

Jamie

[coradi]

I think that was it for today...
I don't know...

[CM630]

You can take an updated version ot TLazSerial from here:
https://forum.lazarus.freepascal.org/index.php/topic,20481.msg575974.html#msg575974
Inside there are Test and Test1 folders - both contain examples.

[jamie]

I just did a loop-back test and it works here.

I used a jumper to close pin 2, 3 on the serial port.

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.   LazSerial1.Open;
4. end;
5.  
6. procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
7. begin
8.   If lazserial1.Active then
9.   begin
10.    LazSerial1.WriteData(Key);
11.   end;
12.  
13. end;
14.  
15. procedure TForm1.LazSerial1RxData(Sender: TObject);
16. begin
17.   Caption := LazSerial1.ReadData;
18. end;
19.  
20. procedure TForm1.LazSerial1Status(Sender: TObject; Reason: THookSerialReason;
21.   const Value: string);
22. begin
23.   Caption := Value;
24. end;                                        
25.  
26.  

Make sure you set the KeyPreview property to True in the form.

Jamie