【求助】如何在VF中调用动态链接库

xiazhn

需要调用ansys中的dll文件，其中包含了一些所需的外部函数。不知在VF中如何调用这个dll文件。
编程方面外行，问题简单，见笑。
  
补充一下：这个dll文件应该也是fortran77生成的。尝试将这个文件拷贝到windows\，windows\system,windows\system32,Microsoft Visual Studio\DF98\LIB下，在link主程序的时候报错，应该包含在dll中的几个外部函数都没有找到。

freepu

你知道这些dll中包含的函数名（这个容易）和变元么？亦即接口方式你知道么？不知道是没法用的。

xiazhn

函数及其参数都已经知道。因为这个程序是以前在HP UNIX平台上写的，现在需要移植到windows上。源程序中带有一个从ansys中带来的binlib.a的库文件，我现在把binlib.dll也拷贝过来。外部函数应该包含在这里面。
在FORTRAN的源代码里有类似：
I = SYSIQR(0,NAME,LENFNM,'EXIST')
的语句，
在build的过程中报错：
readrst.obj : error LNK2001: unresolved external symbol _SYSIQR@24
关于SYSIQR函数的解释，在手册中可以查到。
另外，.a和.dll文件有什么不同吗？
  
多谢解答。

freepu

调用方式参考如下示例，testsub.dll中有函数SUBA，接口用rtn_suba(a,b)别名来调用SUBA函数。
  

2. ! Sample Fortran program that finds a dll library and calls
3. !  a routine in it.
4. use kernel32
5. ! Declare an interface block to the routine to be called.
6. interface
7.    subroutine rtn_suba(a, b)
8.    real*8 a, b
9.    end subroutine
10. end interface
11.   
12. real *8 arg1, arg2
13. integer p   
14. pointer (q,rtn_suba)
15. logical status
16.   
17. ! First, locate the dll and load it into memory
18. p = loadlibrary("testsub.dll"C)
19. if (p == 0) then
20.    type *, "Error occurred opening testsub.dll"
21.    type *, "Program aborting"
22.    goto 1000
23. endif
24.   
25. ! Set up a pointer to the routine of interest
26. q = getprocaddress(p, "SUBA"C)
27. if (q == 0) then
28.    type *, "Error occurred finding SUBA in testsub.dll"
29.    type *, "Program aborting"
30.    goto 1000
31. endif
32.   
33. ! Now, the routine can simply be called
34. call rtn_suba(arg1, arg2)
35. write(*,*)arg1, arg2
36. status = freelibrary(p)
37. type *, "freelibrary status was: ", status
38.   
39. 1000  continue
40. end

复制代码

  
对NIX我不熟，不知道.a与.DLL的区别。

xiazhn

多谢