株式会社テラソフトデザイン

<%@ Page Language="VBScript" Debug="true" %>
<%
    Dim wfrCom As Object
    Dim pdfImg As Byte()

    wfrCom = Nothing
    pdfImg = Nothing

    Try
        wfrCom = Server.CreateObject("WfrServer.Com.4")

        wfrCom.Open(Server.MapPath(Request.QueryString("File")))
        wfrCom.Import("#1", 0, Server.MapPath(Request.QueryString("Csv")))

        pdfImg= wfrCom.GetPdfImage()
        Response.ContentType="application/pdf"
        Response.BinaryWrite(pdfImg)

    Catch ex As Exception
        Response.ContentType = "text/plain"
        Response.Write(ex.Message)

    Finally
        If wfrCom IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrCom)
            wfrCom = Nothing
        End If
        pdfImg = Nothing

    End Try
%>