Как преобразовать PDF в изображение с указанием высоты и ширины на C# и .NET
Полный код
GitHubusing System;
using System.IO;
using SkiaSharp;
namespace Sample
{
class Sample
{
static void Main(string[] args)
{
// Before starting, we recommend to get a free 100-day key:
// https://sautinsoft.com/start-for-free/
// Apply the key here:
// SautinSoft.PdfFocus.SetLicense("...");
//Convert PDF into specified Image height & width
SautinSoft.PdfFocus f = new SautinSoft.PdfFocus();
// Set initial values
string pdfPath = Path.GetFullPath(@"..\..\..\Potato Beetle.pdf");
string imageFolder = new DirectoryInfo(Directory.GetCurrentDirectory()).CreateSubdirectory("Result").FullName;
int width = 1600; // Width in Px
int height = 1900; // Height in Px
//Set image options
f.ImageOptions.ImageFormat = SautinSoft.PdfFocus.CImageOptions.ImageFormats.Png;
f.ImageOptions.Resize(new SKSize { Width = width, Height = height }, false);
f.OpenPdf(pdfPath);
if (f.PageCount > 0)
{
// Convert all pages to PNG images
f.ToImages(imageFolder, "Page");
//Show image
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(imageFolder) { UseShellExecute = true });
}
}
}
}
Imports System
Imports System.IO
Imports SkiaSharp
Namespace Sample
Friend Class Sample
Shared Sub Main(ByVal args() As String)
' Before starting, we recommend to get a free 100-day key:
' https://sautinsoft.com/start-for-free/
' Apply the key here:
' SautinSoft.PdfFocus.SetLicense("...");
'Convert PDF into specified Image height & width
Dim f As New SautinSoft.PdfFocus()
' Set initial values
Dim pdfPath As String = Path.GetFullPath("..\..\..\Potato Beetle.pdf")
Dim imageFolder As String = (New DirectoryInfo(Directory.GetCurrentDirectory())).CreateSubdirectory("Result").FullName
Dim width As Integer = 1600 ' Width in Px
Dim height As Integer = 1900 ' Height in Px
'Set image options
f.ImageOptions.ImageFormat = SautinSoft.PdfFocus.CImageOptions.ImageFormats.Png
f.ImageOptions.Resize(New SKSize With {
.Width = width,
.Height = height
}, False)
f.OpenPdf(pdfPath)
If f.PageCount > 0 Then
' Convert all pages to PNG images
f.ToImages(imageFolder, "Page")
'Show image
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(imageFolder) With {.UseShellExecute = True})
End If
End Sub
End Class
End Namespace
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу support@sautinsoft.ru или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: