Code: Select all
Public Sub doDetectDuplicates()
Panel15.Visible = True
ListView2.Items.Clear()
Dim MaxStatus As Integer = oGdPictureImaging.TiffGetPageCount(tiffID) * oGdPictureImaging.TiffGetPageCount(tiffID)
Dim CurrentStatus As Integer = 0
ProgressBar7.Value = (CurrentStatus / MaxStatus) * 100
Dim TemplateID As Integer
For pageNum As Integer = 1 To oGdPictureImaging.TiffGetPageCount(tiffID)
oGdPictureImaging.TiffSelectPage(tiffID, pageNum)
Dim thisImage As Bitmap = New Bitmap(oGdPictureImaging.GetBitmapFromGdPictureImage(tiffID))
Dim newImage As Integer = oGdPictureImaging.CreateGdPictureImageFromBitmap(thisImage)
TemplateID = oGdPictureImaging.ADRCreateTemplateFromGdPictureImage(newImage)
If TemplateID = 0 Then
MsgBox("Can't create Template " + "Error number: " + Str(oGdPictureImaging.GetStat))
End If
For comparePageNum As Integer = 1 To oGdPictureImaging.TiffGetPageCount(tiffID)
oGdPictureImaging.TiffSelectPage(tiffID, pageNum)
Dim thisImageCompare As Bitmap = New Bitmap(oGdPictureImaging.GetBitmapFromGdPictureImage(tiffID))
Dim newImageCompare As Integer = oGdPictureImaging.CreateGdPictureImageFromBitmap(thisImageCompare)
oGdPictureImaging.ADRGetCloserTemplateForGdPictureImage(newImageCompare)
oGdPictureImaging.ReleaseGdPictureImage(newImageCompare)
thisImageCompare = Nothing
Dim tConf As Double = oGdPictureImaging.ADRGetLastConfidence()
If tConf > 50 Then
Dim lvi As New ListViewItem
With lvi
.Text = "Page " & pageNum
.SubItems.Add("Page " & comparePageNum)
.SubItems.Add(FormatNumber(tConf, 1) & "% Match")
End With
ListView2.Items.Add(lvi)
End If
CurrentStatus = CurrentStatus + 1
If ((CurrentStatus / MaxStatus) * 100) > 100 Then
ProgressBar7.Value = 100
Else
ProgressBar7.Value = (CurrentStatus / MaxStatus) * 100
End If
Application.DoEvents()
Next
CurrentStatus = CurrentStatus + 1
If ((CurrentStatus / MaxStatus) * 100) > 100 Then
ProgressBar7.Value = 100
Else
ProgressBar7.Value = (CurrentStatus / MaxStatus) * 100
End If
Application.DoEvents()
oGdPictureImaging.ADRDeleteTemplate(TemplateID)
oGdPictureImaging.ReleaseGdPictureImage(newImage)
thisImage = Nothing
Next
End Sub