Here is the code i'm using below.
I'm using version 5.6.4.
Code: Select all
Dim img As New cImaging
Dim stat As GdPictureStatus
Dim intImgId As Integer
Dim strInFile, strOutFile As String
strInFile = "C:\temp\0001I08.TIF"
strOutFile = "C:\temp\GS0001I08.TIF"
img.SetLicenseNumber("XXX")
intImgId = img.CreateImageFromFile(strInFile)
stat = img.GetStat
Console.WriteLine(img.GetPixelDepth) '24
img.ConvertTo8BppGrayScale()
stat = img.SaveAsTIFF(strOutFile, TifCompression.CompressionLZW)