次の方法で共有


Managing Fax Device Providers

The following Microsoft Visual Basic code example demonstrates how to manage fax device providers.

    Private Sub Form_Load()
        Dim objFaxServer As New FAXCOMEXLib.FaxServer
        Dim collFaxDeviceProviders As FAXCOMEXLib.FaxDeviceProviders
        Dim objFaxDeviceProvider As FAXCOMEXLib.FaxDeviceProvider

        'Error handling
        On Error GoTo Error_Handler

        'Connect to the fax server
        objFaxServer.Connect("")

        collFaxDeviceProviders = objFaxServer.GetDeviceProviders

        Dim n As Long
        n = collFaxDeviceProviders.Count

        'Display the properties for each fax device provider
        Dim i As Integer
        For i = 1 To n
            objFaxDeviceProvider = collFaxDeviceProviders.Item(i)
            MsgBox("Debug = " & objFaxDeviceProvider.Debug & _
            vbCrLf & "Name = " & objFaxDeviceProvider.FriendlyName & _
            vbCrLf & "Image name = " & objFaxDeviceProvider.ImageName & _
            vbCrLf & "Init error code = " & objFaxDeviceProvider.InitErrorCode & _
            vbCrLf & "Build and version = " & objFaxDeviceProvider.MajorBuild & "." & _
                objFaxDeviceProvider.MinorBuild & "." & _
                objFaxDeviceProvider.MajorVersion & "." & _
                objFaxDeviceProvider.MinorVersion & _
            vbCrLf & "Status = " & objFaxDeviceProvider.Status & _
            vbCrLf & "Tapi provider = " & objFaxDeviceProvider.TapiProviderName & _
            vbCrLf & "Unique name = " & objFaxDeviceProvider.UniqueName)

            'Display the device ids for that provider
            Dim DeviceArray() As Long
            DeviceArray = objFaxDeviceProvider.DeviceIds
            'UBound finds the size of the array
            Dim j As Integer
            For j = 0 To UBound(DeviceArray)
                MsgBox("Device ID: " & DeviceArray(j))
            Next
        Next
        Exit Sub

Error_Handler:
        'Implement error handling at the end of your subroutine. This 
        'implementation is for demonstration purposes
        MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description)

    End Sub