VPF::компонент TIdHTTP, разница в синтаксисе для ИНДИ7

Pcrepair

Дата 18.3.2012, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 16.1.2011

Репутация: нет
Всего: нет

Добрый день, есть код написанный в ИНДИ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 написать эту строку?

--------------------

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

MetalFan

Дата 18.3.2012, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

--------------------

There are always someone smarter than you...

northener

Дата 19.3.2012, 01:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

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

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

MetalFan

Дата 19.3.2012, 15:08 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

Код


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

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

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »