Problem mit TIdHTTP

[scp]

Das Ereignis OnWork hat ein paar mehr Parameter, die auch deklariert werden müssen:

Delphi-Quellcode:

type
  TMainServer = class(TIrgendwas)
    procedure HTTPOPacketRecvd(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
  private
    //...
  end;

//...

implementation

//...

procedure TMainServer.HTTPOPacketRecvd(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  //...
end;