GdPicture Imaging Forums

Code: Select all

		Using oGdPicturePDF As New GdPicturePDF
			oGdPicturePDF.NewPDF()

			For ImageIndex As Integer = 0 To pDocument.Count - 1
				Dim myFileName As String = pDocument(ImageIndex)

				Using oGdPictureImaging As New GdPictureImaging
					Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(myFileName)

					If ImageID = 0 Then
						oGdPictureImaging.ReleaseGdPictureImage(ImageID)
						oGdPicturePDF.CloseDocument()
						Return False
					Else
						oGdPicturePDF.AddImageFromGdPictureImage(ImageID, False, True)
						If oGdPicturePDF.GetStat() <> GdPictureStatus.OK Then
							oGdPicturePDF.CloseDocument()
							oGdPictureImaging.ReleaseGdPictureImage(ImageID)
							Return False
						End If
					End If

					oGdPictureImaging.ReleaseGdPictureImage(ImageID)

				End Using

			Next

			oGdPicturePDF.SaveToFile(pFileSavePath)
			If oGdPicturePDF.GetStat() <> GdPictureStatus.OK Then
				oGdPicturePDF.CloseDocument()
				Return False
			End If

			oGdPicturePDF.CloseDocument()
		End Using