gms开源离线ocr+文字对位识别+表格还对位还原+ai抠图+巡边

w6688

感谢分享与探讨，华印有你更精彩！.

shjkgg

扣图错误

talong

不明觉厉。下载来试试吧！！

shangjianglong

不知道什么原因,AI抠图有点模糊，没有原片清晰

ctgyjd

真大神，试用了一下，超牛

jushengboy

所有版本都通用么，大佬

3.3.3.

有点大，楼主可以贴个度盘吗

qianailin

x4抠图没问题，描边有问题。RMBG_Service.exe启动不要指定端口5000，每台电脑启动时分配的端口不一样。

xiaoshenren

qianailin 发表于 2025-10-6 14:52
x4抠图没问题，描边有问题。RMBG_Service.exe启动不要指定端口5000，每台电脑启动时分配的端口不一样。 ...

大佬 ，这个指定端口  是造成处理失败的主要原因么？

qianailin

xiaoshenren 发表于 2025-10-7 10:31
大佬 ，这个指定端口  是造成处理失败的主要原因么？

我可能搞错了，是取消了连接服务功能，只启动RMBG_Service.exe文件。

' ===== 新增函数：通过进程名检查服务是否运行 =====
Private Function IsServiceRunning() As Boolean
    On Error Resume Next
    Dim wmiService As Object
    Dim processes As Object
    Dim process As Object
   
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    Set processes = wmiService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & SERVICE_EXE_NAME & "'")
   
    IsServiceRunning = (processes.count > 0)
   
    Set processes = Nothing
    Set wmiService = Nothing
End Function

' ===== 修改后的服务检查函数 =====
Private Sub CheckAndStartService()
    Dim fso As Object
    Dim exePathh As String
    Dim currentPathh As String
    Dim workingDirh As String
   
    currentPathh = Application.GMSManager.UserGMSPath
    workingDirh = currentPathh & "orc\kt"
    exePathh = workingDirh & "\RMBG_Service.exe"
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    ' 通过进程名检查服务是否运行
    If IsServiceRunning() Then
        Label7.Caption = "服务已运行，请选择图片操作。"
    Else
        Label7.Caption = "后台服务未运行，正在尝试启动..."
        DoEvents
        
        If fso.FileExists(exePathh) Then
            Shell exePathh, vbMinimizedNoFocus
            Label7.Caption = "服务启动中，请稍候..."
            DoEvents
            Sleep 3000
            
            If IsServiceRunning() Then
                Label7.Caption = "服务已启动，请选择图片操作。"
            Else
                Label7.Caption = "服务启动失败，请手动运行程序。"
                MsgBox "无法启动后台服务！请检查文件是否存在：" & vbCrLf & exePathh, vbCritical, "服务错误"
            End If
        Else
            Label7.Caption = "错误：找不到服务程序 " & exePathh
            MsgBox "找不到后台服务程序！请确保文件位于：" & vbCrLf & exePathh, vbCritical, "文件丢失"
        End If
    End If
   
    Set fso = Nothing
End Sub