source: branches/ByteArray/Forms/FormConsole.pas

unit FormConsole;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Device, Serial;

type

  { TFormConsole }

  TFormConsole = class(TFormDevice)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    FSerial: TSerial;
    procedure SetSerial(AValue: TSerial);
  public
    property Serial: TSerial read FSerial write SetSerial;
  end;


implementation

{$R *.lfm}

procedure TFormConsole.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Text := Memo1.Lines.Text + FSerial.ReadOutputBuffer;
end;

procedure TFormConsole.SetSerial(AValue: TSerial);
begin
  if FSerial = AValue then Exit;
  if Assigned(FSerial) then begin
    FSerial.OnOutput := nil;
  end;
  FSerial := AValue;
  if Assigned(FSerial) then begin
    Memo1.Lines.Text := FSerial.ReadOutputBuffer;
  end;
end;

end.