|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вызов fortran из delphi
Добрый день!
Есть рабочая программа на Delphi, работающая с dll фортран. последних исходников dll нет. Пытаюсь вытащить этот модуль в другую программу - выдает ошибку "... access violation at .... read of address ..." (см. вложение). Дело в том, что я пытаюсь даже вручную вызывать модуль в начале выполнения этой же программы - один результат. Немного упрощенный код и оформленный как library (версия для подключения в Java) приведен во вложении. Вызывается initialize(); - и выдает ошибку. При этом если вызвать просто loadAdressGTU(), то после этого процедуры set/get работают - это по сути обращение к common блокам. Интерфейс программы на фортране при веден во вложении. Как исправить, подскажите пожалуйста? |
#2
|
|||
|
|||
ошибку совершил в описании интерфейса фортран программы, правильно так:
SUBROUTINE GTD(INI) IMPLICIT NONE cDEC$ ATTRIBUTES DLLEXPORT::GTD cDEC$ ATTRIBUTES DLLEXPORT:: /DB1/ INTEGER :: INI COMMON/DB1/ A REAL*8, DIMENSION(200) :: A |