Private Shared Sub ExportJpegImage(image As PdfDictionary, ByRef count As Integer) Dim stream As Byte() = image.Stream.Value Dim fs As New FileStream([String].Format("Image{0}.jpeg", System.Math.Max(System.Threading.Interlocked.Increment(count), count - 1)), FileMode.Create, FileAccess.Write) Dim bw As New BinaryWriter(fs) bw.Write(stream) bw.Close() End Sub
PdfDictionary
System.Drawing.Bitmap
LockBits
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)