TLazSerial : serial port component for Lazarus (windows and linux).

[Paul Breneman]

http://ctrlterm.com/ might be a good place to learn?

[laskov]

Hello everybody,

Is it possible to make console application with TLazSerial and if yes,
 1. what must be in Uses? (interfaces, ...)
 2. how to define LazSerial1: TLazSerial; ?

Thanks a lot!
Valentin

PS:
I managed to do it without TLazSerial:

uses ... , synaser;

type TSerial = class(TBlockSerial)
   end;

var ser: TSerial;

begin
  ser:=TSerial.Create;
...
...
end.

[CM630]

There is a chain of BUGS, which finally results in lazserialsetup.pas used in Windows XP.
Briefly: if the number of a device to be added is higher than nine (i.e. COM15) it is displayed only as
COM1. More information is given in this thread. I would like to ask if other people can reproduce the bug (and possibly in other Win versions).
Also, I would ask Jurassic Pork about his opinion. IMHO, bes solution is to contact the developers of Ararat Synapse, but also the GetSerialPortNames function can be duplicated in LazSerial with a bugfix.

[BigChimp]

IMHO, bes solution is to contact the developers of Ararat Synapse,

FYI: If that bug is confirmed: submitting a patch via the synapse mailing list has been a painless process for me both for bug fixes and commenting improvements...

[Jurassic Pork]

hello,
my O.S is Windows 7 64 bits, i use Lazarus 1.2.4   32 bits.  I have created two virtual serial ports paired with the software com0com . The names of these ports are COM129 and COM140.  I launch two instances of the example gps simulator sertest of tlazerial component. In the first i can choose and open the COM129 port , in the other the port COM140. When i start the gps simulator on one , i receive the frames on the other.

[CM630]

my O.S is Windows 7 64 bits, i use Lazarus 1.2.4   32 bits.  I have created two virtual serial ports paired with the software com0com .

Did you check the value of the registry with regedit (as seen from attached image)?  A virtual com port might be created properly, there is a problem with Bluetooth com port installation. I just plugged a USB to Serial adapter, win assigned COM3 to it, then I manually changed the prot number to 41 and it is okay (right picture). But adding COM devices to bluetooth (in Win XP) does not add last two zeroes (left screenshot).
I did the same on another PC with WinXP 32 bit. Bluetooth added COMS the same way. Then I run this source in VB.NET:

Code: [Select]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim readValue As String
  readValue = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM", "\Device\BthModem10", Nothing)
  MsgBox("The value is " & readValue)
End Sub
It returned the entire string. So I have nothing else to think, except that there is a bug in the FPC registry implementation, or precisely registry.pp.
Here is their code:
 

function TRegistry.ReadString(const Name: string): string;

Var
  Info : TRegDataInfo;

begin
  GetDataInfo(Name,Info);
  if info.datasize>0 then
    begin
     If Not (Info.RegData in [rdString,rdExpandString]) then
       Raise ERegistryException.CreateFmt(SInvalidRegType, [Name]);
     SetLength(Result,Info.DataSize);
     If StringSizeIncludesNull then
       SetLength(Result, Info.DataSize-1)
     else
       SetLength(Result, Info.DataSize);
     GetData(Name,PChar(Result),Info.DataSize,Info.RegData);
   end
  else
    result:='';
end;

In the source of registry.pp I could not find where StringSizeIncludesNull gets its value from, but it always returns true!?!


Edit: I have fixed the code the following way, no it seems to work fine:

Code: [Select]

function TRegistry.ReadString(const Name: string): string;
Var
  Info : TRegDataInfo;
begin
  GetDataInfo(Name,Info);
  if info.datasize>0 then
    begin
     If Not (Info.RegData in [rdString,rdExpandString]) then
       Raise ERegistryException.CreateFmt(SInvalidRegType, [Name]);
     SetLength(Result,Info.DataSize);
     GetData(Name,PChar(Result),Info.DataSize,Info.RegData);
     FStringSizeIncludesNull:=(RightStr(Result,1)=#0);
     If StringSizeIncludesNull then
       SetLength(Result, Info.DataSize-1)
     else
       SetLength(Result, Info.DataSize);
   end
  else
    Result:='';
end; 
Edit: Reported as bug 27002.
Edit: It occurs that the problem was reported 2,5 years ago, still no resolution.
Jurassic Pork, what about using a custom ReadString  function in your library, until the bug is fixed? Also, do you mean uploading it to SF or somthing similar?

[parcel]

http://books.google.co.kr/books?id=kVqB5hjNsScC&pg=PA287&lpg=PA287&dq=registry+string+null+terminated&source=bl&ots=19SAsxSUWI&sig=vu1JQKO0yS_rKSm9dUJfkHwbb9M&hl=ko&sa=X&ei=GGdcVLmPL4Hz8QXt04LwBw&ved=0CD4Q6AEwAw#v=onepage&q=registry%20string%20null%20terminated&f=false

It describe some registry string has null terminate string in windows 9x, and not in windows nt.
it may check and strip null character at reading.

[CM630]

The problem is that no one from the FPC team seems to solve problem. I will submit a patch, hopefully s.o. will apply it.
And also, since *Jurassic Pork does not seem to be interested in TLazSerial anymore, maybe I should fork it, since I am willing to make some improvements.

[whoim]

this component may work on android?)
need bluetouch slave cdc connect to my device

[brewdos]

Thank you very much for your work

[CM630]

Latest info from the bugtracker is that the registry bug is fixed. I hope I will be able to try it soon.

[Ferke]

Hi,

first of all, thank you for your component.
I have a question.  I would like to use this component on Raspberry Pi 2. Will this work on ARM?

[maxid]

can implement datapackets?
how send and receive Records?

[Jurassic Pork]

hello,
 you can parse packets in the OnRxData event. TComportDataPacket is only an easy way to do this.
if you are on Windows, see Tcomport component for Lazarus.

Friendly, J.P

[eny]

can implement datapackets?
how send and receive Records?

By not cross posting and creating a new thread with your question.