←Select platform

Files Property

Summary

Gets or sets a list of additional files that need to be created by the user.

Syntax

C#
VB
C++
[MessageBodyMemberAttribute(2)] 
public Leadtools.Services.Forms.Datacontracts.DocumentFiles Files {get; set;} 
  
<MessageBodyMemberAttribute(2)> 
Public Property Files As Leadtools.Services.Forms.Datacontracts.DocumentFiles 

Property Value

A Leadtools.Services.Forms.DataContracts.DocumentFiles object that contains a list of additional files that need to be created by the user.

Example

C#
VB
using Leadtools.Services; 
using Leadtools.Services.Forms.ServiceContracts; 
using Leadtools.Services.Forms.ServiceImplementations; 
//using Leadtools.Services.Forms.DataContractsExamples.localhost; 
 
private void Replace(string docFileName, string source, string destination) 
{ 
   // Open a file for reading 
   StreamReader streamReader; 
   streamReader = File.OpenText(docFileName); 
 
   // read the entire file into a string 
   string contents = streamReader.ReadToEnd(); 
   streamReader.Close(); 
 
   StreamWriter streamWriter = File.CreateText(docFileName); 
 
   streamWriter.Write(contents.Replace(source, destination)); 
   streamWriter.Close(); 
} 
 
 
public void DocumentFilesExample() 
{ 
   OcrServiceClient client = new OcrServiceClient(); 
 
   RawBinaryData sourceBinaryData = new RawBinaryData(); 
   sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "clean.tif")); 
 
   // set the document convertion options 
   DocumentConvertOptions convertOptions = new DocumentConvertOptions(); 
 
   convertOptions.Source = sourceBinaryData; 
   convertOptions.Destination = null; 
   convertOptions.Format = OcrDocumentFormatType.Html; 
   convertOptions.FirstPageNumber = 1; 
   convertOptions.LastPageNumber = 1; 
   DocumentFiles files = null; 
 
   RecognizeRequest request = new RecognizeRequest(); 
   request.ConvertOptions = convertOptions; 
 
   RecognizeResponse response = client.Recognize(request); 
 
   if (response.Destination != null) 
   { 
      string outFileName = Path.Combine(LEAD_VARS.ImagesDir, "clean.html"); 
 
      if (response.Destination is RawBinaryData) 
      { 
         File.WriteAllBytes(outFileName, (response.Destination as RawBinaryData).Data); 
         if (response.Files != null) 
         { 
            Replace(outFileName, "Leadtools_Rename_This", Path.GetFileNameWithoutExtension(outFileName)); 
            string directory = Path.GetDirectoryName(outFileName) + "\\" + Path.GetFileNameWithoutExtension(outFileName) + "_Dir"; 
            Directory.CreateDirectory(directory); 
            foreach (DocumentFileInfo info in files) 
            { 
               File.WriteAllBytes(directory + "\\" + info.FileName, info.FileData.Data); 
            } 
         } 
      } 
   } 
 
   client.Close(); 
} 
 
static class LEAD_VARS 
{ 
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images"; 
} 
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 

Requirements

Target Platforms

Help Version 19.0.2017.10.27
Products | Support | Contact Us | Copyright Notices
© 1991-2017 LEAD Technologies, Inc. All Rights Reserved.