[XE] Указать компоненту на событие в Run-time

[Человек_Борща]

Доброго времени суток!

Перехожу delphi 7 на delphi XE.

Помимо лулзов несовместимости типов PAnsiChar и PWideChar

Есть вот такой лулз:

    procedure HttpWork(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);

  public
    procedure IfTerminated;
  end;


implementation

procedure TSelfUpdateThread.GetHttpFile(aFile, aDestDir: string);
var
  http: TIdHTTP;
  sFile: TMemoryStream;
begin
  sFile := TMemoryStream.Create;
  http := TIdHTTP.Create(nil);
  try
    Http.OnWork := HttpWork;
    http.OnWorkBegin := HTTPWorkBegin;
    http.OnWorkEnd := HTTPWorkEnd;
    try
      //StatusMessage(Format(RsUpdate_DownAfile, [ExtractFileName(aFile)]));
      StatusMessage('Загрузка данных...');
      http.Get(aFile, sFile);
      sFile.SaveToFile(aDestDir);
    except
      StatusMessage(Format(RsUpdate_DownFileDailed, [ExtractFileName(aFile)]));
      Terminate;
    end;
  finally
    http.Free;
    sFile.Free;
  end;
end;

Красным отмечен код, который не хочет кушать компилятор:

[DCC Error] E2009 Incompatible types: 'Parameter lists differ'

В delphi 7 код работает...

[Silver_S]

Следуя указанию "Parameter lists differ" сравните список параметров Http.OnWork и HttpWork. Бывает, что меняется var на out и т.п.

[Человек_Борща]

Спасибо! Проблему решил. В новых индях все выглядит так:

    procedure HttpWork(Sender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
    procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);