Large Images Loading Slow

[bpabmeyer]

I have a process that loads images to the GD Viewer. If I get larger images, it takes too long to load. I am sure it is something that I am doing. All the images are PDF files. Can anyone assist me please. I will show what I have for code. Thanks.

Code: Select all

        Try
            GdViewer1.CloseDocument()
            GdViewer1.SilentMode = True
            GdViewer1.MouseWheelMode = ViewerMouseWheelMode.MouseWheelModeVerticalScroll
            GdViewer1.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer
            If Mid(ImagePath, Len(ImagePath) - 2) = "pdf" Then
                Dim oPDF As GdPicturePDF = New GdPicturePDF

                If oPDF.LoadFromFile(ImagePath, False) = GdPictureStatus.OK Then
                    For i As Integer = 1 To oPDF.GetPageCount
                        oPDF.SelectPage(i)
                        Dim raster_page As Integer = oPDF.RenderPageToGdPictureImage(200, False)
                        If i = 1 Then
                            m_ImageID = oGdPictureImaging.TiffCreateMultiPageFromGdPictureImage(raster_page)
                        Else
                            oGdPictureImaging.TiffAppendPageFromGdPictureImage(m_ImageID, raster_page)
                        End If
                        oGdPictureImaging.ReleaseGdPictureImage(raster_page)
                    Next
                    oPDF.CloseDocument()
                Else
                    MessageBox.Show("Path1 is " & ImagePath, "Problem", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Else
                m_ImageID = oGdPictureImaging.CreateGdPictureImageFromFile(ImagePath)
            End If
            If m_ImageID <> 0 Then
                GdViewer1.DisplayFromGdPictureImage(m_ImageID)
                GdViewer1.Focus()
                ThumbnailEx1.LoadFromGdViewer(GdViewer1)
                GdViewer1.SetVScrollBarPosition(0)
                wrk_Image_FullPath = ImagePath
                wrk_Image_Name = wrk_Image_FullPath.Substring(wrk_Image_FullPath.LastIndexOf("\") + 1)
                tslPages.Text = GdViewer1.CurrentPage.ToString & " of " & GdViewer1.PageCount.ToString
                Return True
            Else
                MessageBox.Show("Path2 is " & ImagePath, "Problem", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Catch ex As Exception
            MsgBox("Error occured loading image" & vbCrLf & ex.Message, vbCritical, "Load Image")
        End Try

[Loïc]

Hi,

You code is converting PDF documents to multipage tiff in memory. So this is quite normal that the process takes some time with what you call "larger images".

Kind regards,

Loïc