Imports Leadtools
Imports Leadtools.Codecs
Public Sub CodecsPstOptionsExample()
Using codecs As New RasterCodecs()
Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "file.pst")
Dim messageCount As Integer = 0
' Get number of messages in the PST files
Using imageInfo As CodecsImageInfo = codecs.GetInformation(srcFileName, True)
messageCount = imageInfo.Pst.MessageCount
End Using
' Load all messages as pure text
For messageNumber As Integer = 1 To messageCount
' Load message number 10 as text only
codecs.Options.Pst.Load.MessageNumber = messageNumber
codecs.Options.Pst.Load.PlainText = True
' Load the image
Using image As RasterImage = codecs.Load(srcFileName)
' do something with the image here
End Using
Next
End Using
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;
public void CodecsPstOptionsExample()
{
using (RasterCodecs codecs = new RasterCodecs())
{
string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "file.pst");
int messageCount = 0;
// Get number of messages in the PST files
using (CodecsImageInfo imageInfo = codecs.GetInformation(srcFileName, true))
{
messageCount = imageInfo.Pst.MessageCount;
}
// Load all messages as pure text
for (int messageNumber = 1; messageNumber <= messageCount; messageNumber++)
{
// Load message number 10 as text only
codecs.Options.Pst.Load.MessageNumber = messageNumber;
codecs.Options.Pst.Load.PlainText = true;
// Load the image
using (RasterImage image = codecs.Load(srcFileName))
{
// do something with the image here
}
}
}
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}
Copy Code