Как преобразовать множество файлов TIFF в файлы PDF на C# и .NET


Полный код

using System;
using System.IO;
using SautinSoft.PdfVision;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            ConvertTiffFilesToPdfFiles();
        }
        public static void ConvertTiffFilesToPdfFiles()
        {            
		// Before starting, we recommend to get a free 100-day key:
            // https://sautinsoft.com/start-for-free/
            
            // Apply the key here:
			// SautinSoft.PdfVision.SetLicense("...");
            
            PdfVision v = new PdfVision();
            string[] inpFiles = Directory.GetFiles(@"..\..\..\", "*.tif*");
            try
            {
                foreach (string inpFile in inpFiles)
                {
                    string pdfName = Path.GetFileNameWithoutExtension(inpFile) + ".pdf";
                    string outFile = new FileInfo(pdfName).FullName;
                    v.ConvertImageToPdf(new string[] { inpFile }, outFile);
                    System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outFile) { UseShellExecute = true });
                }                
            }
            catch (Exception ex)
            {
                Console.WriteLine($"Error: {ex.Message}");
                Console.ReadLine();
            }
        }
    }
}

Download

Imports System
Imports System.IO
Imports SautinSoft.PdfVision

Namespace Sample
	Friend Class Program
		Shared Sub Main(ByVal args() As String)
			ConvertTiffFilesToPdfFiles()
		End Sub
		Public Shared Sub ConvertTiffFilesToPdfFiles()
		' Before starting, we recommend to get a free 100-day key:
            ' https://sautinsoft.com/start-for-free/
            
            ' Apply the key here:
			' SautinSoft.PdfVision.SetLicense("...");
			Dim v As New PdfVision()
			Dim inpFiles() As String = Directory.GetFiles("..\..\..\", "*.tif*")
			Try
				For Each inpFile As String In inpFiles
					Dim pdfName As String = Path.GetFileNameWithoutExtension(inpFile) & ".pdf"
					Dim outFile As String = (New FileInfo(pdfName)).FullName
					v.ConvertImageToPdf(New String() { inpFile }, outFile)
					System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outFile) With {.UseShellExecute = True})
				Next inpFile
			Catch ex As Exception
				Console.WriteLine($"Error: {ex.Message}")
				Console.ReadLine()
			End Try
		End Sub
	End Class
End Namespace

Download


Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу [email protected] или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже:



Вопросы и предложения всегда приветствуются!

Мы разрабатываем компоненты .Net с 2002 года. Мы знаем форматы PDF, DOCX, RTF, HTML, XLSX и Images. Если вам нужна помощь в создании, изменении или преобразовании документов в различных форматах, мы можем вам помочь. Мы напишем для вас любой пример кода абсолютно бесплатно.