var desiredDpi = 150;
var dtStartAnalysis = DateTime.Now;
using (var rasterizer = new GhostscriptRasterizer())
{
var ms = new MemoryStream(request.DocumentBytes);
rasterizer.Open(ms);
var codec = ImageCodecInfo.GetImageEncoders().Where(ice => ice.MimeType == "image/tiff").ElementAt(0);
var encoderParams = new EncoderParameters(1);
encoderParams.Param[0] = new EncoderParameter(Encoder.Compression, (long)EncoderValue.CompressionCCITT4);
for (var pageNumber = 1; pageNumber <= rasterizer.PageCount; pageNumber++)
{
var img = rasterizer.GetPage(desiredDpi, desiredDpi, pageNumber);
var newImg = new Bitmap(img.Width, img.Height);
//this section converts the image to grayscale prior to slapping it down
var g = Graphics.FromImage(newImg);
var colorMatrix = new ColorMatrix(
new[]
{
new[] {.3f, .3f, .3f, 0, 0},
new[] {.59f, .59f, .59f, 0, 0},
new[] {.11f, .11f, .11f, 0, 0},
new[] {0f, 0, 0, 1, 0},
new[] {0f, 0, 0, 0, 1}
});
var attributes = new ImageAttributes();
attributes.SetColorMatrix(colorMatrix);
attributes.SetThreshold(0.8f); //threshold for switching gray to black or white
g.DrawImage(img, new Rectangle(0, 0, img.Width, img.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, attributes);
g.Dispose();
using (var targetStream = new MemoryStream())
{
newImg.Save(targetStream, codec, encoderParams);
}
}
}
Trace.WriteLine(string.Format("Converted PDF to TIFF images in {0}", (DateTime.Now - dtStartAnalysis).TotalMilliseconds));var img = rasterizer.GetPage(desiredDpi, desiredDpi, pageNumber);With cmdline
.Add("-empty")
.Add("-dNOPAUSE")
.Add("-dBATCH")
.Add("-dQUIET")
.Add("-dSAFER")
.Add("-dNOPROMPT")
.Add("-q")
.Add("-o test.tif")
.Add("-sDEVICE=tiff24nc")
.Add("-r600")
.Add(" -c ""<</Install {-14 -14 translate}>> setpagedevice""")
.Add("-fTEST.pdf")
End With
GSProc.StartProcessing(cmdline.ToArray(), Nothing)" -c \"<</Install {-14 -14 translate}>> setpagedevice\"" Sub Main()
Dim gp As GhostscriptProcessor = New GhostscriptProcessor()
Dim cmdline As List(Of String) = New List(Of String)
With cmdline
.Add("-empty")
.Add("-dNOPAUSE")
.Add("-dBATCH")
.Add("-dQUIET")
.Add("-dSAFER")
.Add("-dNOPROMPT")
.Add("-q")
.Add("-sDEVICE=tiff24nc")
.Add("-r600")
.Add("-sOutputFile=E:\__test_data\out\test.tif")
.Add("-c")
.Add("<</Install {-14 -14 translate}>> setpagedevice")
.Add("-f")
.Add("E:\__test_data\in\test.pdf")
End With
gp.StartProcessing(cmdline.ToArray(), Nothing)
gp.Dispose()
End Sub
Ghostscript.NET (written in C#) is the most completedmanaged wrapper library around the native Ghostscript library (32-bit & 64-bit), an interpreter for the PostScript language, PDF, related software and documentation.
Contains:
Other features:
Used in the Ghostscript Studio (Ghostscript IDE)
Samples built on the top of the Ghostscript.NET library:
Ghostscript.NET.Viewer (supports viewing of the PDF, EPS and multi-page PS files)
Direct postscript interpretation via Ghostscript.NET.
Cheers,
Josip Habjan
http://habjan.blogspot.com
Dim s As String = "C:\Users\AlbertKallal\Desktop\Deskhold\2013_salaryreport.pdf"
Dim gVER As GhostscriptVersionInfo
gVER = GhostscriptVersionInfo.GetLastInstalledVersion(GhostscriptLicense.GPL, GhostscriptLicense.GPL)
Dim gPDF As New GhostscriptRasterizer
gPDF.Open(s)
Dim gVER As GhostscriptVersionInfo = _
GhostscriptVersionInfo.GetLastInstalledVersion(Ghostscript.NET.GhostscriptLicense.GPL, _
Ghostscript.NET.GhostscriptLicense.GPL)
Dim gP As New Ghostscript.NET.Processor.GhostscriptProcessor(gVER, True)
Dim Myargs As New List(Of String)
With Myargs
.Add("-q")
.Add("-dSAFER")
.Add("-dBATCH")
.Add("-dNOPAUSE")
.Add("-dNOPROMPT")
.Add("-dFirstPage=1")
.Add("-dLastPage=1")
.Add("-sDEVICE=txtwrite")
.Add("-sOutputFile=c:\MyFolder\output.txt")
.Add("-fc:\MyFolder\hello.pdf")
End With
gP.Process(Myargs.ToArray)
using Ghostscript.NET.Processor;
namespace Ghostscript.NET.Samples
{
/// <summary>
/// Sample that demonstrates how to tell Ghostscript to write the output result to
/// an anonymous pipe (memory) instead of the writing it to the disk.
/// </summary>
public class PipedOutputSample : ISample
{
public void Start()
{
string inputFile = @"E:\__test_data\test2.pdf";
GhostscriptPipedOutput gsPipedOutput = new GhostscriptPipedOutput();
// pipe handle format: %handle%hexvalue
string outputPipeHandle = "%handle%" + int.Parse(gsPipedOutput.ClientHandle).ToString("X2");
using (GhostscriptProcessor processor = new GhostscriptProcessor())
{
List<string> switches = new List<string>();
switches.Add("-empty");
switches.Add("-dQUIET");
switches.Add("-dSAFER");
switches.Add("-dBATCH");
switches.Add("-dNOPAUSE");
switches.Add("-dNOPROMPT");
switches.Add("-sDEVICE=txtwrite");
switches.Add("-o" + outputPipeHandle);
switches.Add("-q");
switches.Add("-f");
switches.Add(inputFile);
try
{
processor.StartProcessing(switches.ToArray(), null);
byte[] rawDocumentData = gsPipedOutput.Data;
string txtOutput = System.Text.Encoding.UTF8.GetString(rawDocumentData);
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
}
finally
{
gsPipedOutput.Dispose();
gsPipedOutput = null;
}
}
}
}
}
Dim strPDF As String = "c:\MyFolder\b.pdf"
Dim gP As New Ghostscript.NET.Processor.GhostscriptProcessor()
Dim gpH As New Ghostscript.NET.GhostscriptPipedOutput
Dim outputPieHande As String = "%handle%" + CInt(gpH.ClientHandle).ToString("X2")
Dim Myargs As New List(Of String)
With Myargs
.Add("-empty")
.Add("-dSAFER")
.Add("-dBATCH")
.Add("-dNOPAUSE")
.Add("-dNOPROMPT")
.Add("-dFirstPage=1")
.Add("-dLastPage=1")
.Add("-sDEVICE=txtwrite")
.Add("-o" & outputPieHande)
.Add("-q")
.Add("-f")
.Add(strPDF)
End With
gP.StartProcessing(Myargs.ToArray, Nothing)
Dim raw As Byte() = gpH.Data
Dim strOut = System.Text.Encoding.UTF8.GetString(raw)
gpH.Dispose()
MsgBox(strOut)