DocumentFileInfo Class

Imports Leadtools.Services 
Imports Leadtools.Services.Forms.ServiceContracts 
Imports Leadtools.Services.Forms.ServiceImplementations 
'using Leadtools.Services.Forms.DataContractsExamples.localhost; 
 
Private Sub Replace(ByVal docFileName As String, ByVal source As String, ByVal destination As String) 
   ' Open a file for reading 
   Dim streamReader As StreamReader 
   streamReader = File.OpenText(docFileName) 
 
   ' read the entire file into a string 
   Dim contents As String = streamReader.ReadToEnd() 
   streamReader.Close() 
 
   Dim streamWriter As StreamWriter = File.CreateText(docFileName) 
 
   streamWriter.Write(contents.Replace(source, destination)) 
   streamWriter.Close() 
End Sub 
 
 
Public Sub DocumentFilesExample() 
   Dim client As OcrServiceClient = New OcrServiceClient() 
 
   Dim sourceBinaryData As RawBinaryData = New RawBinaryData() 
   sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "clean.tif")) 
 
   ' set the document convertion options 
   Dim convertOptions As DocumentConvertOptions = New DocumentConvertOptions() 
 
   convertOptions.Source = sourceBinaryData 
   convertOptions.Destination = Nothing 
   convertOptions.Format = OcrDocumentFormatType.Html 
   convertOptions.FirstPageNumber = 1 
   convertOptions.LastPageNumber = 1 
   Dim files As DocumentFiles = Nothing 
 
   Dim request As RecognizeRequest = New RecognizeRequest() 
   request.ConvertOptions = convertOptions 
 
   Dim response As RecognizeResponse = client.Recognize(request) 
 
   If Not response.Destination Is Nothing Then 
      Dim outFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "clean.html") 
 
      If TypeOf response.Destination Is RawBinaryData Then 
         File.WriteAllBytes(outFileName, (TryCast(response.Destination, RawBinaryData)).Data) 
         If Not response.Files Is Nothing Then 
            Replace(outFileName, "Leadtools_Rename_This", Path.GetFileNameWithoutExtension(outFileName)) 
            Dim directory As String = Path.GetDirectoryName(outFileName) & "\" & Path.GetFileNameWithoutExtension(outFileName) & "_Dir" 
            System.IO.Directory.CreateDirectory(directory) 
            For Each info As DocumentFileInfo In files 
               File.WriteAllBytes(directory & "\" & info.FileName, info.FileData.Data) 
            Next info 
         End If 
      End If 
   End If 
 
   client.Close() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class