Как установить качество изображений в формате jpeg в HTML документе на C# и .NET
Полный код
GitHubusing System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using SautinSoft;
namespace Example
{
class Program
{
static void Main(string[] args)
{
SetJpegQuality();
}
/// <summary>
/// How to set jpeg quality.
/// </summary>
static void SetJpegQuality()
{
// Get your free 100-day key here:
// https://sautinsoft.com/start-for-free/
// If you need more information about "RTF to HTML .Net"
// Email us at: support@sautinsoft.com.
string inpFile = @"..\..\..\example.docx";
string outFile = Path.GetFullPath(@"Result.html");
string imgDir = Path.GetDirectoryName(outFile);
RtfToHtml r = new RtfToHtml();
// 1. Set JPEG format and quality.
RtfToHtml.HtmlFixedSaveOptions opt = new RtfToHtml.HtmlFixedSaveOptions()
{
ImagesDirectoryPath = Path.Combine(imgDir, "Result_images"),
ImagesDirectorySrcPath = "Result_images",
// Change to store images as physical files on local drive.
EmbedImages = false,
ImageFormat = RtfToHtml.HtmlSaveOptions.ImagesFormat.Jpeg,
JpegQuality = 50,
Title = "JPEG images, 50% quality"
};
try
{
r.Convert(inpFile, outFile, opt);
}
catch (Exception ex)
{
Console.WriteLine($"Conversion failed! {ex.Message}");
}
// Open the result.
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outFile) { UseShellExecute = true });
}
}
}Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.IO
Imports SautinSoft
Namespace Example
Friend Class Program
Shared Sub Main(ByVal args() As String)
SetJpegQuality()
End Sub
''' <summary>
''' How to set jpeg quality.
''' </summary>
Private Shared Sub SetJpegQuality()
' Get your free 100-day key here:
' https://sautinsoft.com/start-for-free/
' If you need more information about "RTF to HTML .Net"
' Email us at: support@sautinsoft.com.
Dim inpFile As String = "..\..\..\example.docx"
Dim outFile As String = Path.GetFullPath("Result.html")
Dim imgDir As String = Path.GetDirectoryName(outFile)
Dim r As New RtfToHtml()
' 1. Set JPEG format and quality.
Dim opt As New RtfToHtml.HtmlFixedSaveOptions() With {
.ImagesDirectoryPath = Path.Combine(imgDir, "Result_images"),
.ImagesDirectorySrcPath = "Result_images",
.EmbedImages = False,
.ImageFormat = RtfToHtml.HtmlSaveOptions.ImagesFormat.Jpeg,
.JpegQuality = 50,
.Title = "JPEG images, 50% quality"
}
Try
r.Convert(inpFile, outFile, opt)
Catch ex As Exception
Console.WriteLine($"Conversion failed! {ex.Message}")
End Try
' Open the result.
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outFile) With {.UseShellExecute = True})
End Sub
End Class
End Namespace
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу support@sautinsoft.ru или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: