0

ここの専門家の 1 人がこのコードを手伝ってくれて幸運でしたが、うまく動作させることができませんでした。あらゆる種類のエラーが発生しています。まず、コードは次のとおりです。

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports EO.Pdf
Imports System.Collections.Specialized

Partial Class getParcels
    Inherits System.Web.UI.Page
Public Function Download() As FileResult
        // Populate list with urls 
    Dim urls = New List(Of String)() With { _
        "C:\1.html", _
        "C:\2.html" _
    }

        Dim documents = New List(Of EO.Pdf.PdfDocument)()
        For Each url As var In urls
            Dim doc = New EO.Pdf.PdfDocument()
            EO.Pdf.HtmlToPdf.ConvertUrl(url, doc)
            documents.Add(doc)
        Next

        Dim mergedDocument As EO.Pdf.PdfDocument = EO.Pdf.PdfDocument.Merge(documents.ToArray())

        Dim ms = New MemoryStream()
        mergedDocument.Save(ms)
        ms.Position = 0

        Return New FileStreamResult(ms, "application/pdf") With { _
         .FileDownloadName = "download.pdf" _
        }
    End Function

このコードは、同時に複数の URL にアクセスできるようにすることを目的としており、それらをカンマで区切り、1 つの PDF ドキュメントにマージします。fileResult が定義されていないというエラーが発生します。

以下について：

C:\1.html
C:\2.html

それは言うname of field or property being initialized in an object initializer must start with ','

var 型が定義されておらず、urls を宣言する必要があり、MemoryStream 型が定義されておらず、FileStreamResult 型が定義されていません。欠落しているシステムのインポートがあるように私には思えます。これは、Essential Objects html to pdf コンポーネントの一部です。

4

1 に答える 1

1

From、_

  Dim urls = New List(Of String)() From
      {
       "C:\1.html",
       "C:\2.html"
      }

または

 Dim urls = New List(Of String)(
            {
              "C:\1.html",
              "C:\2.html"
            })
于 2012-07-25T03:05:23.000 に答える