Overload einer Funktion der TIdTrivialFTP Komponente

[DeddyH]

Versuch einmal:

Delphi-Quellcode:

  TMyIdTrivialFTP = class(IdTrivialFTP.TIdTrivialFTP)
  protected
    procedure CheckOptionAck(const OptionPacket: TIdBytes; Reading: Boolean); overload;
    procedure CheckOptionAck(const OptionPacket: TIdBytes; Reading: Boolean; AdditionalOffset: integer = 2); overload;
  end;

...

procedure TMyIdTrivialFTP.CheckOptionAck(const OptionPacket: TIdBytes;
  Reading: Boolean);
begin
  inherited;
end;

procedure TMyIdTrivialFTP.CheckOptionAck(const OptionPacket: TIdBytes;
  Reading: Boolean; AdditionalOffset: integer);
var
  LOptName, LOptValue: String;
  LOffset, Idx, OptionIdx: Integer;
  LRequestedBlkSize: Integer;
begin
  LOffset := 2; // skip packet opcode

  LOffset := LOffset + AdditionalOffset; // skip packet opcode PicoMOD3

  //usw.