Changeset 575


Ignore:
Timestamp:
Jun 25, 2024, 11:56:51 AM (5 months ago)
Author:
chronos
Message:
  • Modified: Remove U prefix from unit names of PinConnection package.
Location:
PinConnection
Files:
1 edited
1 copied
24 moved

Legend:

Unmodified
Added
Removed

  • PinConnection/CommConcentrator.pas

    r574 r575  
    22// Data received on main pin is sent to all pins
    33
    4 unit UCommConcentrator;
    5 
    6 {$mode Delphi}{$H+}
     4unit CommConcentrator;
    75
    86interface
    97
    108uses
    11   Classes, SysUtils, Contnrs, UCommPin, SpecializedList;
     9  Classes, SysUtils, Contnrs, CommPin, SpecializedList;
    1210
    1311type
    … …  
    4139    property Main: TCommPin read FMain write FMain;
    4240  end;
     41
    4342
    4443implementation
    … …  
    125124  FreeAndNil(FPins);
    126125  FreeAndNil(FMain);
    127   inherited Destroy;
     126  inherited;
    128127end;
    129128

  • PinConnection/CommConnector.pas

    r574 r575  
    1 unit UCommConnector;
    2 
    3 {$mode delphi}
     1unit CommConnector;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UCommPin, UCommSerialPort, UCommTCPClient, UCommThread,
    9   UCommHub, UCommTCPServer, UCommTelnet,
    10   UCommTelnetComPortOption;
     6  Classes, SysUtils, CommPin, CommSerialPort, CommTCPClient, CommThread,
     7  CommHub, CommTCPServer, CommTelnet, CommTelnetComPortOption;
    118
    129type
    … …  
    4946    property Active: Boolean read FActive write SetActive;
    5047  end;
     48
    5149
    5250implementation
    … …  
    149147end;
    150148
    151 
    152149constructor TDeviceConnector.Create;
    153150begin
    … …  
    191188end;
    192189
    193 
    194 
    195190end.
    196191

  • PinConnection/CommDelay.pas

    r574 r575  
    1 unit UCommDelay;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommDelay;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UCommPin, UThreading, SyncObjs, SpecializedList;
     6  Classes, SysUtils, CommPin, Threading, SyncObjs, SpecializedList;
    97
    108type
    … …  
    5250    property Delay: TDateTime read FDelay write FDelay;
    5351  end;
     52
    5453
    5554implementation
    … …  
    103102destructor TDelayedPacket.Destroy;
    104103begin
    105   Data.Free;
    106   inherited Destroy;
     104  FreeAndNil(Data);
     105  inherited;
    107106end;
    108107
    … …  
    186185begin
    187186  Active := False;
    188   Pin2.Free;
    189   Pin1.Free;
    190   PacketQueue1.Free;
    191   PacketQueue2.Free;
    192   Lock1.Free;
    193   Lock2.Free;
    194   inherited Destroy;
     187  FreeAndNil(Pin2);
     188  FreeAndNil(Pin1);
     189  FreeAndNil(PacketQueue1);
     190  FreeAndNil(PacketQueue2);
     191  FreeAndNil(Lock1);
     192  FreeAndNil(Lock2);
     193  inherited;
    195194end;
    196195

  • PinConnection/CommFrame.pas

    r574 r575  
    1 unit UCommFrame;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommFrame;
    42
    53interface
    64
    75uses
    8   Classes, Dialogs, SysUtils, SpecializedList, UBinarySerializer,
    9   UCommPin;
     6  Classes, Dialogs, SysUtils, SpecializedList, BinarySerializer,
     7  CommPin;
    108
    119type
    … …  
    6967  FreeAndNil(RawDataPin);
    7068  FreeAndNil(FrameDataPin);
    71   ReceiveBuffer.Free;
     69  FreeAndNil(ReceiveBuffer);
    7270  inherited;
    7371end;
    … …  
    200198end;
    201199
    202 
    203200end.

  • PinConnection/CommHub.pas

    r574 r575  
    1 unit UCommHub;
    2 
    3 {$mode delphi}
     1unit CommHub;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, Contnrs, UCommPin, SpecializedList;
     6  Classes, SysUtils, Contnrs, CommPin, SpecializedList;
    97
    108type

  • PinConnection/CommMark.pas

    r574 r575  
    1 unit UCommMark;
    2 
    3 {$mode delphi}{$H+}
     1unit CommMark;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UCommPin, SpecializedList;
     6  Classes, SysUtils, CommPin, SpecializedList;
    97
    108type
    … …  
    106104destructor TCommMark.Destroy;
    107105begin
    108   FFrameData.Free;
    109   Mark.Free;
    110   PinRaw.Free;
    111   PinFrame.Free;
    112   inherited Destroy;
     106  FreeAndNil(FFrameData);
     107  FreeAndNil(Mark);
     108  FreeAndNil(PinRaw);
     109  FreeAndNil(PinFrame);
     110  inherited;
    113111end;
    114112

  • PinConnection/CommPin.pas

    r574 r575  
    1 unit UCommPin;
    2 
    3 {$mode Delphi}{$H+}{$M+}
     1unit CommPin;
    42
    53interface
    … …  
    150148end;
    151149
    152 
    153150end.

  • PinConnection/CommSerialPort.pas

    r574 r575  
    1 unit UCommSerialPort;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommSerialPort;
    42
    53interface
    64
    75uses
    8   Classes, USerialPort, UCommPin, SysUtils, DateUtils, SpecializedList,
     6  Classes, SerialPort, CommPin, SysUtils, DateUtils, SpecializedList,
    97  SyncObjs;
    108
    … …  
    3028
    3129implementation
    32 
    3330
    3431{ TCommSerialPort }

  • PinConnection/CommSocket.pas

    r574 r575  
    1 unit UCommSocket;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommSocket;
    42
    53interface

  • PinConnection/CommTCPClient.pas

    r574 r575  
    1 unit UCommTCPClient;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommTCPClient;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, blcksock, synsock, UCommPin, UCommon, UThreading,
     6  Classes, SysUtils, blcksock, synsock, CommPin, Common, Threading,
    97  DateUtils, SpecializedList;
    108
    … …  
    116114begin
    117115  Active := False;
    118   Socket.Free;
    119   Pin.Free;
    120   inherited Destroy;
     116  FreeAndNil(Socket);
     117  FreeAndNil(Pin);
     118  inherited;
    121119end;
    122120
    … …  
    159157destructor TCommSocketReceiveThread.Destroy;
    160158begin
    161   Stream.Free;
     159  FreeAndNil(Stream);
    162160  inherited;
    163161end;

  • PinConnection/CommTCPServer.pas

    r574 r575  
    1 unit UCommTCPServer;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommTCPServer;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, blcksock, synsock, UCommPin, UCommon, UThreading,
     6  Classes, SysUtils, blcksock, synsock, CommPin, Common, Threading,
    97  DateUtils, SpecializedList;
    108
    … …  
    6462  end;
    6563
     64
    6665implementation
    6766
    … …  
    9291destructor TCommTCPServerSession.Destroy;
    9392begin
    94   Pin.Free;
    95   Socket.Free;
    96   inherited Destroy;
     93  FreeAndNil(Pin);
     94  FreeAndNil(Socket);
     95  inherited;
    9796end;
    9897
    … …  
    161160destructor TCommSocketReceiveThread.Destroy;
    162161begin
    163   Stream.Free;
    164   inherited Destroy;
     162  FreeAndNil(Stream);
     163  inherited;
    165164end;
    166165
    … …  
    200199begin
    201200  Active := False;
    202   Socket.Free;
    203   Sessions.Free;
    204   inherited Destroy;
     201  FreeAndNil(Socket);
     202  FreeAndNil(Sessions);
     203  inherited;
    205204end;
    206205

  • PinConnection/CommTelnet.pas

    r574 r575  
    1 unit UCommTelnet;
    2 
    3 {$mode delphi}{$H+}
     1unit CommTelnet;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UCommPin, SpecializedList, DateUtils, Dialogs,
    9   UBinarySerializer;
     6  Classes, SysUtils, CommPin, SpecializedList, DateUtils, Dialogs,
     7  BinarySerializer;
    108
    119type
    … …  
    469467  FreeAndNil(RawPin);
    470468  FreeAndNil(FResponses);
    471   inherited Destroy;
     469  inherited;
    472470end;
    473471

  • PinConnection/CommTelnetComPortOption.pas

    r574 r575  
    1 unit UCommTelnetComPortOption;
    2 
    3 {$mode delphi}{$H+}
     1unit CommTelnetComPortOption;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UCommTelnet, USerialPort,
    9   SpecializedList, UBinarySerializer;
     6  Classes, SysUtils, CommTelnet, SerialPort, SpecializedList, UBinarySerializer;
    107
    118type
    … …  
    5855function TTelnetOptionComPort.GetDataBits: TDataBits;
    5956begin
    60 
    6157end;
    6258
    6359function TTelnetOptionComPort.GetDTR: Boolean;
    6460begin
    65 
    6661end;
    6762
    6863function TTelnetOptionComPort.GetFlowControl: TFlowControl;
    6964begin
    70 
    7165end;
    7266
    7367function TTelnetOptionComPort.GetParity: TParity;
    7468begin
    75 
    7669end;
    7770
    7871function TTelnetOptionComPort.GetRTS: Boolean;
    7972begin
    80 
    8173end;
    8274
    8375function TTelnetOptionComPort.GetStopBits: TStopBits;
    8476begin
    85 
    8677end;
    8778
    … …  
    144135procedure TTelnetOptionComPort.SetDataBits(AValue: TDataBits);
    145136begin
    146 
    147137end;
    148138
    … …  
    189179procedure TTelnetOptionComPort.SetParity(AValue: TParity);
    190180begin
    191 
    192181end;
    193182
    … …  
    213202procedure TTelnetOptionComPort.SetStopBits(AValue: TStopBits);
    214203begin
    215 
    216204end;
    217205
    … …  
    223211destructor TTelnetOptionComPort.Destroy;
    224212begin
    225   inherited Destroy;
     213  inherited;
    226214end;
    227215

  • PinConnection/CommThread.pas

    r574 r575  
    1 unit UCommThread;
    2 
    3 {$mode Delphi}{$H+}
     1unit CommThread;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, blcksock, UCommPin, SyncObjs, UCommon,
    9   DateUtils, UThreading, SpecializedList, UBinarySerializer;
     6  Classes, SysUtils, blcksock, CommPin, SyncObjs, Common,
     7  DateUtils, Threading, SpecializedList, BinarySerializer;
    108
    119type
    … …  
    4947    destructor Destroy; override;
    5048  end;
     49
    5150
    5251implementation
    … …  
    188187destructor TCommThreadReceiveThread.Destroy;
    189188begin
    190   Stream.Free;
     189  FreeAndNil(Stream);
    191190  inherited;
    192191end;

  • PinConnection/Languages/CommTCPClient.pot

    r574 r575  
    22msgstr "Content-Type: text/plain; charset=UTF-8"
    33
    4 #: ucommtcpclient.scantconnecttoserver
     4#: commtcpclient.scantconnecttoserver
     5msgctxt "commtcpclient.scantconnecttoserver"
    56msgid "Can't connect to remote server"
    6 msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"
     7msgstr ""
    78

  • PinConnection/Languages/CommTelnet.pot

    r574 r575  
    22msgstr "Content-Type: text/plain; charset=UTF-8"
    33
    4 #: ucommtelnet.soptionnotfound
     4#: commtelnet.soptionnotfound
     5msgctxt "commtelnet.soptionnotfound"
    56msgid "Option not found"
    67msgstr ""
    78
    8 #: ucommtelnet.stimeout
     9#: commtelnet.stimeout
     10msgctxt "commtelnet.stimeout"
    911msgid "Telnet command timout"
    1012msgstr ""
    1113
    12 #: ucommtelnet.sunknownstate
     14#: commtelnet.sunknownstate
     15msgctxt "commtelnet.sunknownstate"
    1316msgid "Unknown state"
    1417msgstr ""
    1518
    16 #: ucommtelnet.swrongresponse
     19#: commtelnet.swrongresponse
     20msgctxt "commtelnet.swrongresponse"
    1721msgid "Wrong response"
    1822msgstr ""
    1923
    20 #: ucommtelnet.swrongresponsecode
     24#: commtelnet.swrongresponsecode
     25msgctxt "commtelnet.swrongresponsecode"
    2126msgid "Wrong response code"
    2227msgstr ""
    2328
    24 #: ucommtelnet.swrongresponseoption
     29#: commtelnet.swrongresponseoption
     30msgctxt "commtelnet.swrongresponseoption"
    2531msgid "Wrong response option"
    2632msgstr ""

  • PinConnection/Languages/SerialPort.cs.po

    r574 r575  
    1010"Content-Transfer-Encoding: 8bit\n"
    1111
    12 #: userialport.sassignmenterror
     12#: serialport.sassignmenterror
     13#, fuzzy
     14msgctxt "serialport.sassignmenterror"
    1315msgid "Assignment error"
    1416msgstr "Chyba přiřazení"
    1517
    16 #: userialport.swrongdatabitsnumber
     18#: serialport.swrongdatabitsnumber
     19#, object-pascal-format, fuzzy
     20msgctxt "serialport.swrongdatabitsnumber"
    1721msgid "Wrong data bits number %s"
    1822msgstr "Nesprávné číslo datových bitů %s"

  • PinConnection/Languages/SerialPort.pot

    r574 r575  
    22msgstr "Content-Type: text/plain; charset=UTF-8"
    33
    4 #: userialport.sassignmenterror
     4#: serialport.sassignmenterror
     5msgctxt "serialport.sassignmenterror"
    56msgid "Assignment error"
    6 msgstr "Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8Content-Type: text/plain; charset=UTF-8"
     7msgstr ""
    78
    8 #: userialport.swrongdatabitsnumber
     9#: serialport.swrongdatabitsnumber
     10#, object-pascal-format
     11msgctxt "serialport.swrongdatabitsnumber"
    912msgid "Wrong data bits number %s"
    1013msgstr ""

  • PinConnection/PacketBurst.pas

    r574 r575  
    1 unit UPacketBurst;
    2 
    3 {$mode Delphi}{$H+}
     1unit PacketBurst;
    42
    53interface
    64
    75uses
    8   Classes, UCommPin, SyncObjs, UCommon, SysUtils, SpecializedList,
    9   DateUtils, UBinarySerializer;
     6  Classes, CommPin, SyncObjs, Common, SysUtils, SpecializedList,
     7  DateUtils, BinarySerializer;
    108
    119type
    … …  
    3937  end;
    4038
     39
    4140implementation
    4241
    … …  
    5958begin
    6059  Active := False;
    61   SendThreadEvent.Free;
    62   PacketSinglePin.Free;
    63   PacketBurstPin.Free;
     60  FreeAndNil(SendThreadEvent);
     61  FreeAndNil(PacketSinglePin);
     62  FreeAndNil(PacketBurstPin);
    6463  inherited;
    6564end;

  • PinConnection/PinConnection.lpk

    r440 r575  
    1 <?xml version="1.0"?>
     1<?xml version="1.0" encoding="UTF-8"?>
    22<CONFIG>
    3   <Package Version="4">
     3  <Package Version="5">
    44    <PathDelim Value="\"/>
    55    <Name Value="PinConnection"/>
     6    <Type Value="RunAndDesignTime"/>
    67    <AddToProjectUsesSection Value="True"/>
    78    <Author Value="Chronos"/>
    … …  
    1213        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1314      </SearchPaths>
    14       <Other>
    15         <CompilerMessages>
    16           <UseMsgFile Value="True"/>
    17         </CompilerMessages>
    18         <CompilerPath Value="$(CompPath)"/>
    19       </Other>
     15      <Parsing>
     16        <SyntaxOptions>
     17          <SyntaxMode Value="Delphi"/>
     18          <CStyleOperator Value="False"/>
     19          <AllowLabel Value="False"/>
     20          <CPPInline Value="False"/>
     21        </SyntaxOptions>
     22      </Parsing>
     23      <Linking>
     24        <Debugging>
     25          <GenerateDebugInfo Value="False"/>
     26        </Debugging>
     27      </Linking>
    2028    </CompilerOptions>
    2129    <Description Value="System for class bidirectional communication interconnection."/>
    2230    <License Value="GNU/GPL"/>
    23     <Version Minor="4"/>
    24     <Files Count="16">
     31    <Version Minor="5"/>
     32    <Files Count="17">
    2533      <Item1>
    26         <Filename Value="USerialPort.pas"/>
    27         <UnitName Value="USerialPort"/>
     34        <Filename Value="SerialPort.pas"/>
     35        <UnitName Value="SerialPort"/>
    2836      </Item1>
    2937      <Item2>
    30         <Filename Value="UPacketBurst.pas"/>
    31         <UnitName Value="UPacketBurst"/>
     38        <Filename Value="PacketBurst.pas"/>
     39        <UnitName Value="PacketBurst"/>
    3240      </Item2>
    3341      <Item3>
    34         <Filename Value="UCommFrame.pas"/>
    35         <UnitName Value="UCommFrame"/>
     42        <Filename Value="CommFrame.pas"/>
     43        <UnitName Value="CommFrame"/>
    3644      </Item3>
    3745      <Item4>
    38         <Filename Value="UCommHub.pas"/>
    39         <UnitName Value="UCommHub"/>
     46        <Filename Value="CommHub.pas"/>
     47        <UnitName Value="CommHub"/>
    4048      </Item4>
    4149      <Item5>
    42         <Filename Value="UCommPin.pas"/>
    43         <UnitName Value="UCommPin"/>
     50        <Filename Value="CommPin.pas"/>
     51        <UnitName Value="CommPin"/>
    4452      </Item5>
    4553      <Item6>
    46         <Filename Value="UCommSerialPort.pas"/>
    47         <UnitName Value="UCommSerialPort"/>
     54        <Filename Value="CommSerialPort.pas"/>
     55        <UnitName Value="CommSerialPort"/>
    4856      </Item6>
    4957      <Item7>
    50         <Filename Value="UCommThread.pas"/>
    51         <UnitName Value="UCommThread"/>
     58        <Filename Value="CommThread.pas"/>
     59        <UnitName Value="CommThread"/>
    5260      </Item7>
    5361      <Item8>
    54         <Filename Value="UCommConcentrator.pas"/>
    55         <UnitName Value="UCommConcentrator"/>
     62        <Filename Value="CommConcentrator.pas"/>
     63        <UnitName Value="CommConcentrator"/>
    5664      </Item8>
    5765      <Item9>
    58         <Filename Value="UCommDelay.pas"/>
    59         <UnitName Value="UCommDelay"/>
     66        <Filename Value="CommDelay.pas"/>
     67        <UnitName Value="CommDelay"/>
    6068      </Item9>
    6169      <Item10>
    62         <Filename Value="UCommTCPClient.pas"/>
    63         <UnitName Value="UCommTCPClient"/>
     70        <Filename Value="CommTCPClient.pas"/>
     71        <UnitName Value="CommTCPClient"/>
    6472      </Item10>
    6573      <Item11>
    66         <Filename Value="UCommTCPServer.pas"/>
    67         <UnitName Value="UCommTCPServer"/>
     74        <Filename Value="CommTCPServer.pas"/>
     75        <UnitName Value="CommTCPServer"/>
    6876      </Item11>
    6977      <Item12>
    70         <Filename Value="UCommTelnet.pas"/>
    71         <UnitName Value="UCommTelnet"/>
     78        <Filename Value="CommTelnet.pas"/>
     79        <UnitName Value="CommTelnet"/>
    7280      </Item12>
    7381      <Item13>
    74         <Filename Value="UCommTelnetComPortOption.pas"/>
    75         <UnitName Value="UCommTelnetComPortOption"/>
     82        <Filename Value="CommTelnetComPortOption.pas"/>
     83        <UnitName Value="CommTelnetComPortOption"/>
    7684      </Item13>
    7785      <Item14>
    78         <Filename Value="UCommMark.pas"/>
    79         <UnitName Value="UCommMark"/>
     86        <Filename Value="CommMark.pas"/>
     87        <UnitName Value="CommMark"/>
    8088      </Item14>
    8189      <Item15>
    82         <Filename Value="UPinConnection.pas"/>
     90        <Filename Value="PinConnection.pas"/>
    8391        <HasRegisterProc Value="True"/>
    84         <UnitName Value="UPinConnection"/>
     92        <UnitName Value="PinConnection"/>
    8593      </Item15>
    8694      <Item16>
    87         <Filename Value="UCommConnector.pas"/>
    88         <UnitName Value="UCommConnector"/>
     95        <Filename Value="CommConnector.pas"/>
     96        <UnitName Value="CommConnector"/>
    8997      </Item16>
     98      <Item17>
     99        <Filename Value="PinConnectionPackage.pas"/>
     100        <Type Value="Main Unit"/>
     101        <UnitName Value="PinConnection"/>
     102      </Item17>
    90103    </Files>
     104    <CompatibilityMode Value="True"/>
    91105    <i18n>
    92106      <EnableI18N Value="True"/>
    93107      <OutDir Value="Languages"/>
    94108    </i18n>
    95     <Type Value="RunAndDesignTime"/>
    96109    <RequiredPkgs Count="4">
    97110      <Item1>

  • PinConnection/PinConnection.pas

    r574 r575  
    1 unit UPinConnection;
    2 
    3 {$mode delphi}{$H+}
     1unit PinConnection;
    42
    53interface
    … …  
    1412
    1513uses
    16   UCommMark, UCommSerialPort, UCommTCPServer, UCommTCPClient, UCommFrame,
    17   UPacketBurst, UCommThread, UCommDelay, UCommHub, UCommConcentrator,
    18   UCommTelnet;
     14  CommMark, CommSerialPort, CommTCPServer, CommTCPClient, CommFrame,
     15  PacketBurst, CommThread, CommDelay, CommHub, CommConcentrator,
     16  CommTelnet;
    1917
    2018procedure Register;

  • PinConnection/PinConnectionPackage.pas

    r574 r575  
    33 }
    44
    5 unit PinConnection;
     5unit PinConnectionPackage;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89
    910uses
    10   USerialPort, UPacketBurst, UCommFrame, UCommHub, UCommPin, UCommSerialPort,
    11   UCommThread, UCommConcentrator, UCommDelay, UCommTCPClient, UCommTCPServer,
    12   UCommTelnet, UCommTelnetComPortOption, UCommMark, UPinConnection,
    13   UCommConnector, LazarusPackageIntf;
     11  SerialPort, PacketBurst, CommFrame, CommHub, CommPin, CommSerialPort,
     12  CommThread, CommConcentrator, CommDelay, CommTCPClient, CommTCPServer,
     13  CommTelnet, CommTelnetComPortOption, CommMark, PinConnection, CommConnector,
     14  LazarusPackageIntf;
    1415
    1516implementation
    … …  
    1718procedure Register;
    1819begin
    19   RegisterUnit('UPinConnection', @UPinConnection.Register);
     20  RegisterUnit('PinConnection', @PinConnection.Register);
    2021end;
    2122

  • PinConnection/Protocols/CommProtocol1.pas

    r574 r575  
    1 unit UCommProtocol1;
    2 
    3 {$mode delphi}
     1unit CommProtocol1;
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, UVarBlockSerializer, syncobjs, UCommPin, UThreading,
    9   UDebugLog, UStreamHelper, StopWatch, SpecializedList, UCommon,
    10   DateUtils;
     6  Classes, SysUtils, VarBlockSerializer, syncobjs, CommPin, Threading,
     7  DebugLog, StreamHelper, StopWatch, SpecializedList, Common, DateUtils;
    118
    129type
    … …  
    134131  SProtocolDecodeError = 'Data decode error';
    135132  SProtocolNotActive = 'Device protocol not active';
     133
    136134
    137135implementation
    … …  
    547545
    548546  Lock.Free;
    549   inherited Destroy;
     547  inherited;
    550548end;
    551549

  • PinConnection/SerialPort.pas

    r574 r575  
    1 unit USerialPort;
    2 
    3 {$mode Delphi}{$H+}
     1unit SerialPort;
    42
    53interface
    … …  
    75uses
    86  {$IFDEF Windows}Windows, {$ENDIF}Registry,
    9   Classes, SysUtils, SynaSer, Dialogs, UCommon, UThreading, Syncobjs,
     7  Classes, SysUtils, SynaSer, Dialogs, Common, Threading, Syncobjs,
    108  DateUtils, FileUtil, SpecializedList;
    119
    … …  
    9290  INVALID_HANDLE_VALUE = DWORD(-1);
    9391
     92
    9493implementation
    9594
Note: See TracChangeset for help on using the changeset viewer.