Как преобразовать PDF в JPG с высоким качеством на C# и .NET
Полный код
GitHubusing System;
using System.IO;
namespace Sample
{
class Sample
{
static void Main(string[] args)
{
// Get your free 30-day key here:
// https://sautinsoft.com/start-for-free/
// Convert PDF to JPG with high Quality
SautinSoft.PdfFocus f = new SautinSoft.PdfFocus();
string pdfFile = Path.GetFullPath(@"..\..\..\Potato Beetle.pdf");
string jpegDir = new DirectoryInfo(Directory.GetCurrentDirectory()).CreateSubdirectory("Result").FullName;
f.OpenPdf(pdfFile);
if (f.PageCount > 0)
{
// Set image properties: Jpeg, 200 dpi
f.ImageOptions.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg;
f.ImageOptions.Dpi = 200;
// Set 95 as JPEG quality
f.ImageOptions.JpegQuality = 95;
//Save all PDF pages to image folder, each file will have name Page 1.jpg, Page 2.jpg, Page N.jpg
for (int page = 1; page <= f.PageCount; page++)
{
string jpegFile = Path.Combine(jpegDir, String.Format("Page {0}.jpg", page));
// 0 - converted successfully
// 2 - can't create output file, check the output path
// 3 - conversion failed
int result = f.ToImage(jpegFile, page);
// Show only 1st page
if (page == 1 && result == 0)
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(jpegFile) { UseShellExecute = true });
}
}
}
}
}
Imports System.IO
Imports System.Drawing.Imaging
Imports System.Collections.Generic
Imports SautinSoft
Module Sample
Sub Main()
' Get your free 30-day key here:
' https://sautinsoft.com/start-for-free/
' Convert PDF to JPG with high Quality
Dim f As New SautinSoft.PdfFocus()
Dim pdfFile As String = Path.GetFullPath("..\..\..\Potato Beetle.pdf")
Dim jpegDir As String = (New DirectoryInfo(Directory.GetCurrentDirectory())).CreateSubdirectory("Result").FullName
f.OpenPdf(pdfFile)
If f.PageCount > 0 Then
' Set image properties: Jpeg, 200 dpi
f.ImageOptions.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
f.ImageOptions.Dpi = 200
' Set 95 as JPEG quality
f.ImageOptions.JpegQuality = 95
'Save all PDF pages to image folder, each file will have name Page 1.jpg, Page 2.jpg, Page N.jpg
For page As Integer = 1 To f.PageCount
Dim jpegFile As String = Path.Combine(jpegDir, String.Format("Page {0}.jpg", page))
' 0 - converted successfully
' 2 - can't create output file, check the output path
' 3 - conversion failed
Dim result As Integer = f.ToImage(jpegFile, page)
' Show only 1st page
If page = 1 AndAlso result = 0 Then
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(jpegFile) With {.UseShellExecute = True})
End If
Next page
End If
End Sub
End Module
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу [email protected] или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: