Здравствуйте.
Я столкнулся со следующей проблемой. Создаю сервер автоматизации с одним событием - 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. То есть передаваемые сервером параметры почему-то меняются местами.
Не подскажете почему так происходит и как с этим бороться?
В аттаче небольшой тестовый проект, демонстрирующий все эти безобразия...

Это сообщение отредактировал(а) J. Bravo - 18.7.2005, 10:31

Присоединённый файл ( Кол-во скачиваний: 7 )
 COMTest.zip 9,67 Kb

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

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

Где?

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

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

Код

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

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

Код

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