Delphi 2010. Проблема с HTTP в потоке

[Shouldercannon]

Есть

...
  TDownloadFile_Thread = class(TThread)
  private
    { Private declarations }
    procedure HTTPWork(ASender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Int64);
    procedure HTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Int64);
  protected
    procedure Execute; override;
  public
  end;
...
procedure TDownloadFile_Thread.Execute;
var
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    HTTP.OnWork := HTTPWork; // E2009 Incompatible types: 'Parameter lists differ'
    HTTP.OnWorkBegin := HTTPWorkBegin; // E2009 Incompatible types: 'Parameter lists differ'
    try
      ...
    except
      ...
    end;
  finally
    MS.Free;
  end;
end;

В инете есть подобные вопросы, но толковых ответов нет. Как решить данную проблему, привязать к динамически создаваемому HTTP его события OnWork и OnWorkBegin?

[Пепел Феникса]

вы киньте на форму компонент, и посмотрите, такой же ли там список параметров что у вас.

[Stilet]

Parameter lists differ

Ну так может быть стоит посмотреть в хелпе описание этих событий? Каков список параметров, каковы у них типы...
И описать HTTPWork и HTTPWorkBegin так чтоб параметры совпадали.

[Shouldercannon]

С Help беда - его нет.
Особо сильных различий нет. Количество параметров тоже самое.
Delphi 7

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

Delphi 2010

    procedure HTTPWork(ASender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Int64);
    procedure HTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Int64);

[Stilet]

Значить не то же самое.
Раз ошибка всплывает.
Наведи мышку на HTTP.OnWork - что в хинте показывает?

[Аватар]

Сообщение от Shouldercannon

С Help беда - его нет.

При желании можно и в юнитах инди поискать точное описание типа.

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

Берите ICS или Synapce библиотеки. Они легче инди.

[Shouldercannon]

Вот три скрина

[Пепел Феникса]

проверьте, точно ли TWorkMode ведет в модуль ИнДи.

[Shouldercannon]

Линк привёл в IdComponent.pas

type
  TIdStatusEvent = procedure(ASender: TObject; const AStatus: TIdStatus;
   const AStatusText: string) of object;

  TWorkMode = (wmRead, wmWrite);
  TWorkInfo = record
    Current: Int64;
    Max: Int64;
    Level: Integer;
  end;

  TWorkBeginEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64) of object;
  TWorkEndEvent = procedure(ASender: TObject; AWorkMode: TWorkMode) of object;
  TWorkEvent = procedure(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64) of object;

  TIdComponent = class(TIdBaseComponent)
  protected
    FOnStatus: TIdStatusEvent;
    FOnWork: TWorkEvent;
    FOnWorkBegin: TWorkBeginEvent;
    FOnWorkEnd: TWorkEndEvent;
    FWorkInfos: array[TWorkMode] of TWorkInfo;
    FWorkTarget: TIdComponent;
    //
    procedure DoStatus(AStatus: TIdStatus); overload;
    procedure DoStatus(AStatus: TIdStatus; const AArgs: array of const); overload;
    procedure InitComponent; override;
    //
    property OnWork: TWorkEvent read FOnWork write FOnWork;
    property OnWorkBegin: TWorkBeginEvent read FOnWorkBegin write FOnWorkBegin;
    property OnWorkEnd: TWorkEndEvent read FOnWorkEnd write FOnWorkEnd;
  public
    procedure BeginWork(AWorkMode: TWorkMode; const ASize: Int64 = 0); virtual;
    destructor Destroy; override;
    procedure DoWork(AWorkMode: TWorkMode; const ACount: Int64); virtual;
    procedure EndWork(AWorkMode: TWorkMode); virtual;
    //
    property WorkTarget: TIdComponent read FWorkTarget write FWorkTarget;
  published
    property OnStatus: TIdStatusEvent read FOnStatus write FOnStatus;
  end;

Тоже самое, но из Delphi 7

type
  TIdStatusEvent = procedure(ASender: TObject; const AStatus: TIdStatus;
   const AStatusText: string) of object;

  TWorkMode = (wmRead, wmWrite);
  TWorkInfo = record
    Current: Integer;
    Max: Integer;
    Level: Integer;
  end;

  TWorkBeginEvent = procedure(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCountMax: Integer) of object;
  TWorkEndEvent = procedure(Sender: TObject; AWorkMode: TWorkMode) of object;
  TWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer)
   of object;

  TIdComponent = class(TIdBaseComponent)
  protected
    FOnStatus: TIdStatusEvent;
    FOnWork: TWorkEvent;
    FOnWorkBegin: TWorkBeginEvent;
    FOnWorkEnd: TWorkEndEvent;
    FWorkInfos: array[TWorkMode] of TWorkInfo;
    //
    procedure DoStatus(AStatus: TIdStatus); overload;
    procedure DoStatus(AStatus: TIdStatus; const aaArgs: array of const); overload;
    // GetLocalName cannot be static/class method.
    // CBuilder doesnt handle it correctly for a prop accessor
    function GetLocalName: string;
    //
    property OnWork: TWorkEvent read FOnWork write FOnWork;
    property OnWorkBegin: TWorkBeginEvent read FOnWorkBegin write FOnWorkBegin;
    property OnWorkEnd: TWorkEndEvent read FOnWorkEnd write FOnWorkEnd;
  public
    procedure BeginWork(AWorkMode: TWorkMode; const ASize: Integer = 0); virtual;
    constructor Create(axOwner: TComponent); override;
    destructor Destroy; override;
    procedure DoWork(AWorkMode: TWorkMode; const ACount: Integer); virtual;
    procedure EndWork(AWorkMode: TWorkMode); virtual;
    //
    property LocalName: string read GetLocalName;
  published
    property OnStatus: TIdStatusEvent read FOnStatus write FOnStatus;
  end;