在.NET中將HTML轉換為PDF

using (RasterCodecs codecs = new RasterCodecs())
using (IOcrEngine engine = OcrEngineManager.CreateEngine(OcrEngineType.LEAD))
{
    engine.Startup(codecs, null, null, @"C:\LEADTOOLS\Bin\Common\OcrLEADRuntime");
    using (IOcrDocument doc = engine.DocumentManager.CreateDocument())
    {
        doc.Pages.AddPages("scan.tif", 1, -1, null);
        doc.Pages.AutoZone(null);
        doc.Pages.Recognize(null);
        doc.Save("searchable.pdf", DocumentFormat.Pdf, null);
    }
    engine.Shutdown();
}

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Ocr

Using codecs As New RasterCodecs()
    Using engine As IOcrEngine = OcrEngineManager.CreateEngine(OcrEngineType.LEAD)
        engine.Startup(codecs, Nothing, Nothing, "C:\LEADTOOLS\Bin\Common\OcrLEADRuntime")
        Using doc As IOcrDocument = engine.DocumentManager.CreateDocument()
            doc.Pages.AddPages("scan.tif", 1, -1, Nothing)
            doc.Pages.AutoZone(Nothing)
            doc.Pages.Recognize(Nothing)
            doc.Save("searchable.pdf", DocumentFormat.Pdf, Nothing)
        End Using
        engine.Shutdown()
    End Using
End Using

var ocr = new IronTesseract();
using var input = new OcrInput("scanned-document.png");
input.Deskew();
input.DeNoise();
var result = ocr.Read(input);
Console.WriteLine($"Confidence: {result.Confidence}");

Imports IronTesseract

Dim ocr As New IronTesseract()
Using input As New OcrInput("scanned-document.png")
    input.Deskew()
    input.DeNoise()
    Dim result = ocr.Read(input)
    Console.WriteLine($"Confidence: {result.Confidence}")
End Using

using (RasterCodecs codecs = new RasterCodecs())
using (RasterImage image = codecs.Load("barcoded.tif"))
{
    BarcodeEngine engine = new BarcodeEngine();
    BarcodeData[] results = engine.Reader.ReadBarcodes(
        image, LeadRect.Empty, 0,
        new BarcodeSymbology[]
        {
            BarcodeSymbology.QR, BarcodeSymbology.Datamatrix,
            BarcodeSymbology.PDF417, BarcodeSymbology.Code128, BarcodeSymbology.UPCA
        });
    foreach (BarcodeData bc in results)
        Console.WriteLine($"{bc.Symbology}: {bc.Value}");
}

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Barcode

Using codecs As New RasterCodecs()
    Using image As RasterImage = codecs.Load("barcoded.tif")
        Dim engine As New BarcodeEngine()
        Dim results As BarcodeData() = engine.Reader.ReadBarcodes(image, LeadRect.Empty, 0, New BarcodeSymbology() {BarcodeSymbology.QR, BarcodeSymbology.Datamatrix, BarcodeSymbology.PDF417, BarcodeSymbology.Code128, BarcodeSymbology.UPCA})
        For Each bc As BarcodeData In results
            Console.WriteLine($"{bc.Symbology}: {bc.Value}")
        Next
    End Using
End Using

var results = BarcodeReader.Read("shipment-label.png");
foreach (var barcode in results)
{
    Console.WriteLine($"Value: {barcode.Value}");
    Console.WriteLine($"Format: {barcode.BarcodeType}");
}

Dim results = BarcodeReader.Read("shipment-label.png")
For Each barcode In results
    Console.WriteLine($"Value: {barcode.Value}")
    Console.WriteLine($"Format: {barcode.BarcodeType}")
Next

DiskMasterFormsRepository repository = new DiskMasterFormsRepository(codecs, @"C:\Forms\Masters");
AutoFormsEngine autoEngine = new AutoFormsEngine(repository, null, null, null,
    AutoFormsRecognitionManager.Default, 30, 80, true);

