|
activePDF WebGrabber - Beispiel-Code und HowTo's
Beispiel-Code:
-
Web Browser basierter Rich Text
Editor für online PDF Erstellung
ASP /
VB.NET
-
Einfaches WebGrabber Beispiel
ASP / CF
-
Erstellen eines "Print This Page to PDF" Schalters
ASP / C#
/ CF /
VB.NET
-
activePDF WebGrabber Cold Fusion MX wrapper
CFMX
-
activePDF
WebGrabber .NET wrapper
.NET
HowTo`s:
Dieses Beispiel konvertiert fünf Seite der Google.com Webseite
einzeln und fügt sie an eine Datei namens mu
ltipleURLs.pdf an.
<%
httpArray =
Array("http://www.google.com",
_
"http://images.google.com", _
"http://www.deja.com", _
"http://directory.google.com", _
"http://news.google.com")
Set WG =
Server.CreateObject("APWebGrabber.Object")
Set APS =
Server.CreateObject("APServer.Object")
APS.OutputDirectory Server.MapPath(".")
APS.NewDocumentName "MultipleURLs.pdf"
APS.ConcatenateToExisting =
True
WG.EngineToUse =
0
WG.PrintBackgroundColors =
3
For i =
0 To UBound(httpArray)
WG.URL = httpArray(i)
WG.Prt2DiskSettings =
APS.ToString()
r = WG.DoPrint("127.0.0.1",
64320)
r = WG.Wait("127.0.0.1",
64320, 300, "")
If r <>
"019" Then
Response.Write "error occured,
code: " & r
End If
Next
If r =
"019" Then
Response.Write "Successful"
End If
r = WG.Cleanup("127.0.0.1",
64320)
Set WG =
Nothing
Set APS =
Nothing
%>
nach oben
Um Aufträge von einem Remote Computer abzuschicken, muss
sowohlactivePDF Server als auch activePDF
WebGrabber auf dem Server installiert sein. Zusätzlich muss das WebGrabber OCX
auf dem Remote Computer installiert sein.
Das WebGrabber OCX enthält das APServer Objekt, das es dem activePDF
Server erlaubt in Verbindung mit dem WebGrabber zu arbeiten. Es sit wichtig,
die APServer Methode LoadRemoteProfile zu verwenden um die Übergabe von
Parametern zu erlauben. Die IP Parameter (für LoadRemoteProfile, DoPrint,
Wait, and Cleanup methods) müssen auf die IP Adresse des Servers gesetzt werden
auf dem activePDF Server und WebGrabber laufen.
<%
Set WG =
Server.CreateObject("APWebGrabber.Object")
Set APS =
Server.CreateObject("APServer.Object")
strIP = "192.168.1.1"
strTimeout = 300
strOutputPath =
"c:\"
strURL = "http://www.yahoo.com"
WG.URL = strURL
WG.TimeOut = strTimeout
WG.PrinterTimeout =
strTimeout
APS.LoadRemoteProfile strIP
APS.OutputDirectory strOutputPath
APS.PDFTimeout =
strTimeout
WG.Prt2DiskSettings =
APS.ToString()
r = WG.DoPrint(strIP,
64320)
r = WG.Wait(strIP,
64320, strTimeout,
"")
If r =
"019" Then
Response.Write "Success, output
location: '" & strOutputPath
& "'"
Else
Response.Write "Failure: "
& r
End If
r = WG.Cleanup(strIP,
64320)
Set WG =
Nothing
Set APS =
Nothing
%>
nach oben
|
 |