подключить dll написанную на фортране к vb проекту

[ccraft]

Здравствуйте.
Горю, спасите, помогите, помираю...
Есть длл, написанная на фортране, её нужно подключить к вб.
читаю книгу пишут Private Declare Function myfunct Lib "mylib.dll" _
(ByVal a As Integer) бла бла бла
Проблема, точнее проблемы:
1. Необходимо передать в библиотеку супер много переменных, среди которых есть массивы, когда начинаешь описывать переменные в какойто момент вб выдает что слишком много переменных
2. При запуске приложения выдает сообщение о том, что библиотека не найдена....
Спасибо!

[Amed]

1. Без описания передаваемых в библиотеку переменных ничем не можем помочь. Супер много - это сколько?
2. Библиотеку надо:
а) зарегистрировать через regsvr32 (в поиск)
б) положить в папку с программой, либо в windows/system32

[ccraft]

Ок, клево что так быстро ответили.
Могу кинуть кусок проги на фортране обращающейся к длл
там и описание есть
это вызов функции длл
call Godunov(nr,metod_t,nv0,nvk,ng0,ngk,ngt0,ngtk &
& ,nkomp,nfktr,ngrgaz,ngrtv,nomgrgaz,nomgrgt,ngmax,ntmax,ich &
& ,rg,voL0,voL1,csg,cst,fsg,fst &
& ,ro,u,e,ekin,aLf,aLfktr,p,tg,cps,adb,rLs,rmus,dpdt &
& ,dmgt,dugt,degt,dhgt,dkingt,dcgt,daLfgt,dfktgt,pgt &
& ,dmi,dui,dei,dhi,dkini,dci,daLi,dfki &
& ,rm0,rmu0,rL0,cp0,cv0,rm,rmu,rL,cp,cv &
& ,t_0,t_1)
после dmgt вб начинает ругаться на слишком большое число параметров

это описание переменных, тоже в фортране, могу и в вб кинуть

integer(4) nr,metod,metod_t,nv0,nvk,ng0,ngk,ngt0,ngtk,nkomp,nfktr
integer(4) ngmax,ntmax
integer(4) n
real(8) rm0,rmu0,rL0,cp0,cv0
real(8) t0,tk,dt,t_0,t_1,tau
real(8) aa(3,100)
!
integer(4), dimension(:), allocatable :: ngrgaz,ngrtv
integer(4), dimension(:,:), allocatable :: nomgrgaz,nomgrgt
integer(4), dimension(:,:), allocatable :: ich
real(8), dimension(:), allocatable :: rm,rmu,rL,cp,cv
real(8), dimension(:), allocatable :: voL0,voL1,fsg,fst
real(8), dimension(:,:), allocatable :: csg,cst
real(8), dimension(:,:), allocatable :: rg
real(8), dimension(:), allocatable :: ro,e,ekin,p,tg,adb,cps,rLs,rmus,dpdt
real(8), dimension(:), allocatable :: dmgt,degt,dhgt,dkingt,dcgt,pgt
real(8), dimension(:), allocatable :: dmi,dei,dhi,dkini,dci
real(8), dimension(:,:), allocatable :: u,dugt,dui
real(8), dimension(:,:), allocatable :: aLf,aLfktr,daLfgt,dfktgt,daLi,dfki

dimension(:,:) двумерный массив
allocatable динамический
назначение размеров массивов идет по ходу программы
Спасиба заранее, дллку нашел просто скопировал её в систем 32.

И можно поподробнее как длл зарегистрировать "через regsvr32 (в поиск)"

[ANDLL]

2Amed:А ты уверен, что это ActiveX DLL?
2ccraft:А нельзя ли эту самую dll вот сюда положить? А кстати, какая у фортрана конвенция передачи параметров?

[ccraft]

1. Это длл написанная для расчета двс методом годунова и сомневаюсь что это ActiveX
2. какая у фортрана конвенция передачи параметров?
понятия не имею, но на дэлфи она подключается точно знаю, только вот с дэлфи у меня совсем никак...:(

[ANDLL]

Если она не ActiveX(признаться я вообще не уверен, что фортран умеет делать ActiveX Dll) то ни о какой регистрации и речи быть не может.
Ну так может ты нам предоставиш эту библиотеку?

[ccraft]

Выкладываю исходник и компилированную ддлку

[ANDLL]

Ага.

2. При запуске приложения выдает сообщение о том, что библиотека не найдена....

Должна лежать либо в папке с exe-файлом, либо в system32

1. Необходимо передать в библиотеку супер много переменных, среди которых есть массивы, когда начинаешь описывать переменные в какойто момент вб выдает что слишком много переменных

Гм. А ты уверен, что массивы в фортране представляются также как и в VB? Я нет...
И если VB ругается, что параметров слишком много... Может запихнуть все параметры в структуру, а при вызове функции передавать ей указатель на структуру? Ну и соответственно изменить библиотеку?
И еше, есть вератяность того, что
а) у фортрана и у бэйсика функции имеют разную конвенцию передачи данных(хотя это и обходимо...)
б) у фортрана и у бэйсика по разному организованы структуры(а вот что тут делать я не представляю)
В любом случае для начала надо попробовать на функции с меньшим числом параметров. А нето это будет очень долгая басня...