Overloads Public Sub Convert( _
   ByVal srcFileName As String, _
   ByVal destFileName As String, _
   ByVal format As RasterImageFormat, _
   ByVal width As Integer, _
   ByVal height As Integer, _
   ByVal bitsPerPixel As Integer, _
   ByVal info As CodecsImageInfo _
) 

Dim instance As RasterCodecs
Dim srcFileName As String
Dim destFileName As String
Dim format As RasterImageFormat
Dim width As Integer
Dim height As Integer
Dim bitsPerPixel As Integer
Dim info As CodecsImageInfo
 
instance.Convert(srcFileName, destFileName, format, width, height, bitsPerPixel, info)

public void Convert( 
   string srcFileName,
   string destFileName,
   RasterImageFormat format,
   int width,
   int height,
   int bitsPerPixel,
   CodecsImageInfo info
)

public:
void Convert( 
   String^ srcFileName,
   String^ destFileName,
   RasterImageFormat format,
   int width,
   int height,
   int bitsPerPixel,
   CodecsImageInfo^ info
) 

Public Sub ConvertExample()
      Dim codecs As RasterCodecs = New RasterCodecs()
      codecs.ThrowExceptionsOnInvalidImages = False

      Dim destPath As String = Path.Combine(LEAD_VARS.ImagesDir, "GifThumbnails")

      If (Not Directory.Exists(destPath)) Then
         Directory.CreateDirectory(destPath)
      End If

      Const thumbWidth As Integer = 128
      Const thumbHeight As Integer = 128
      Dim destRect As LeadRect = New LeadRect(0, 0, thumbWidth, thumbHeight)

      ' Get the CMP files in this folder
      Dim files As String() = Directory.GetFiles(LEAD_VARS.ImagesDir, "*.cmp")
      For Each srcFileName As String In files
         ' Make sure that this is a file we can load
         Dim info As CodecsImageInfo = codecs.GetInformation(srcFileName, False)
         If info.Format <> RasterImageFormat.Unknown Then
            ' Convert to thumbnails (we want to keep the aspect ratio)
            Dim rc As LeadRect = RasterImage.CalculatePaintModeRectangle(thumbWidth, thumbHeight, destRect, RasterPaintSizeMode.FitAlways, RasterPaintAlignMode.Near, RasterPaintAlignMode.Near)

            ' rc.Width and Height contains the image size we want with good aspect ratio
            Dim name As String = Path.GetFileNameWithoutExtension(srcFileName)
            Dim destFileName As String = Path.Combine(destPath, name & "_thumb.gif")

            ' Delete the thumbnail if its already there
            If File.Exists(destFileName) Then
               File.Delete(destFileName)
            End If

            codecs.Convert(srcFileName, destFileName, RasterImageFormat.Gif, rc.Width, rc.Height, 8, info)
         End If
      Next srcFileName

      ' Clean up
      codecs.Dispose()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void ConvertExample()
   {
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = false;

      string srcPath = LEAD_VARS.ImagesDir;
      string destPath = Path.Combine(LEAD_VARS.ImagesDir, "GifThumbnails");

      if(!Directory.Exists(destPath))
         Directory.CreateDirectory(destPath);

      const int thumbWidth = 128;
      const int thumbHeight = 128;
      LeadRect destRect = new LeadRect(0, 0, thumbWidth, thumbHeight);

      // Get the CMP files in this folder
      string[] files = Directory.GetFiles(srcPath, "*.cmp");
      foreach(string srcFileName in files)
      {
         // Make sure that this is a file we can load
         CodecsImageInfo info = codecs.GetInformation(srcFileName, false);
         if(info.Format != RasterImageFormat.Unknown)
         {
            // Convert to thumbnails (we want to keep the aspect ratio)
            LeadRect rc = RasterImage.CalculatePaintModeRectangle(
               thumbWidth,
               thumbHeight,
               destRect,
               RasterPaintSizeMode.FitAlways,
               RasterPaintAlignMode.Near,
               RasterPaintAlignMode.Near);

            // rc.Width and Height contains the image size we want with good aspect ratio
            string name = Path.GetFileNameWithoutExtension(srcFileName);
            string destFileName = Path.Combine(destPath, name + "_thumb.gif");

            // Delete the thumbnail if its already there
            if(File.Exists(destFileName))
               File.Delete(destFileName);

            codecs.Convert(srcFileName, destFileName, RasterImageFormat.Gif, rc.Width, rc.Height, 8, info);
         }
      }

      // Clean up
      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

public void ConvertExample(Stream inStreamCmp, Stream outStreamGifThumb)
{
   RasterCodecs codecs = new RasterCodecs();
   const int thumbWidth = 128;
   const int thumbHeight = 128;
   LeadRect destRect = new LeadRect(0, 0, thumbWidth, thumbHeight);

   // Make sure that this is a file we can load
   CodecsImageInfo info = codecs.GetInformation(inStreamCmp, false);

   // Convert to thumbnails (we want to keep the aspect ratio)
   LeadRect rc = RasterImage.CalculatePaintModeRectangle(
      thumbWidth,
      thumbHeight,
      destRect,
      RasterPaintSizeMode.FitAlways,
      RasterPaintAlignMode.Near,
      RasterPaintAlignMode.Near);

   codecs.Convert(inStreamCmp, outStreamGifThumb, RasterImageFormat.Gif, rc.Width, rc.Height, 8, info);
}

Public Sub ConvertExample(ByVal inStreamCmp As Stream, ByVal outStreamGifThumb As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()
   Const thumbWidth As Integer = 128
   Const thumbHeight As Integer = 128
   Dim destRect As LeadRect = New LeadRect(0, 0, thumbWidth, thumbHeight)

   ' Make sure that this is a file we can load
   Dim info As CodecsImageInfo = codecs.GetInformation(inStreamCmp, False)

   ' Convert to thumbnails (we want to keep the aspect ratio)
   Dim rc As LeadRect = RasterImage.CalculatePaintModeRectangle(thumbWidth, thumbHeight, destRect, RasterPaintSizeMode.FitAlways, RasterPaintAlignMode.Near, RasterPaintAlignMode.Near)

   codecs.Convert(inStreamCmp, outStreamGifThumb, RasterImageFormat.Gif, rc.Width, rc.Height, 8, info)
End Sub