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

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

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Передача параметров в событиях

Автор: J. Bravo 17.7.2005, 12:56

Здравствуйте.
Я столкнулся со следующей проблемой. Создаю сервер автоматизации с одним событием - OnNewLine. В событии передаю два параметра типа integer:

Код

E.Events.OnNewLine(0{LineNo}, 100{LineSize});

Далее создаю клиентское приложение (импортирую библиотеку типов сервера, создаю обертку и ложу получившийся компонент на форму). Получаю *_tlb.pas с таким описанием этого события:

Код

TEventTrOnNewLine = procedure(Sender: TObject; LineNo: Integer; LineSize: Integer) of object;

Создаю обработчик этого события:

Код

procedure EvNewLine(Sender: TObject; LineNo: Integer; LineSize: Integer);

и при обработке события вижу, что LineNo=100, а LineSize=0. То есть передаваемые сервером параметры почему-то меняются местами.
Не подскажете почему так происходит и как с этим бороться?
В аттаче небольшой тестовый проект, демонстрирующий все эти безобразия...

Автор: Yanis 17.7.2005, 22:58

Цитата(J @ 17.7.2005, 12:56)

В аттаче небольшой тестовый проект, демонстрирующий все эти безобразия...

Где?

Автор: J. Bravo 18.7.2005, 10:32

Прошу прощения. Всё поправил.

Автор: J. Bravo 19.7.2005, 00:05

В общем, проблема оказалась в том, что при импорте библиотеки типов моя Делфи 6 почему-то для вызова события генерирует такой вот код:

Код

FOnNewLine(Self, Params[1] {Integer}, Params[0] {Integer});

Не знаю от чего это зависит (возможно от лицензионности продукта), но в *_tlb.pas сделанном коллегой в Делфи 7 параметры идут уже в таком порядке:

Код

         FOnNewLine(Self,
                    Params[0] {Integer},
                    Params[1] {Integer});