source: branches/ByteArray/Devices/Serial.pas

unit Serial;

interface

uses
  Classes, SysUtils, Device, BigInt, Channel;

type
  TReadEvent = function: Byte of object;
  TWriteEvent = procedure (Value: Byte) of object;

  { TSerial }

  TSerial = class(TDevice)
  private
    FOnRead: TReadEvent;
    FOnWrite: TWriteEvent;
  public
    function Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
    procedure Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
    function GetAddressCount: Integer; override;
    procedure SetChannel(Channel: TChannel); override;
    property OnWrite: TWriteEvent read FOnWrite write FOnWrite;
    property OnRead: TReadEvent read FOnRead write FOnRead;
  end;


implementation

{ TSerial }

function TSerial.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
begin
  case Integer(Address) of
    0: if Assigned(FOnRead) then Result := FOnRead;
  end;
end;

procedure TSerial.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
begin
  case Integer(Address) of
    0: if Assigned(FOnWrite) then FOnWrite(Value);
  end;
end;

function TSerial.GetAddressCount: Integer;
begin
  Result := 1;
end;

procedure TSerial.SetChannel(Channel: TChannel);
begin
  Channel.Read := Read;
  Channel.Write := Write;
end;

end.