Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > компонент TIdHTTP, разница в синтаксисе для ИНДИ7

Автор: Pcrepair 18.3.2012, 15:29

Добрый день, есть код написанный в ИНДИ7, давно в 2003:

Код


procedure TFindWebThread.GrabHtml;
var
  Http1: TIdHTTP;
begin
  Status := 'Sending query: ' + StrUrl;
  Synchronize (ShowStatus);
  Http1 := TIdHTTP.Create (nil);
  try
    Http1.Request.UserAgent := 'User-Agent: NULL';
    Http1.OnWork := HttpWork;
    strRead := Http1.Get (StrUrl);
  finally
    Http1.Free;
  end;
end;

на строке Http1.OnWork := HttpWork; компилятор(RAD2010) выдает ошибку (E2009 Incompatible types: 'Parameters lists differ'
наверно все дело в неправильном для ИНДИ10 синтаксисе (исходно написано для ИНДИ7)
Подскажите, как правильно для ИНДИ10 написать эту строку?

Автор: MetalFan 18.3.2012, 22:30

Ctrl+Click на Http1.OnWork - увидишь в исходниках тип св-ва. Затем перейдешь на описание типа и сам увидишь то, что тебе нужно.

Автор: northener 19.3.2012, 01:19

Автору код нужен!
Ctrl+Click ему не нужен. Как и описание типа данного метода.

Автор: MetalFan 19.3.2012, 15:08

northener, лень - двигатель прогресса?)
в версии индейцев, что идет с DXE, OnWork выглядит так:

Код


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

Дадим автору шанс на реабелитацию? Пусть сам напишет обработчик)