Hi,
Can any one advise how to convert the following VB code to Cobol pls.
Its for a fingerpint reader.
Imports System.Threading
Imports System.IO
Imports DPUruNet
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Text
Public Class Verify
Private _readers As ReaderCollection
Private _reader As Reader
Private _readerResult As Constants.ResultCode
Private FmdToVerify As List(Of Fmd) = New List(Of Fmd)
Private reset As Boolean = False
Private nThread As Thread
Private enrolledFmdStr As String
Public strsplit() As String
Public callsw As String
Public callsw1 As String
Public callOutputFileName As String
Private Function CaptureAndExtractFMD() As String
Dim capResult As CaptureResult
Dim vResult As IdentifyResult = Nothing
While Not reset
Dim result As Constants.ResultCode = _reader.GetStatus()
If _reader.Status.Status = Constants.ReaderStatuses.DP_STATUS_BUSY Then
Thread.Sleep(50)
Continue While
End If
If _reader.Status.Status = Constants.ReaderStatuses.DP_STATUS_READY Then
capResult = _reader.Capture(Constants.Formats.Fid.ANSI, Constants.CaptureProcessing.DP_IMG_PROC_DEFAULT, 5000, _reader.Capabilities.Resolutions(0))
If capResult.Quality = Constants.CaptureQuality.DP_QUALITY_GOOD Then
Dim count As Integer
Dim str As String
For count = 0 To 20
Try
str = strsplit(count).Trim(" ")
Catch ex As Exception
str = ""
End Try
If Not str = "" Then
Dim fs As FileStream = File.OpenRead(str)
Dim sr As StreamReader = New StreamReader(fs)
FmdToVerify.Clear()
FmdToVerify.Add(Fmd.DeserializeXml(sr.ReadLine().ToString()))
sr.Close()
Dim result3 As DataResult(Of Fmd) = FeatureExtraction.CreateFmdFromFid(capResult.Data, Constants.Formats.Fmd.DP_VERIFICATION)
If result3.ResultCode <> Constants.ResultCode.DP_SUCCESS Then
SendMessage("Could not successfully create Fmd")
Else
vResult = Comparison.Identify(result3.Data, 0, getFmdToVerify, 21474, 5)
If vResult.ResultCode = Constants.ResultCode.DP_SUCCESS Then
If vResult.Indexes.Length > 0 Then
SendMessage("User Authorized!")
callsw1 = str
callsw = "EXIT"
'btnMatchFound.Visible = True
Exit Function
Else
SendMessage("User Unauthorized!")
End If
Else
SendMessage("Error occured on verification")
End If
Dim FPBitmap As Bitmap = CreateBitmap(capResult.Data.Views(0).RawImage, capResult.Data.Views(0).Width, capResult.Data.Views(0).Height)
VerifyPictureBox.Image = New Bitmap(FPBitmap)
End If
End If
Next
End If
End If
End While
End Function