<WebGetAttribute()>
<FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=False)>
<OperationContractAttribute(Name="RecognizeImage", Action="RecognizeImage")>
Overloads Function Recognize( _
   ByVal uri As String, _
   ByVal username As String, _
   ByVal password As String, _
   ByVal format As OcrDocumentFormatType _
) As Stream

Dim instance As IOcrService
Dim uri As String
Dim username As String
Dim password As String
Dim format As OcrDocumentFormatType
Dim value As Stream
 
value = instance.Recognize(uri, username, password, format)

[WebGetAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
[OperationContractAttribute(Name="RecognizeImage", Action="RecognizeImage")]
Stream Recognize( 
   string uri,
   string username,
   string password,
   OcrDocumentFormatType format
)

[WebGetAttribute()]
[FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
[OperationContractAttribute(Name="RecognizeImage", Action="RecognizeImage")]
Stream^ Recognize( 
   String^ uri,
   String^ username,
   String^ password,
   OcrDocumentFormatType format
) 

Public Sub RecognizeImageExample()
      Dim buffer As Byte() = New Byte(1024 * 64 - 1) {}
      Dim totalBytesRead As Integer = 0
      Dim memoryStream As MemoryStream = New MemoryStream()
      Dim client As OcrServiceClient = New OcrServiceClient()

      Dim stream As Stream = client.RecognizeImage("http://sp2007ep/Ocr/Shared%20Documents/OCR.TIF", "username", "password", OcrDocumentFormatType.TextAnsi)

      Dim bytesRead As Integer
      'TODO: INSTANT VB TODO TASK: Assignments within expressions are not supported in VB.NET
      'ORIGINAL LINE: while ((bytesRead = stream.Read(buffer, 0, buffer.Length)) > 0)
      Do While (bytesRead = stream.Read(buffer, 0, buffer.Length)) > 0
         totalBytesRead += bytesRead
         memoryStream.Write(buffer, 0, bytesRead)
      Loop

      File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "ocr.txt"), memoryStream.ToArray())

      client.Close()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void RecognizeImageExample()
   {
      byte[] buffer = new byte[1024 * 64];
      int totalBytesRead = 0;
      MemoryStream memoryStream = new MemoryStream();
      OcrServiceClient client = new OcrServiceClient();

      Stream stream = client.RecognizeImage(@"http://sp2007ep/Ocr/Shared%20Documents/OCR.TIF", "username", "password", OcrDocumentFormatType.TextAnsi);

      int bytesRead;
      while ((bytesRead = stream.Read(buffer, 0, buffer.Length)) > 0)
      {
         totalBytesRead += bytesRead;
         memoryStream.Write(buffer, 0, bytesRead);
      }

      File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"ocr.txt"), memoryStream.ToArray());

      client.Close();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}