vb6.0下如何调试Fortran的dll？

晒sunstar

如题，我用Fortran编写了一个动态链接库，用vb6.0来调用，已经能够成功调用。
现在我想逐句调试dll，但是不知道应该怎么设置？ 我搜索网上的教程，是关于vc的，如下面两张图。但是我找不到教程里说的“可执行文件栏”？

cqflhl

vvt 发表于 2017-4-6 18:37
你有两种方法调试：
第一种：
1. 在 Command （而不是 command arguments）里写上 VB 编译出来的 exe 所在 ...

按第二种附加方法, 如果VB调用的是32位DLL可以调试, 64位的则不行, 断点直接是空心的
如果调用32位DLL, 哪怕在VS里面活动平台是X64也可以断点调试

cqflhl

晒sunstar 发表于 2017-4-7 11:06

方法一（基本成功）：原来我问题出在“启动了VB的调试；而不是VS里DLL的调试”。
现在可以调试DLL了，但 ...

我第一种方式未成功, 可能是命令行/命令行参数/工作路径没写对, 不知你是怎样写?

晒sunstar

vvt 发表于 2017-4-7 12:58
方法2，你应该附加在 工程1.exe 上，而不是 VB6.exe

大神啊！！关于方法2，还真是应该要用“工程1.exe”的，和方法1路径写的“工程1.exe”一样。看来是我概念不清（我打开了vb的工程，附加了运行后的vb的exe），改完以后就可以调试了。

附图给大家提醒：

vvt

方法2，你应该附加在 工程1.exe 上，而不是 VB6.exe

晒sunstar

vvt 发表于 2017-4-7 07:40
1. 传入DLL的参数和命令行参数不是一回事。（前者是内存里的各种数据类型，乃至巨量的数组。而后者只能是字 ...

方法一（基本成功）：原来我问题出在“启动了VB的调试；而不是VS里DLL的调试”。
现在可以调试DLL了，但是出现一个小问题（无伤大雅）：
调试开始后，会出现如图1的窗口（“dll 无法找到exe的调试信息或者调试信息不匹配”）。点击“是”之后，会出现vb的主程序窗口，如图2，此时的断点是空心的。
但当点击vb窗体的“运行”按钮调用DLL后，就正常进入DLL代码了，断点也变成实心的了，如图3。
感觉好神奇

方法2（未成功）：
我在VS里附加了vb的exe，如图4，但是点击vb上的“运行”按钮后，程序就直接出结果了，没有停在断点处，如图5。

vvt

1. 传入DLL的参数和命令行参数不是一回事。（前者是内存里的各种数据类型，乃至巨量的数组。而后者只能是字符串，并且不允许超过一定的字节数）
2. VB 我其实不了解的。我是用 Qt/C++ 调用fortran的dll。但是原理应该是一样的。
3. 是的，需要先在 VB 里生成 exe，再添加到 Dll 的工程配置的 Command 里。
4. 添加后，请启动 Dll 工程（VS）的开始调试（而不是VB的调试）。断点下在 fortran 的代码 c=a+b 行
5. 你用方法二可以调试吗？

晒sunstar

vvt 发表于 2017-4-6 18:37
你有两种方法调试：
第一种：
1. 在 Command （而不是 command arguments）里写上 VB 编译出来的 exe 所在 ...

您好，我想针对方法1提个问题：
vb的程序运行的时候没有exe产生的，请问我是要先“文件”——“生成工程”，再将这个exe的路径加在vs里吗？如下图。
但是程序似乎直接运行完了，没有在断点的地方暂停（按了逐语句F8，就直接从“Call suba(a, b, c)”跳到“Text1.Text = c”了，没有进入dll）。

我用来测试的vb主程序如下：

[Visual Basic] 纯文本查看 复制代码

Private Declare Sub suba Lib "D:\try_vb\c_dll\Dll1\Dll1\Debug\Dll1.dll" (ByRef a As Single, ByRef b As Single, ByRef c As Single)
Private Sub Command1_Click()
        Dim a As Single
        Dim b As Single
        Dim c As Single
        a = 10#
        b = 2#
        Call suba(a, b, c)
        Text1.Text = c
End Sub

Fortran的DLL程序如下：

[Fortran] 纯文本查看 复制代码

    subroutine suba(a,b,c)
    !DEC$ ATTRIBUTES stdcall,DLLEXPORT ::suba
    !DEC$ ATTRIBUTES ALIAS:"suba"::suba
    !DEC$ ATTRIBUTES reference :: a,b,c

        implicit none
        real::a
        real::b
        real::c

        c=a+b

    end subroutine

晒sunstar

谢谢大神的回答！    我去试试看。
关于您的提问：（1）DLL的命令行参数，想了一下，我是和运行exe程序时的命令行参数搞混了；把传入DLL的实参认为是“命令行参数”；（2）打码问题：我的命令行参数里填了一个路径名，而我路径名取得比较详细，有个人信息，所以在互联网上就打码了...

vvt

你有两种方法调试：
第一种：
1. 在 Command （而不是 command arguments）里写上 VB 编译出来的 exe 所在的路径。（需要确保它使用的 DLL 是你编译出来的，而不是编译出来后又拷走到其他文件夹的）
2. 在dll对外函数的开始处下断点， 直接启动调试。当VB程序调用 dll 函数时，会自动断下来。

插一句问，DLL运行需要命令行参数吗？怎么听不懂你说什么。截图能不打码吗？

第二种：
1.运行 VB 程序。但不要点击按钮，使之暂时不要调用 fortran dll 的函数。
2.打开 VS，并打开 dll 工程，用 调试，附加到进程... 功能，选择本地 VB 的 exe 进程，并附加。
3.在dll对外函数的开始处下断点，点击 VB 程序上的按钮，使之调用 fortran dll 函数。此时会断下来。