Dim gdpicturePDF As New GdPicturePDF()
Dim status As GdPictureStatus = gdpicturePDF.LoadFromFile("test.pdf", False)
If status = GdPictureStatus.OK Then
Dim fontCount As Integer = gdpicturePDF.GetFontCount()
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
Dim output As String = "The number of fonts used in this document is " + fontCount.ToString() + "." + vbCrLf + vbCrLf
For i As Integer = 1 To fontCount
output = output + i.ToString() + ". Font: "
Dim fontName As String = "", fontType As String = "", fontEncoding As String = ""
'Finding out the name of the used font.
fontName = gdpicturePDF.GetFontName(i)
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
output = output + " Name = " + fontName
Else
output = output + " Name = Error (" + status.ToString() + ")"
End If
'Finding out the type of the used font.
fontType = gdpicturePDF.GetFontType(i)
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
output = output + "; Type = " + fontType
Else
output = output + "; Type = Error (" + status.ToString() + ")"
End If
'Finding out the font encoding of the used font.
fontEncoding = gdpicturePDF.GetFontEncoding(i)
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
output = output + "; Encoding = " + fontEncoding
Else
output = output + "; Encoding = Error (" + status.ToString() + ")"
End If
'Finding out if the used font is embedded.
Dim fontEmbedded As Boolean = gdpicturePDF.IsFontEmbedded(i)
status = gdpicturePDF.GetStat()
If status = GdPictureStatus.OK Then
output = output + "; Embedded = " + fontEmbedded.ToString() + vbCrLf
Else
output = output + "; Embedded = Error (" + status.ToString() + ")" + vbCrLf
End If
Next
MessageBox.Show(output, "Example: IsFontEmbedded")
Else
MessageBox.Show("The GetFontCount() method has failed with the status: " + status.ToString(), "Example: IsFontEmbedded")
End If
Else
MessageBox.Show("The file can't be loaded.", "Example: IsFontEmbedded")
End If
gdpicturePDF.Dispose()
GdPicturePDF gdpicturePDF = new GdPicturePDF();
GdPictureStatus status = gdpicturePDF.LoadFromFile("test.pdf", false);
if (status == GdPictureStatus.OK)
{
int fontCount = gdpicturePDF.GetFontCount();
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
{
string output = "The number of fonts used in this document is " + fontCount.ToString() + ".\n\n";
for (int i = 1; i <= fontCount; i++)
{
output = output + i.ToString() + ". Font: ";
string fontName = "", fontType = "", fontEncoding = "";
//Finding out the name of the used font.
fontName = gdpicturePDF.GetFontName(i);
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
output = output + " Name = " + fontName;
else
output = output + " Name = Error (" + status.ToString() + ")";
//Finding out the type of the used font.
fontType = gdpicturePDF.GetFontType(i);
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
output = output + "; Type = " + fontType;
else
output = output + "; Type = Error (" + status.ToString() + ")";
//Finding out the font encoding of the used font.
fontEncoding = gdpicturePDF.GetFontEncoding(i);
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
output = output + "; Encoding = " + fontEncoding;
else
output = output + "; Encoding = Error (" + status.ToString() + ")";
//Finding out if the used font is embedded.
bool fontEmbedded = gdpicturePDF.IsFontEmbedded(i);
status = gdpicturePDF.GetStat();
if (status == GdPictureStatus.OK)
output = output + "; Embedded = " + fontEmbedded.ToString() + "\n";
else
output = output + "; Embedded = Error (" + status.ToString() + ")\n";
}
MessageBox.Show(output, "Example: IsFontEmbedded");
}
else
{
MessageBox.Show("The GetFontCount() method has failed with the status: " + status.ToString(), "Example: IsFontEmbedded");
}
}
else
{
MessageBox.Show("The file can't be loaded.", "Example: IsFontEmbedded");
}
gdpicturePDF.Dispose();