Imports SubSystems.WP   ' set the name space

                   ' Example of converting from a DOC/DOCX file to PDF
                    Sub ConvertFile(ByVal DocInputFile As String, ByVal PdfOutputFile As String)
                        Dim result As Boolean
                        Dim wp As Wpn

                        wp = New Wpn
                        result = wp.WpsConvertFile(DocInputFile, PdfOutputFile)

                    End Sub


                   ' Example of converting from a byte array containing
                   ' doc/docx to PDF
                    Function ConvertBuffer(ByVal DocInputBytes As Byte()) As Byte()
                        Dim wp As Wpn
                        Dim PdfString As String

                        wp = New Wpn

                        PdfString = wp.WpsConvertBuffer(DocInputBytes)
                        ConvertBuffer = wp.WpsStrToBytes(PdfString)

                    End Function

                

                                  using SubSystems.WP;     // set the namespace

   Wpn wp = new Wpn();
   wp.InWebServer = true;

   // set WebFolder property to a folder with read/write access
   wp.WebFolder = "c:\\inetpub\\wwwroot\\myproject";

   byte[] DocxBytes = wp.WpsFileToBytes(Server.MapPath("myfile.docx"));

   Response.Clear();
   Response.Charset = "";
   Response.ContentType = "application/pdf";

   string strFileName = "test" + ".pdf";
   Response.AddHeader("Content-Disposition", "inline;filename=" + strFileName);

   string pdfString = wp.WpsConvertBuffer(DocxBytes);
   Response.BinaryWrite(wp.WpsStrToBytes(pdfString));

   Response.Flush();
   Response.Close();
   Response.End();


                            

   #include "wps.h"   // includes function definition for the wps32.dll file

   // Convert doc/docx file to the pdf file
   BOOL ConvertFile(LPSTR InputDocFile, LPSTR OutputPdfFile)
   {
      BOOL result;
      DWORD id;


      id=WpsNewSession();   // begin a conversion session

      result=WpsConvertFile(id,InputDocFile,OutputPdfFile);  // Convert to pdf

      WpsEndSession(id);   // end conversion session

      return result;
   }

   // Convert a BYTE buffer containing doc/docx to pdf
   //   pInputDocData: buffer containing the doc/docx to covert
   //   DocDataSize: size of the doc/docx data in the given buffer
   //   pOutSize:  returns the byte size of the pdf data
   // This function returns a global memory handle containing
   // the converted pdf data.
   HGLOBAL ConvertBuffer(LPBYTE pInputDocData, int DocDataSize, LPINT pOutSize)
   {
      HGLOBAL hMem=NULL;
      DWORD id;


      id=WpsNewSession();   // begin a conversion session

      hMem=WpsConvertBuffer(id,pInputDocData,DocDataSize,pOutSize);

      WpsEndSession(id);   // end conversion session

      return hMem;
   }

   ' Include the wps.bas module in your project, then use one of the following
   ' functions to convert from doc/docx to pdf

   ' Example of converting from a DOC/DOCX file to PDF
    Function ConvertFile(ByVal DocInputFile As String, ByVal PdfOutputFile As String) As Long
        Dim result As Boolean
        Dim id As Long

        id = WpsNewSession()   ' start a new conversion session

        result = WpsConvertFile(id, DocInputFile, PdfOutputFile)

        WpsEndSession (id)     ' end conversion session

        ConvertFile = result
    End Function


   ' Example of converting from a string containing
   ' doc/docx to PDF
    Function ConvertBuffer(ByVal DocInputBytes As String) As String
        Dim id As Long
        Dim OutString As String
        Dim hMem As Long
        Dim OutSize As Long

        id = WpsNewSession()   ' start a new conversion session

        hMem = WpsConvertBuffer(id, DocInputBytes, Len(DocInputBytes), OutSize)
        If (hMem <> 0) Then
           OutString = Space$(OutSize + 1) ' allocate space for the output string
           Call WpsHandleToStr(OutString, OutSize, hMem)
           ConvertBuffer = OutString
        End If

        WpsEndSession (id) ' end conversion session

    End Function

                           %@ LANGUAGE = "VBSCRIPT"%&
                            %
                            Option Explicit

                            Dim DocString
                            Dim PdfBytes
                            Dim obj

                            Set obj = Server.CreateObject("wpcc.converter")

                            call obj.SetFlags(1,obj.VAL_WPFLAG_RETURN_MSG_ID)   ' quiet mode

                            DocString=""

                            DocString = obj.FileToString("c:\inetpub\wwwroot\DmoWpc\test.doc")
                            ' read the test.docx file into a string

                            if len(DocString) > 0 then
                PdfBytes = obj.ConvertDocToPdfBytes(CStr(DocString))
                            End If

                            Set obj = Nothing

                            %>

                            <html>
                            <head>
                            </head>

                            <body>

                            <%
                                  Response.Clear()
                                  Response.Charset = ""
                                  Response.ContentType = "application/pdf"

                                  Response.AddHeader "Content-Disposition","inline;
                                  filename=" + "test.pdf"

                                  Response.BinaryWrite(PdfBytes)

                                  Response.Flush()
                                  Response.End()

                            %>

                            </body>
                            </html>