Используем
Fax Service Extended COM
Задача: объединить в один факс несколько документов
IFaxDocument2::Bodies property
и послать используя
IFaxDocument2::ConnectedSubmit2 method
При этом намеренно подсовываем некорректный документ (например .wav), и
хотим узнать индекс паршивого документа (чтобы понять какой именно документ вышиб ф-цию).
Метод ConnectedSubmit2 (ссылка выше) нам такую возможность вроде как предоставляет, ниже оригинал из MSDN.
1.
2.
3.
4.
5.
HRESULT ConnectedSubmit2(
[in] IFaxServer *pFaxServer,
[out] VARIANT *pvFaxOutgoingJobIDs,
[out, retval] LONG *plErrorBodyFile
);
plErrorBodyFile [out, retval]Type: LONG*
A LONG representing the
zero-based position of the submitted file that caused the fax send operation to fail. .
To illustrate plErrorBodyFile, here is an example: The following list of files is submitted as the value of IFaxDocument2::Bodies:
"MyTextFile.txt;AnotherTextFile.txt;MyPDFfile.pdf;MyWordFile.doc".
Because the "*.pdf" extension is not supported, the send operation will fail and plErrorBodyFile will return as 2.
Рисуем простенький код Vb.Net (С# фактически тоже самое, лазил в пример SDK) с заложенной ошибкой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub ButtonSendFax_Click(sender As Object, e As EventArgs) Handles ButtonSendFax.Click
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim iErrorIndex As Integer
Try
objFaxServer.Connect("")
With objFaxDocument
Dim bodies(2) As String
bodies(0) = "C:\111\test_txt.txt"
bodies(1) = "C:\111\win8.tif"
bodies(2) = "C:\111\greet1.wav"
.Bodies = bodies
.Recipients.Add("500")
.Sender.LoadDefaultSender()
'send
Dim strJobIds As Object = Nothing
iErrorIndex = .ConnectedSubmit2(objFaxServer, strJobIds)
Dim strArrJobIds As String() = strJobIds
MsgBox(strArrJobIds(0))
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
Try : objFaxServer.Disconnect() : Catch : End Try
End Sub
И вот здесь нестыковка.
Вот что есть в Interop:
1.
2.
Function ConnectedSubmit2(pFaxServer As FAXCOMEXLib.IFaxServer, ByRef pvFaxOutgoingJobIDs As Object) As Integer
'является членом: FAXCOMEXLib.IFaxDocument2
Вот такая чушь в VB.Net примере SDK Win7 (такая же для C#):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim iErrorIndex As Integer
iErrorIndex = objFaxDoc.ConnectedSubmit2(objFaxServer, strJobIds)
If (iErrorIndex <> -1) Then
System.Console.Write("ConnectedSubmit2 failed ErrorIndex = ")
System.Console.Write(iErrorIndex)
System.Console.WriteLine()
bRetVal = False
GoTo ExitFun
End If
...
Catch excep As Exception
System.Console.WriteLine("Exception Occured")
System.Console.WriteLine(excep.Message)
MsgBox(iErrorIndex)
End Try
Ну т.е. по логике iErrorIndex это и есть plErrorBodyFile,
да, если все хорошо, то iErrorIndex возвращает "-1" - нет "бракованных" файлов
Но если плохо, то вываливаемся по Exeption
"Operation failed" -и на этом все.
Т.е. ничего кроме -1 в случае успеха эта хрень в принципе вернуть не может.
Вопрос понятен: что я должен сделать с кодом чтобы получить plErrorBodyFile?
Для сравнения C++ код, тот же SDK пример (простыня, не хотелось бы с этим связываться, делал один раз в VB6 CoCreateInstance, но это "нечто") выглядит так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
//initialize COM
hr = CoInitialize(NULL);
if(FAILED(hr))
{
//failed to init com
_tprintf(_T("Failed to init com. Error %x \n"), hr);
bRetVal = false;
goto Exit;
}
hr = CoCreateInstance (CLSID_FaxServer,
NULL,
CLSCTX_ALL,
__uuidof(IFaxServer),
(void **)&pFaxServer);
...
VARIANT jobIds;
hr = pFaxDoc->ConnectedSubmit2(pFaxServer, &jobIds, &lErrorBodyFile);
if (FAILED(hr) || (-1 != lErrorBodyFile))
{
_tprintf(_T("ConnectedSubmit2 failed. Error %x \n"), hr);
_tprintf(_T("Error Index File %d \n"), lErrorBodyFile);
bRetVal = false;
goto Exit;
}
