Ignore:
Timestamp:
Feb 8, 2011, 11:02:02 AM (14 years ago)
Author:
george
Message:
Location:
PinConnection
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • PinConnection

    • Property svn:ignore

      •  

        old new  
        11lib
         2backup

  • PinConnection/UCommSerialPort.pas

    r119 r163  
    66
    77uses
    8   Classes, USerialPort, UCommPin, SysUtils;
     8  Classes, USerialPort, UCommPin, SysUtils, UMicroThreading, DateUtils,
     9  SyncObjs;
    910
    1011type
    … …  
    1415    procedure ReceiveData(Stream: TMemoryStream);
    1516  public
     17    Lock: TMicroThreadCriticalSection;
    1618    Pin: TCommPin;
    1719    destructor Destroy; override;
    … …  
    3335begin
    3436  inherited;
     37  Lock := TMicroThreadCriticalSection.Create;
    3538  Pin := TCommPin.Create;
    3639  Pin.OnReceive := Receive;
    … …  
    4245  OnReceiveData := nil;
    4346  Pin.Free;
     47  Lock.Free;
    4448  inherited;
    4549end;
    … …  
    4953  Stream.Position := 0;
    5054  repeat
    51     SendStreamRaw(Stream);
    52     Sleep(1);
     55    try
     56      Lock.Acquire;
     57      SendStreamRaw(Stream);
     58    finally
     59      Lock.Release;
     60    end;
     61    MTSleep(1 * OneMillisecond);
    5362  until Stream.Position = Stream.Size;
    5463end;
Note: See TracChangeset for help on using the changeset viewer.