Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Effects
Public Sub AlphaBlendConstructorExample()
Dim codecs As New RasterCodecs()
codecs.ThrowExceptionsOnInvalidImages = True
Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))
' Prepare the command
Dim srcImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "ImageProcessingDemo\image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1)
Dim Left As Integer = CType((leadImage.Width / 8), Integer)
Dim Top As Integer = CType((leadImage.Height / 8), Integer)
Dim Width As Integer = CType(leadImage.Width, Integer)
Dim Height As Integer = CType(leadImage.Height, Integer)
' Combine srcImage with image, with half opacity.
Dim command As AlphaBlendCommand = New AlphaBlendCommand(srcImage, New LeadPoint(0, 0), New LeadRect(Left, Top, Width, Height), 128)
command.Run(leadImage)
codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Effects;
public void AlphaBlendConstructorExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
// Prepare the command
RasterImage srcImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, @"ImageProcessingDemo\Image3.cmp"), 24, CodecsLoadByteOrder.Bgr, 1, 1);
AlphaBlendCommand command = new AlphaBlendCommand(srcImage, new LeadPoint(0, 0), new LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height), 128);
command.Run(image);
codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Effects;
using Leadtools.ImageProcessing;
public async Task AlphaBlendConstructorExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
// Load the image
string srcFileName = @"Assets\Image1.cmp";
StorageFile loadFile = await Tools.AppInstallFolder.GetFileAsync(srcFileName);
RasterImage image = await codecs.LoadAsync(LeadStreamFactory.Create(loadFile));
// Prepare the command
srcFileName = @"Assets\Image3.cmp";
loadFile = await Tools.AppInstallFolder.GetFileAsync(srcFileName);
RasterImage srcImage = await codecs.LoadAsync(LeadStreamFactory.Create(loadFile));
AlphaBlendCommand command = new AlphaBlendCommand(srcImage, LeadPointHelper.Create(0, 0), LeadRectHelper.Create(image.Width / 8, image.Height / 8, image.Width, image.Height), 128);
command.Run(image);
//Save as BMP
string destFileName = @"result.bmp";
StorageFile saveFile = await Tools.AppLocalFolder.CreateFileAsync(destFileName);
await codecs.SaveAsync(image, LeadStreamFactory.Create(saveFile), RasterImageFormat.Bmp, 24);
}
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.Effects;
using Leadtools.Examples;
public void AlphaBlendConstructorExample(RasterImage image, RasterImage srcImage, Stream outStream)
{
// Prepare the command
AlphaBlendCommand command = new AlphaBlendCommand(srcImage, new LeadPoint(0, 0), new LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height), 128);
command.Run(image);
// Save result image
RasterCodecs codecs = new RasterCodecs();
codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
image.Dispose();
srcImage.Dispose();
}
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Effects
Public Sub AlphaBlendConstructorExample(ByVal image As RasterImage, ByVal srcImage As RasterImage, ByVal outStream As Stream)
' Prepare the command
Dim command As AlphaBlendCommand = New AlphaBlendCommand(srcImage, New LeadPoint(0, 0), _
New LeadRect(image.Width / 8, image.Height / 8, image.Width, image.Height), 128)
command.Run(image)
' Save result image
Dim codecs As RasterCodecs = New RasterCodecs()
codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
image.Dispose()
srcImage.Dispose()
End Sub