resizeVB.aspx (VB.NET):
<%@ Page Language="VB" %>
<HTML>
<HEAD>
<SCRIPT runat="server">
Sub Button1_OnClick(Source As Object, e As EventArgs)
Dim NVresize As new Neevia.PDFresize
NVresize.PageWidth = 5 ' page width = 5 inches
NVresize.PageHeight = 10 ' page height = 10 inches
NVresize.Units = 1 ' measurement units = inches
NVresize.Scale = true ' scale page
NVresize.ConstrainProportions = true ' constrain proportions when scaling
NVresize.Center = true ' center page content
NVresize.Linearize = true ' linearize output file
Dim retVal
retVal = NVresize.ResizePDF("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="Resize file"
OnServerClick="Button1_OnClick" name="Submit1" runat="server">
</FORM>
</BODY>
</HTML>
resizeCsharp.aspx (C#):
<%@ Page Language="C#" %>
<HTML>
<HEAD>
<SCRIPT runat="server">
void Button1_OnClick(object Source, EventArgs e)
{
Neevia.PDFresize NVresize = new Neevia.PDFresize();
int retVal;
NVresize.PageWidth = 5; // page width = 5 inches
NVresize.PageHeight = 10; // page height = 10 inches
NVresize.Units = 1; // measurement units = inches
NVresize.Scale = true; // scale page
NVresize.ConstrainProportions = true; // constrain proportions when scaling
NVresize.Center = true; // center page content
NVresize.Linearize = true; // linearize output file
retVal = NVresize.ResizePDF(@"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="Resize file"
OnServerClick="Button1_OnClick" name="Submit1" runat="server">
</FORM>
</BODY>
</HTML>
|