如何在Django项目中调用Visual Basic(.vb)文件中的方法

方案一：将VB代码封装为COM组件，通过pywin32调用 #

适合传统VB6代码，无需大幅修改原有逻辑，直接封装为可被Python调用的COM对象。

操作步骤： #

1. 封装VB代码为COM类
   打开VB6（或兼容IDE），新建ActiveX DLL项目，将原有VB方法封装到类模块中，确保类和方法为Public可见性。示例代码：

   ' VB6 ActiveX DLL 类模块：VBProcessor.cls
   Public Function CalculateTotal(price As Double, quantity As Integer) As Double
       CalculateTotal = price * quantity * 1.1 ' 含10%税费计算
   End Function
   
   Public Function ParseUserData(jsonStr As String) As String
       ' 用VBJSON库解析传入的JSON数据，处理后返回结果
       Dim userData As Object
       Set userData = JsonDecode(jsonStr)
       userData("status") = "processed"
       ParseUserData = JsonEncode(userData)
   End Function
   

   编译生成VBProcessor.dll。

2. 注册COM组件
   以管理员权限打开命令提示符，执行注册命令：

   regsvr32 "C:\path\to\VBProcessor.dll"
   

3. Django中调用COM组件
   安装pywin32库：

   pip install pywin32
   

   在Django视图或工具函数中调用：

   import win32com.client
   import json
   
   def call_vb_method(request):
       # 初始化COM对象
       vb_processor = win32com.client.Dispatch("VBProcessor.VBProcessor")
       
       # 简单数据传递：调用计算方法
       total = vb_processor.CalculateTotal(100.0, 5)
       
       # 复杂数据双向传递：JSON序列化
       user_data = {"name": "张三", "age": 30, "order": {"id": 123}}
       json_input = json.dumps(user_data)
       processed_json = vb_processor.ParseUserData(json_input)
       processed_data = json.loads(processed_json)
       
       return JsonResponse({"total": total, "processed_user": processed_data})
   

方案二：将VB代码打包为控制台程序，通过子进程调用 #

适合不想折腾COM注册的场景，把VB方法改为控制台入口，通过命令行/标准IO传递数据。

操作步骤： #

1. 改造VB代码为控制台程序
   新建VB控制台项目（VB6或VB.NET），读取命令行参数或标准输入，执行原有方法后输出结果。示例VB.NET控制台代码：

   ' VB.NET 控制台程序
   Module VBConsoleProcessor
       Sub Main(args As String())
           If args.Length = 0 Then
               Console.WriteLine("Error: No input provided")
               Return
           End If
           
           Dim inputType As String = args(0)
           Select Case inputType
               Case "calculate"
                   Dim price As Double = Double.Parse(args(1))
                   Dim quantity As Integer = Integer.Parse(args(2))
                   Dim total As Double = price * quantity * 1.1
                   Console.WriteLine(total.ToString())
               Case "parse_user"
                   Dim jsonStr As String = args(1)
                   Dim userData = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(jsonStr)
                   userData("status") = "processed"
                   Console.WriteLine(Newtonsoft.Json.JsonConvert.SerializeObject(userData))
           End Select
       End Sub
   End Module
   

   编译生成VBConsoleProcessor.exe。

2. Django中通过subprocess调用
   使用Python标准库subprocess调用exe，传递参数并捕获输出：

   import subprocess
   import json
   
   def call_vb_console(request):
       # 调用计算方法
       calc_result = subprocess.run(
           ["C:\path\to\VBConsoleProcessor.exe", "calculate", "100.0", "5"],
           capture_output=True,
           text=True,
           check=True
       )
       total = float(calc_result.stdout.strip())
       
       # 调用复杂数据处理方法
       user_data = {"name": "张三", "age": 30, "order": {"id": 123}}
       json_input = json.dumps(user_data)
       user_result = subprocess.run(
           ["C:\path\to\VBConsoleProcessor.exe", "parse_user", json_input],
           capture_output=True,
           text=True,
           check=True
       )
       processed_data = json.loads(user_result.stdout.strip())
       
       return JsonResponse({"total": total, "processed_user": processed_data})
   

方案三：将VB.NET代码编译为.NET类库，通过pythonnet调用 #

如果原有代码是VB.NET（而非VB6），可直接编译为.NET类库，用pythonnet直接加载调用，性能更优。

操作步骤： #

1. 编译VB.NET代码为类库
   新建VB.NET类库项目，封装原有方法：

   ' VB.NET 类库
   Public Class VBProcessor
       Public Function CalculateTotal(price As Double, quantity As Integer) As Double
           Return price * quantity * 1.1
       End Function
   
       Public Function ParseUserData(jsonStr As String) As String
           Dim userData = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(jsonStr)
           userData("status") = "processed"
           Return Newtonsoft.Json.JsonConvert.SerializeObject(userData)
       End Function
   End Class
   

   编译生成VBProcessor.dll。

2. Django中用pythonnet调用
   安装pythonnet库：

   pip install pythonnet
   

   在Django中配置并调用：

   import clr
   import json
   
   # 加载.NET类库
   clr.AddReference("C:\path\to\VBProcessor.dll")
   from VBProcessor import VBProcessor
   
   def call_vb_dotnet(request):
       processor = VBProcessor()
       
       # 简单数据调用
       total = processor.CalculateTotal(100.0, 5)
       
       # 复杂数据双向传递
       user_data = {"name": "张三", "age": 30, "order": {"id": 123}}
       json_input = json.dumps(user_data)
       processed_json = processor.ParseUserData(json_input)
       processed_data = json.loads(processed_json)
       
       return JsonResponse({"total": total, "processed_user": processed_data})
   

注意事项 #

• 数据序列化：复杂对象建议用JSON序列化后传递，VB6可使用VBJSON库，VB.NET可用Newtonsoft.Json库处理JSON，避免类型不兼容问题。
• 权限问题：Django运行进程需有访问VB组件/程序的权限，COM注册需管理员权限。
• 性能考量：子进程调用性能略低于COM或.NET直接调用，高频场景优先选方案一或三。

内容的提问来源于stack exchange，提问作者Darkkthur