ИзопропилПриписать в вставляемую страницу в конец файла, список IFD скорректировать, смещения пересчитатьИзопропил,
Ну ты предлагаешь сращивать, копаясь в файлах на байтовом уровне и знании формата (c SFF так как-то возился).
Зачем, если можно сделать штатными даже .Net классами, не вдаваясь в низкоуровневые подробности.
Я без GDI +/- все одно не обойдусь, титульный лист я генерирую на ходу.
1) Т.е. есть файл, про него нужно знать: (1)разрешение (2) compression -это я знаю как, узнал
2) Теперь создаю CoverPage зная (1)разрешение , кот. узнал на первом шаге.
3) Сохраняю CoverPage и добавляю фреймы из исходного файла. Делаю это используя (2) compression , кот. узнал на первом шаге.
У меня класс, который работает с мульти-фреймами писан давно, изначально еще на VB6 и шибко путанный, решил нахаляву добавить туда этот функционал и огреб. Т.е. результат то получил, но много лишних операций (кусок кода в первом посте). В итоге "очень долго".
Но счас все сделал без лишнего, получилось быстро (условно "мгновенно"), даже если подсовываю CoverPage под 50 страниц.
1. взял исх. файл, воткнул его в Bitmap, также узнал его (1)разрешение (2) compression , не суть как, умею.
1.
m_Bitmap = New Bitmap(FileName)
2. сваял Cover Page, с учетом разрешения исходного файла (всего два варианта 204x196 или 204x98, им соответствуют размеры соответственно 1728x2339 и 1728x1169 для A4,PORTRAIT).
Здесь без GDI да и без API не обойтись и структуру BITMAPINFO2 надо задавать.
Использую
FaxPrintCoverPageW function , причем недокументированно (без предварительного вызова FaxStartPrintJob как они там вещают в MSDN), моя задача "угнать" картинку в свой hdc, который я готовлю через CreateDC+CreateCompatibleDC. Ну в общем справился, на выходе имею битмап m_CoverBitmap, совместимый с исходным файлом.
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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
Public Sub AddCover( _
Optional ByVal RecFaxNumber As String = vbNullString, _
Optional ByVal RecName As String = vbNullString, _
Optional ByVal UseServerCoverPage As Boolean = True, _
Optional ByVal CoverPageName As String = "generic", _
Optional ByVal Subject As String = vbNullString, _
Optional ByVal Note As String = vbNullString, _
Optional ByVal SdrName As String = vbNullString, _
Optional ByVal SdrFaxNumber As String = vbNullString, _
Optional ByVal SdrCompany As String = vbNullString, _
Optional ByVal SdrDepartment As String = vbNullString, _
Optional ByVal SdrTitle As String = vbNullString, _
Optional ByVal SdrOfficeLocation As String = vbNullString, _
Optional ByVal SdrHomePhone As String = vbNullString, _
Optional ByVal SdrOfficePhone As String = vbNullString, _
Optional ByVal SdrAddress As String = vbNullString, _
Optional ByVal defResolution As String = "204x196")
ClearCover()
'204x196,1728x2339 (A4,PORTRAIT)
'204x98,1728x1169 (A4,PORTRAIT)
Dim bCreateCover As Boolean = True
Dim y_Res As Single
If FrameCount > 0 Then
y_Res = VerticalResolution
Else
If defResolution = "204x196" Then : y_Res = 196 : Else : y_Res = 98 : End If
End If
Dim FaxPrinter = My_GetLocalFaxPrinterName() ' "Fax"
Dim dm As New DEVMODE 'сюда получаем тек. структуру (главное ее шаблон правильный)
If GetPrinterDevMode(FaxPrinter, dm) = False Then 'ну значит факс хозяйство не установлено, чего дальше стараться
bCreateCover = False
Exit Sub
End If
'подправим (не меняя дефолтные тек. настройки)
dm.dmPrintQuality = 200
If y_Res = 196 Then : dm.dmYResolution = 200 : Else : dm.dmYResolution = 100 : End If
dm.dmOrientation = DMORIENT_PORTRAIT
dm.dmPaperSize = DMPAPER_A4
Dim bmiDst As BITMAPINFO2
Dim pBits As IntPtr
Dim hbmDst As IntPtr
Dim hdcDst As IntPtr
Dim hbmOldDst As IntPtr
'========Cover Page========
With bmiDst.bmiHeader
.biSize = Marshal.SizeOf(bmiDst.bmiHeader)
.biWidth = 1728
If y_Res = 196 Then : .biHeight = 2339 : Else : .biHeight = 1169 : End If
.biPlanes = 1
.biBitCount = 1
.biCompression = BI_RGB
End With
With bmiDst.bmiColors1
.rgbBlue = 255
.rgbGreen = 255
.rgbRed = 255
End With
hbmDst = CreateDIBSection(IntPtr.Zero, bmiDst, DIB_RGB_COLORS, pBits, IntPtr.Zero, 0)
'сначала создаем DC принтера (с заданным A4+Портрет+разрешение)
Dim hdcDst1 As IntPtr = CreateDC(vbNullString, FaxPrinter, vbNullString, dm)
'из него делаем CompatibleDC, куда перенаправим вывод FaxPrintCoverPage
hdcDst = CreateCompatibleDC(hdcDst1)
DeleteDC(hdcDst1) 'это можно сразу грохнуть
hbmOldDst = SelectObject(hdcDst, hbmDst)
PatBlt(hdcDst, 0, 0, bmiDst.bmiHeader.biWidth, bmiDst.bmiHeader.biHeight, WHITENESS) 'красим белым т.к. он гад черный
'======распечатка Cover Page=======
' FaxContextInfo is the fax context
Dim FaxContextInfo As New FAX_CONTEXT_INFO
FaxContextInfo.SizeOfStruct = Marshal.SizeOf(FaxContextInfo)
FaxContextInfo.hDC = hdcDst 'подсовываем свой hdc в FaxPrintCoverPage
' CoverPageInfo is the cover page info
Dim CoverPageInfo As New FAX_COVERPAGE_INFO
With CoverPageInfo
.SizeOfStruct = Marshal.SizeOf(CoverPageInfo)
'
.UseServerCoverPage = UseServerCoverPage
.CoverPageName = CoverPageName ' "confident" ' "C:\ProgramData\Microsoft\Windows NT\MSFax\Common Coverpages\ru-RU\confident.cov"
'recipient
.RecName = RecName
.RecFaxNumber = RecFaxNumber
'sender
.SdrName = SdrName
.SdrFaxNumber = SdrFaxNumber
.SdrCompany = SdrCompany
.SdrDepartment = SdrDepartment
.SdrTitle = SdrTitle
.SdrOfficeLocation = SdrOfficeLocation
.SdrHomePhone = SdrHomePhone
.SdrOfficePhone = SdrOfficePhone
.SdrAddress = SdrAddress
'
.Subject = Subject
.Note = Note
.PageCount = FrameCount + 1
End With
Try
'печать титульной страницы (FaxContextInfo.hDC = hdcDst)
If FaxPrintCoverPage(FaxContextInfo, CoverPageInfo) = False Then
bCreateCover = False
'Debug.Print("FaxPrintCoverPage Error " & RaiseAPIError())
End If
Catch 'на случай если MSFax не установлен!
bCreateCover = False
'Debug.Print(Err.Description) 'если winfax.dll не найдена
End Try
SelectObject(hdcDst, hbmOldDst) : hbmOldDst = IntPtr.Zero
DeleteDC(hdcDst) : hdcDst = IntPtr.Zero
SelectObject(hdcDst, hbmOldDst) : hbmOldDst = IntPtr.Zero
DeleteDC(hdcDst) : hdcDst = IntPtr.Zero
If bCreateCover = True Then
'сохранение в m_CoverBitmap титульной страницы
m_CoverBitmap = Bitmap.FromHbitmap(hbmDst)
m_CoverBitmap.SetResolution(204, y_Res)
End If
DeleteObject(hbmDst) : hbmDst = IntPtr.Zero : pBits = IntPtr.Zero
End Sub
3. А вот дальше надо срастить m_CoverBitmap + m_Bitmap, для каноничности в той же "compression", что и исходный файл.
И здесь как бы код вполне красивый и простой работает прилично и быстро, в отличии от тех наворотов, которые у меня были изначально:
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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Public Function SaveMultiFrameAs1bppTIFFWithCoverPage( _
ByVal FileName As String, _
Optional ByVal startFrame As Integer = 0, Optional ByVal endFrame As Integer = 0, _
Optional ByVal eTifCompression As EncoderValue = EncoderValue.CompressionNone) As Boolean
SaveMultiFrameAs1bppTIFFWithCoverPage = True
Dim startF As Integer
Dim endF As Integer
If (startFrame = 0) Or (startFrame > FrameCount) Then
startF = 1
Else
startF = startFrame
End If
If (endFrame = 0) Or (endFrame > FrameCount) Then
endF = FrameCount
ElseIf (endFrame < startF) Then
endF = startF
Else
endF = endFrame
End If
' Get an ImageCodecInfo object that represents the TIFF codec.
Dim myImageCodecInfo As ImageCodecInfo = GetEncoderInfo("image/tiff")
' Create an EncoderParameters object. An EncoderParameters object has an array of EncoderParameter
' objects. In this case, there are 2 EncoderParameter objects in the array.
Dim myEncoderParameters As EncoderParameters = New EncoderParameters(2)
myEncoderParameters.Param(0) = New EncoderParameter(Encoder.Compression, Fix(eTifCompression))
'========Cover Page========
If HasCover Then
'сохранение в TIFF титульной страницы
Try
' save first image in TIFF
myEncoderParameters.Param(1) = New EncoderParameter(Encoder.SaveFlag, Fix(EncoderValue.MultiFrame))
m_CoverBitmap.Save(FileName, myImageCodecInfo, myEncoderParameters)
Catch
End Try
Else
Return False 'при отсутствии CoverPage ничего не сохраняем и возвращаем False
End If
'========Cover Page========
Dim nActiveFrame As Integer = frameIndex 'запомним, чтоб потом вернуть
For i As Integer = startF To endF
frameIndex = i ' m_Bitmap.SelectActiveFrame(FrameDimension.Page, i - 1)
Try
myEncoderParameters.Param(1) = New EncoderParameter(Encoder.SaveFlag, Fix(EncoderValue.FrameDimensionPage))
m_CoverBitmap.SaveAdd(m_Bitmap, myEncoderParameters)
Catch
End Try
Next i
frameIndex = nActiveFrame 'устанавливаем "текущий" frame == m_Bitmap.SelectActiveFrame(FrameDimension.Page, nActiveFrame - 1)
' закрываем многокадровый файл
myEncoderParameters.Param(1) = New EncoderParameter(Encoder.SaveFlag, Fix(EncoderValue.Flush))
Try : m_CoverBitmap.SaveAdd(myEncoderParameters) : Catch : End Try
End Function
Все четко-быстро. На выходе желаемый гибрид в нужном разрешении и компрессии.
Понятно что два TIFF я аналогично сращу подобным же кодом двумя циклами (ну то что те кого сращивают должны быть совместимых разрешений/размеров это понятно на совести кодописателя).
Здесь главное не плодить новых битмапов из одного в другой (можно нарваться что разрешение и палитра скаканут если не думая), и не плодить всяких DrawImage/BitBlt - можно нарваться на непотребное время работы кода.
Ну OK вроде.
