TROIndyProgress

Overview

TROIndyProgress is a support class that subscribes to TIdComponent progress events: OnWork, OnWorkBegin, OnWorkEnd and calls TROTransportChannel.TriggerProgress with collected data.

Usage:

constructor TROCustomIndyTCPChannel.Create(aOwner: TComponent);
begin
  inherited;
  fIndyClient := CreateIndyClient;
  fIndyProgress:= TROIndyProgress.Create(Self,fIndyClient,pdUnknown);
...
end;

This class is designed only for internal usage.

Location

  • Unit: uROIndySupport.pas


 

constructor Create

Method that is assigned to TIdComponent.OnWorkBegin.

constructor Create(aOwner: TROTransportChannel; aIndyComponent: TIdComponent; aLogDirection: TProgressDirection)

Parameters:

  • aOwner: sender
  • aIndyComponent: work mode
  • aLogDirection: work count max

DoWork  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure DoWork(aSender: TObject; aWorkMode: TWorkMode; const aWorkCount: Integer)

Parameters:

  • aSender: sender
  • aWorkMode: work mode
  • aWorkCount: work count max

DoWorkBegin  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure DoWorkBegin(aSender: TObject; aWorkMode: TWorkMode; const aWorkCountMax: Integer)

Parameters:

  • aSender: sender
  • aWorkMode: work mode
  • aWorkCountMax: work count max

DoWorkEnd  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure DoWorkEnd(aSender: TObject; aWorkMode: TWorkMode)

Parameters:

  • aSender: sender
  • aWorkMode: work mode

IntTriggerProgress  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure IntTriggerProgress(aSender: TObject; aWorkMode: TWorkMode; aType: TProgressType; aTransfered: Integer; aTotal: Integer)

Parameters:

  • aSender:
  • aWorkMode:
  • aType:
  • aTransfered:
  • aTotal:

Total

Number of bytes to be read or written.

property Total: Integer read write

 

Total

Number of bytes to be read or written.

property Total: Integer read write

 

constructor Create

Method that is assigned to TIdComponent.OnWorkBegin.

constructor Create(aOwner: TROTransportChannel; aIndyComponent: TIdComponent; aLogDirection: TProgressDirection)

Parameters:

  • aOwner: sender
  • aIndyComponent: work mode
  • aLogDirection: work count max

DoWork  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure DoWork(aSender: TObject; aWorkMode: TWorkMode; const aWorkCount: Integer)

Parameters:

  • aSender: sender
  • aWorkMode: work mode
  • aWorkCount: work count max

DoWorkBegin  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure DoWorkBegin(aSender: TObject; aWorkMode: TWorkMode; const aWorkCountMax: Integer)

Parameters:

  • aSender: sender
  • aWorkMode: work mode
  • aWorkCountMax: work count max

DoWorkEnd  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure DoWorkEnd(aSender: TObject; aWorkMode: TWorkMode)

Parameters:

  • aSender: sender
  • aWorkMode: work mode

IntTriggerProgress  protected

Method that is assigned to TIdComponent.OnWorkBegin.

procedure IntTriggerProgress(aSender: TObject; aWorkMode: TWorkMode; aType: TProgressType; aTransfered: Integer; aTotal: Integer)

Parameters:

  • aSender:
  • aWorkMode:
  • aType:
  • aTransfered:
  • aTotal: