在 VB.net 中使用 C DLL 时出现错误

Question

我收到错误“System.DllNotFoundException：'无法加载 DLL'swedll32.dll'：对 memory 位置的访问无效。 （来自 HRESULT 的异常：0x800703E6）'”而 Button1.Click。 即 dll 是用 C 编写的本机或非托管 dll。 我正在使用 64 位 Windows 10 和 Visual Studio 2019。请帮助。 谢谢

 Public Class Form1

Public Declare Sub swe_set_ephe_path Lib "swedll32.dll" Alias "_swe_set_ephe_path@4" (ByVal path As String)
Public Shared Function swe_get_planet_name(ByVal ipl As Int32) As String
    Dim Pointer As IntPtr
    Dim ReturnParam As New StringBuilder(255)
    Dim Result As String

    Pointer = _swe_get_planet_name(ipl, ReturnParam)
    Result = Marshal.PtrToStringAnsi(Pointer)

    Return Result
End Function
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
swe_set_ephe_path(System.IO.Path.GetDirectoryName(Application.ExecutablePath) & "\SwEph")
    
End Sub
End Class