pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

synaser.pas - GetSerialPortNames (Linux) - repaired and compatible with Windows variant.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@157 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2012-06-13 13:43:32 +00:00
parent b3ee5380c7
commit 09bac07010
1 changed files with 15 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
synaser.pas
View File

@ -1,9 +1,9 @@
{==============================================================================|
| Project : Ararat Synapse | 007.005.002 |
| Project : Ararat Synapse | 007.005.003 |
|==============================================================================|
| Content: Serial port support |
|==============================================================================|
| Copyright (c)2001-2011, Lukas Gebauer |
| Copyright (c)2001-2012, Lukas Gebauer |
| All rights reserved. |
| |
| Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. |
|==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2001-2011. |
| Portions created by Lukas Gebauer are Copyright (c)2001-2012. |
| All Rights Reserved. |
|==============================================================================|
| Contributor(s): |
@ -2309,30 +2309,21 @@ end;
{$IFNDEF MSWINDOWS}
function GetSerialPortNames: string;
var
Index: Integer;
Data: string;
TmpPorts: String;
sr : TSearchRec;
begin
try
TmpPorts := '';
if FindFirst('/dev/ttyS*', $FFFFFFFF, sr) = 0 then
begin
repeat
if (sr.Attr and $FFFFFFFF) = Sr.Attr then
begin
data := sr.Name;
index := length(data);
while (index > 1) and (data[index] <> '/') do
index := index - 1;
TmpPorts := TmpPorts + ' ' + copy(data, 1, index + 1);
end;
until FindNext(sr) <> 0;
end;
FindClose(sr);
finally
Result:=TmpPorts;
Result := '';
if FindFirst('/dev/ttyS*', $FFFFFFFF, sr) = 0 then
begin
repeat
if (sr.Attr and $FFFFFFFF) = Sr.Attr then
begin
if Result <> '' then
Result := Result + ',';
Result := Result + sr.Name;
end;
until FindNext(sr) <> 0;
end;
FindClose(sr);
end;
{$ENDIF}