compressVB.aspx (VB.NET):
<%@ Page Language="VB" %>
<HTML>
<HEAD>
<SCRIPT runat="server">
Sub Button1_OnClick(Source As Object, e As EventArgs)
Dim NVcomp As new Neevia.PDFcompress
Dim retVal
NVcomp.CI = "jpx"
NVcomp.CQ = 10
NVcomp.GI = "jpx"
NVcomp.GQ = 10
NVcomp.MI = "jbig2"
NVcomp.MQ = 1
NVcomp.CreateObjectStreams = true
NVcomp.removePageLabels = true
NVcomp.removeArticleThreads = true
retVal = NVcomp.CompressPDF("c:\in.pdf", "c:\out.pdf")
If retVal <> 0 Then
Response.Write("Error code=" & CStr(retVal))
Else
Response.Write("Done")
End If
End Sub
</SCRIPT>
</HEAD>
<BODY><CENTER>
<FORM id="Form1" enctype="multipart/form-data" method="post" runat="server">
<INPUT id="Submit1" type="submit" value="Compress file"
OnServerClick="Button1_OnClick" name="Submit1" runat="server">
</FORM>
</BODY>
</HTML>
compressCsharp.aspx (C#):
<%@ Page Language="C#" %>
<HTML>
<HEAD>
<SCRIPT runat="server">
void Button1_OnClick(object Source, EventArgs e)
{
Neevia.PDFcompress NVcomp = new Neevia.PDFcompress();
int retVal;
NVcomp.CI = "jpx";
NVcomp.CQ = 10;
NVcomp.GI = "jpx";
NVcomp.GQ = 10;
NVcomp.MI = "jbig2";
NVcomp.MQ = 1;
NVcomp.CreateObjectStreams = true;
NVcomp.removePageLabels = true;
NVcomp.removeArticleThreads = true;
retVal = NVcomp.CompressPDF(@"c:\in.pdf",@"c:\out.pdf");
if (retVal != 0) {
Response.Write("Error code = " + retVal.ToString());
} else {
Response.Write("Done");
}
}
</SCRIPT>
</HEAD>
<BODY><CENTER>
<FORM id="Form1" enctype="multipart/form-data" method="post"
runat="server">
<INPUT id="Submit1" type="submit" value="Compress file"
OnServerClick="Button1_OnClick" name="Submit1" runat="server">
</FORM>
</BODY>
</HTML>
| 
Neevia PDFstamp is the right tool in case you need to programmatically stamp batches of PDF files with multiple watermaks.
It is fast and cost effective!
