TComPort

[eldonfsr]

After work some days with Tcomport i got show dialog for config the port but now not afect any changes on the port, some body can help me pls, here the component with some changes cportsetup.pas mainly.

[Jurassic Pork]

hello eldonsfr,

good news for you,
i have fixed your issue  and i have created a new version of the Cport lazarus library for windows ( 3.2) .

ChangeLog :
Version history
---------------
3.2_laz March 21, 2013
  by Jurassic Pork
  Fixed CportSetup.pas and cport.lrs to use with Lazarus 1.0.6   Windows only
  Added demo ( to send and receive data from a com port)

new version in attachments.

Friendly,  J.P   

[eldonfsr]

Thanks friend good job I spend almost 2 days on that.

[hy]

Could you please use another type of archive? I can not open it.
I am on Linux - does it work with Linux as well?
Thanks in advance

[BigChimp]

Could you please use another type of archive? I can not open it.

Try with the p7zip package for Linux

Code: [Select]

aptitude install p7zip-full
# cd to where the archive is
7za x <name of 7z>


[Jurassic Pork]

TcomPort is for windows only ,

depending on what are you looking for, you can try my component TLazSerial for linux and windows

 here : http://www.lazarus.freepascal.org/index.php/topic,20481.msg118267.html#msg118267

friendly, J.P

[wylton]

I have modificad.

procedure TCustomComTerminal.Paint;
var
  ARect: TRect;
begin
  Canvas.Font := Font;
  Canvas.Brush.Color := Color;
  if csDesigning in ComponentState then
    PaintDesign
  else
  begin
    MoveCaret(FCaretPos.X, FCaretPos.Y);
    // don't paint whole screen, but only the invalidated portion
    ARect.Left := Canvas.ClipRect.Left div (FFontWidth + 1);
    ARect.Right := Min(Canvas.ClipRect.Right div (FFontWidth + 1), FColumns);
    ARect.Top := Canvas.ClipRect.Top div (FFontHeight + 1);
    ARect.Bottom := Min(Canvas.ClipRect.Bottom div (FFontHeight + 1), FRows);
    PaintTerminal(ARect);
  end;
end;             

[wylton]

can't compiler in lazarus 1.1..

error lines:
FontDialog.Font := TFont(GetOrdValue);

[becar]

 hi Jurassic Pork,

  For me, it not compile in lazarus 1.0.12 but worked in 1.0.10:

C:\lazarus\components\cport_lazarus_3_2\CPort.pas(28,1) Fatal: Syntax error, "identifier" expected but "TYPE" found

regards,

[eldonfsr]

Here last chabge to cport lib if some bady using that i hope can help this.

[becar]

Hi eldonfsr,

Work fine for me, thank you.

 

[Paul Breneman]

I'd like to port www.CtrlTerm.com to other platforms and tools, so if anyone wants to send me code using LazSerial or any other component please contact me.

[eldonfsr]

Paul thanks but i think we send only on private email becasu by this forum must be a small example, I have app to comunicate serial port to transfer information form lathes and milling machines, if you wanna i can send that.

thanks.

[Paul Breneman]

Yes, please send me the source code for your program.  That should help me to release a program that could be a good example for Lazarus.

[eldonfsr]

Paul here is the code of app i used to communicate lathes with pc and  transfer file.

https://hotfile.com/dl/251656540/9bf0b27/SMAC_GUI.rar.html

if you have some problems send me email pls.

i hope that help you.

best regards.