标题:急!请教VB.NET混合编程的问题!
只看楼主
gao_sl
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-1-29
 问题点数:0 回复次数:2 
急!请教VB.NET混合编程的问题!
使用Fortan PowerStation4.0编了一个程序,生成动态链接库文件“test.dll”以供程序调用,但程序在使用CALL命令调用“test.dll”中的函数时总是出错!请高手指点迷津,不胜感激。

出错问题如图所示


搜索更多相关主题的帖子: NET 
2010-01-29 08:25
gao_sl
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-1-29
得分:0 
回复 楼主 gao_sl
难道这里就没人懂这个吗?大虾们你们在哪啊。
2010-05-29 22:25
gao_sl
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-1-29
得分:0 
用FPS4.0编写生成一个DLL文件“test.dll”(源代码如下)供编写的一个程序调用(源代码如下)。但运行总是出现<无法在DLL“XXXXX\test.dll”中找到名为‘XXX’的入口点>的错误。请高手帮忙啊!

FORTRAN程序:

SUBROUTINE calltest(X,Y,result)

! MS$ ATTRIBUTES ALIAS:"calltest"::calltest
! MS$ ATTRIBUTES DLLEXPORT::calltest

Integer*2 X
Real*4 Y,result

result=X*Y

END SUBROUTINE


程序:

Public Class CallFortran

    Declare Sub calltest Lib "test.dll" _
    (ByVal vbx As Integer, ByVal vby As Single, ByRef vbresult As Single)
-------------------------------------------------------------------

    Private Sub btnjisuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjisuan.Click


        Dim vbx As Single
        Dim vbresult As Single
        Dim vby As Integer


        vbx = 4
        vby = 5

        Call calltest(vbx, vby, vbresult)

        lbljieguo.Text = vbresult


    End Sub
End Class
2010-05-29 22:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-296811-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.052543 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved