Error when we upload pdf file

[eranlipi]

hi, my name is eran,
we bought your PDF product.
i tried to upload file and get the next error
we have this product
Aspose.PDF for .NET 19.5

Server Error in ‘/’ Application.

An entry with the same key already exists.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.ArgumentException: An entry with the same key already exists.

Source Error:

Line 74: Dim docHtml As New Aspose.pdf.Document(f.InputStream) Line 75: Dim textAbsorber As New TextAbsorber() Line 76: docHtml.Pages.Accept(textAbsorber) Line 77: Dim extractedText As String = textAbsorber.Text Line 78: Response.Write(extractedText)

Source File: D:\wwwroot\2. CloudeDepartment\3.cvParsing\1_website\api\public_ASPX_Doc2Html\docToText\docToText.aspx.vb Line: 76AllJobs_3195556_u6yw4dl.pdf (247.8 KB)
AllJobs_3195556_u6yw4dl.pdf (247.8 KB)

[Farhan.Raza]

@eranlipi

Thank you for contacting support.

We have not been able to reproduce the issue in our environment. Would you please share sample application containing SSCCE code so that we may again try to reproduce it, and investigate further.

[eranlipi]

@eranlipi

TextAbsorber

my code is (the error line is marked):

Imports Aspose.pdf
Imports Aspose.Pdf.Text
Imports Aspose.Words
Imports Aspose.Words.Saving

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Net
Imports adodb

Partial Class docToText

    Inherits System.Web.UI.Page
	
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	
        Dim license As New Aspose.Words.License()
        license.SetLicense("c:\wwwroot\aspose\Bin\Aspose.Words.lic")
							
		
        Dim license1 As New Aspose.pdf.License()
        license1.SetLicense("c:\wwwroot\aspose\Bin\Aspose.pdf.lic")
		    
		    Dim fileCollection As HttpFileCollection = Request.Files
		    For i As Integer = 0 To fileCollection.Count - 1
				Dim f As HttpPostedFile = fileCollection(i)
               
                If f.ContentLength > 0 Then
                
					Dim fileName As String = f.FileName
					Dim fileArr = split(fileName,".")
					Dim fileType  = fileArr(ubound(fileArr))
					
					  
					'---=== Convert to bytes ===---
					' Dim fs As System.IO.Stream = f.InputStream
					' Dim br As New BinaryReader(fs)
					' Dim buffer() As Byte = br.ReadBytes(Convert.ToInt32(fs.Length))
					' Dim htmlStream As New MemoryStream(buffer)

					
					if lcase(fileType)="pdf" then
					
					  Dim docHtml As New Aspose.pdf.Document(f.InputStream)
					  Dim textAbsorber As New TextAbsorber()   ' =====>  !!!!!! the error is thrown here !!!!!!
					  docHtml.Pages.Accept(textAbsorber)
					  Dim extractedText As String = textAbsorber.Text
					  Response.Write(extractedText)
					  
					else
					
					  Dim info As FileFormatInfo = FileFormatUtil.DetectFileFormat(f.InputStream)
					  Dim lf As Aspose.words.LoadFormat = info.LoadFormat
					  Dim options = New Aspose.words.LoadOptions(lf, "", "")
					  Dim docWord As New Aspose.words.Document(f.InputStream, options)
					  Dim docStream As New MemoryStream()
					  Dim fileExtension As String = FileFormatUtil.LoadFormatToExtension(lf)
					  Dim sf As Aspose.words.SaveFormat = FileFormatUtil.ExtensionToSaveFormat(fileExtension)
					  sf = FileFormatUtil.LoadFormatToSaveFormat(lf)
					  
					  Dim opt
					  opt = New Saving.OoxmlSaveOptions()
					  
							if sf.ToString() = "Doc" then 
								opt = New Saving.DocSaveOptions(sf)
							elseif sf.ToString() = "Docx" then
								opt = New Saving.OoxmlSaveOptions(sf)
							elseif sf.ToString() = "Rtf" then
								opt = New Saving.RtfSaveOptions()
							end if
							docWord.Save(docStream, opt)
	  
					  Response.Write(wordReadFile(docWord))
					  
					end if
               
                End If
               
             Next i

    End Sub


    Function wordReadFile(ByVal docWord As Aspose.words.Document) As String
        Dim builder As New DocumentBuilder(docWord)
        Dim textCv As String = builder.Document.GetText()
        textCv = Replace(textCv, "Evaluation Only. Created with Aspose.Words. Copyright 2003-2014 Aspose Pty Ltd.", "")
        wordReadFile = textCv
    End Function

End Class

[Farhan.Raza]

@eranlipi

Please always share narrowed down code snippet. We have converted it to SSCCE but the issue is not reproduced.

Dim fileName As String = dataDir & "AllJobs_3195556_u6yw4dl.pdf"
Dim fileArr = Split(fileName, ".")
Dim fileType = fileArr(UBound(fileArr))
If LCase(fileType) = "pdf" Then
    Dim docHtml As New Aspose.Pdf.Document(fileName)
    Dim textAbsorber As New TextAbsorber()   ' =====>  !!!!!! the error is thrown here !!!!!!
    docHtml.Pages.Accept(textAbsorber)
    Dim extractedText As String = textAbsorber.Text
    Console.WriteLine(extractedText)
End If

Kindly share narrowed down sample application so that we may investigate further.