Форум: Техническая поддержка

Функция определена GetListOfIPCrates  как   

последний параметр должен быть задан как

иначе он передается по значению!

Да, согласен, что неправильно. Правда это массив структур, а не одна структура, поэтому просто var тоже не совсем правильно. Думаю правильнее сделать как в например LTR210_ProcessData() с параметром data_info в ltr210api.pas . Я проверю сегодня и сделаю тогда исправление.

Я сделал вариант через массив. Сделал на основе файла из pascal2 (где файлы совместимы как с Delphi7, так и с XE).
Массив может быть как статический заданного размера, так и динамический. Функция не принимает параметр max_entries, так как размер берется из размера info_array.

Можно перенести и в старый вариант (в директории pascal), нужно скопировать только новую реализация LTR_GetListOfIPCrates, _get_ip_list и объявление p_crate_ipentry_array.

Здесь http://www.lcard.ru/forums/img/members/ … delphi.zip можно взять измененные файлы и пример с динамическим массивом, где первый раз функция вызывается для получения количества записей, затем изменяется размер на нужное значение, и вызывается снова.
Также замечу, что я стараюсь как можно меньше использовать тип Pointer, который использовался необоснованно, и использовать по максимому var, out и array. Обращаю внимание, что часть функций есть уже и в старом варианте и в новом.
Попозже внесу и в основной установщик, пока можете посмотреть и сделать свои замечания или предложения.

Благодарю! По сути, насколько я понимаю, в данном случае var и out эквивалентны и соотв. записи на СИ *TIPCRATE_ENTRY. В любом случае теперь функция работает правильно.

var и out отличаются только тем, что out говорит, что эта переменная может быть не инициализирована перед передачей в функцию (с var должна быть в этом случае ошибка), а так да. Единственное, что как я говорил, здесь все же массив, а не одна структура, что в C выглядит одинаково, а тут несколько отличается. Спасибо за найденную ошибку.