aspose图片缩小转pdf.docx

PrivateSub图片合并pdfToolStripMenuItem_Click(senderAsObject,eAsEventArgs)Handles图片合并pdfToolStripMenuItem.ClickoptionsScaleImg.ShowDialog()DimScaleimgoAsInteger=0IfoptionsScaleImg.CheckBox2.Checked=TrueThenScaleimgo=optionsScaleImg.TextBox1.Text.TrimIfIsNumeric(Scaleimgo)=FalseThenExitSubEndIfEndIfDimisblackwhiteAsBoolean=Falseisblackwhite=optionsScaleImg.CheckBox1.CheckedRunStatus=TrueIfMsgBox(图片是否为黑白?,MsgBoxStyle.YesNo)=MsgBoxResult.YesThenisblackwhite=TrueElseisblackwhite=FalseEndIfDimfpAsString=TextBox1.Text.TrimDimford()AsString=Directory.GetDirectories(fp)dgv1dt.Clear()dgv1dt.Columns.Clear()dgv1dt.Columns.Add()ForEachfdAsStringInfordtsCount1.Text=fdDimpn0()AsString=Split(fd,)Dimfd1AsString=pn0(pn0.Length-1)文件夹名Dimpn1()AsString=Split(pn0(pn0.Length-1),.)Dimpdfname0AsString=Regex.Replace(pn1(0),u4e00-u9fa5,).Trim().PadLeft(3,0)DimpdfnameAsString=fp&pdfname0IfFile.Exists(pdfname&.pdf)ThenIfFileIO.FileSystem.GetFileInfo(pdfname&.pdf).Length=0ThenFile.Delete(pdfname&.pdf)EndIfEndIfDimpdfnameAsString=fp&fd1IfFile.Exists(pdfname&.pdf)=FalseThenDimfl()AsString=Directory.GetFiles(fd,*.jpg)Iffl.Length0Thenprobar.Maximum=fl.Lengthprobar.Value=0DimdtAsDataTable=FileNameSort(fl,4)DimdtAsNewDataTabledt.Columns.Add(fn)dt.Columns.Add(fp)ForEachfnAsStringInflDimdrAsDataRow=dt.NewRowdr(fn)=tools1.getfileinfo(fn)(1)dr(fp)=fndt.Rows.Add(dr)NextIfDirectory.Exists(fd&pdf)=FalseThenDirectory.CreateDirectory(fd&pdf)EndIfForEachimgAsDataRowIndt.Rows删除大小为0的文件上次转换失败IfFile.Exists(fd&pdf&img(fn).ToString&.pdf)ThenIfFileIO.FileSystem.GetFileInfo(fd&pdf&img(fn).ToString&.pdf).Length=0ThenFile.Delete(fd&pdf&img(fn).ToString&.pdf)EndIfEndIfIfFile.Exists(fd&pdf&img(fn).ToString&.pdf)=FalseThenDimimgfpAsString=img(fp)TryDimbAsImage=Image.FromFile(imgfp)DimwAsSingle=b.Width/10DimhAsSingle=b.Height/10b.Dispose()InstantiatePdfinstancebycallingitsemptyconstructorDimpdf1AsAspose.Pdf.Generator.Pdf=NewAspose.Pdf.Generator.Pdf()AddasectionintothepdfdocumentDimsecAsAspose.Pdf.Generator.Section=pdf1.Sections.Add()DimfsAsFileStream=NewFileStream(imgfp,FileMode.Open,FileAccess.Read)DimtmpBytes(fs.Length)AsBytefs.Read(tmpBytes,0,Convert.ToInt32(fs.Length)DimmystreamAsMemoryStream=NewMemoryStream(tmpBytes)InstantiateBitMapobjectwithloadedimagestreamDimb1AsBitmap=NewBitmap(mystream)IfScaleimgo0Thenmystream=ScaleImg(2,b1)EndIfsec.PageInfo.Margin.Left=10sec.PageInfo.Margin.Right=10sec.PageInfo.Margin.Top=10sec.PageInfo.Margin.Bottom=10sec.PageInfo.PageWidth=wsec.PageInfo.PageHeight=hCreateanimageobjectDimimage1AsAspose.Pdf.Generator.Image=NewAspose.Pdf.Generator.Image(sec)image1.ImageInfo.ImageFileType=Aspose.Pdf.Generator.ImageFileType.JpegsetIsBlackWhitepropertytotrueforperformanceimprovementimage1.ImageInfo.IsBlackWhite=isblackwhiteimage1.ImageInfo.File=imgfpSetdesiredimagescaleimage1.ImageScale=0.5Fimage1.ImageInfo.ImageStream=mystreamAddtheimageintoparagraphscollectionofthesectionsec.Paragraphs.Add(image1)pdf1.Save(fd&pdf&img(fn).ToString&.pdf)CatchexAsExceptionDimdrAsDataRow=dgv1dt.NewRowdr(0)=imgfpdgv1dt.Rows.Add(dr)EndTryEndIfprobar.PerformStep()IfRunStatus=FalseThenExitSubEndIfApplication.DoEvents()Next记录转换失败的文件转换完成但pdf文件大小为0ForEachimgAsDataRowIndt.RowsIfFile.Exists(fd&pdf&img(fn).ToString&.pdf)ThenIfFileIO.FileSystem.GetFileInfo(fd&pdf&img(fn).ToString&.pdf).Length=0ThenDimdrAsDataRow=dgv1dt.NewRowdr(0)=fd&pdf&img(fn).ToString&.pdfdgv1dt.Rows.Add(dr)EndIfEndIfNexttsCount1.Text=正在合并Dimpdfl()AsString=Directory.GetFiles(fd&pdf,*.pdf)InstantiatePdfFileEditorobjectDimpdfEditorAsAspose.Pdf.Facades.PdfFileEditor=NewAspose.Pdf.Facades.PdfFileEditor()CallConcatenatemethod