using (RasterImage form = codecs.Load("filled-form.tif"))
{
    AutoFormsRunResult result = autoEngine.Run(form, null);
    foreach (FormPage page in result.FormFields)
        foreach (FormField field in page)
            Console.WriteLine($"{field.Name}: {field.Result}");
}

Imports System

Dim repository As New DiskMasterFormsRepository(codecs, "C:\Forms\Masters")
Dim autoEngine As New AutoFormsEngine(repository, Nothing, Nothing, Nothing, AutoFormsRecognitionManager.Default, 30, 80, True)

Using form As RasterImage = codecs.Load("filled-form.tif")
    Dim result As AutoFormsRunResult = autoEngine.Run(form, Nothing)
    For Each page As FormPage In result.FormFields
        For Each field As FormField In page
            Console.WriteLine($"{field.Name}: {field.Result}")
        Next
    Next
End Using

using (PDFDocument pdf = new PDFDocument("input.pdf"))
{
    PDFDocumentProperties props = pdf.DocumentProperties;
    props.Title = "Processed";
    props.Author = "Internal";
    pdf.SetDocumentProperties(props);
    using (RasterCodecs codecs = new RasterCodecs())
        pdf.Convert(1, -1, "input_pdfa.pdf", DocumentFormat.PdfA, codecs);
}

Imports System

Using pdf As New PDFDocument("input.pdf")
    Dim props As PDFDocumentProperties = pdf.DocumentProperties
    props.Title = "Processed"
    props.Author = "Internal"
    pdf.SetDocumentProperties(props)
    Using codecs As New RasterCodecs()
        pdf.Convert(1, -1, "input_pdfa.pdf", DocumentFormat.PdfA, codecs)
    End Using
End Using

// NuGet: Install-Package IronPdf
// Docs: https://ironpdf.com/how-to/pdfa/
using IronPdf;

class Program
{
    static void Main()
    {
        // SaveAsPdfA exports to a PDF/A archival profile.
        // PdfAVersions exposes PdfA1a, PdfA1b, PdfA2a, PdfA2b, PdfA3a, PdfA3b.
        PdfDocument pdf = PdfDocument.FromFile("invoice.pdf");

        // PDF/A-3b is the common archival target for long-term retention.
        pdf.SaveAsPdfA("invoice-archive.pdf", PdfAVersions.PdfA3b);
    }
}

Imports IronPdf

Module Program
    Sub Main()
        ' SaveAsPdfA exports to a PDF/A archival profile.
        ' PdfAVersions exposes PdfA1a, PdfA1b, PdfA2a, PdfA2b, PdfA3a, PdfA3b.
        Dim pdf As PdfDocument = PdfDocument.FromFile("invoice.pdf")

        ' PDF/A-3b is the common archival target for long-term retention.
        pdf.SaveAsPdfA("invoice-archive.pdf", PdfAVersions.PdfA3b)
    End Sub
End Module

TwainSession session = new TwainSession();
session.Startup(host, TwainStartupFlags.None);
if (session.SelectSource(null) == DialogResult.OK)
{
    using (RasterCodecs codecs = new RasterCodecs())
    {
        session.AcquirePage += (s, e) =>
            codecs.Save(e.Image, "scanned.tif", RasterImageFormat.CcittGroup4, 1,
                1, -1, 1, CodecsSavePageMode.Append);
        session.Acquire(TwainUserInterfaceFlags.Show);
    }
}
session.Shutdown();

Dim session As New TwainSession()
session.Startup(host, TwainStartupFlags.None)
If session.SelectSource(Nothing) = DialogResult.OK Then
    Using codecs As New RasterCodecs()
        AddHandler session.AcquirePage, Sub(s, e)
                                            codecs.Save(e.Image, "scanned.tif", RasterImageFormat.CcittGroup4, 1, 1, -1, 1, CodecsSavePageMode.Append)
                                        End Sub
        session.Acquire(TwainUserInterfaceFlags.Show)
    End Using
End If
session.Shutdown()