Imports Leadtools.Services
Imports Leadtools.Services.Raster.ServiceContracts
Imports Leadtools.Services.Raster.ServiceImplementations
Imports leadtools.services.datacontracts._2009._01
Imports leadtools.services.raster.datacontracts._2009._01
Public Sub DbBinaryDataExample()
Dim client As RasterServiceClient = New RasterServiceClient()
Dim sourceBinaryData As FileBinaryData = New FileBinaryData()
sourceBinaryData.FileName = Path.Combine(LEAD_VARS.ImagesDir, "clean.tif")
Dim destinationBinaryData As DbBinaryData = New DbBinaryData()
destinationBinaryData.Provider = DbBinaryDataProvider.SqlServer
destinationBinaryData.CommandType = DbBinaryDataCommandType.Text
destinationBinaryData.CommandText = "insert into ImagesTable (Image) values (@Image);"
destinationBinaryData.ConnectionString = "server=sp2007ep;" & "Trusted_Connection=yes;" & "database=Images;" & "connection timeout=30"
destinationBinaryData.Parameters = New DbBinaryDataParameter()
destinationBinaryData.Parameters.Add("Image", Nothing)
destinationBinaryData.DataFieldType = DbBinaryDataFieldType.Raw
destinationBinaryData.DataFieldName = "Image"
Dim convertOptions As RasterConvertOptions = New RasterConvertOptions()
convertOptions.Source = sourceBinaryData
convertOptions.Destination = destinationBinaryData
convertOptions.Format = RasterImageFormat.Cmp
convertOptions.FirstPage = 1
convertOptions.LastPage = 1
convertOptions.BitsPerPixel = 24
convertOptions.QualityFactor = 2
Dim request As ConvertRequest = New ConvertRequest()
request.ConvertOptions = convertOptions
client.Convert(request)
client.Close()
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools.Services;
using Leadtools.Services.Raster.ServiceContracts;
using Leadtools.Services.Raster.ServiceImplementations;
using leadtools.services.datacontracts._2009._01;
using leadtools.services.raster.datacontracts._2009._01;
public void DbBinaryDataExample()
{
RasterServiceClient client = new RasterServiceClient();
FileBinaryData sourceBinaryData = new FileBinaryData();
sourceBinaryData.FileName = Path.Combine(LEAD_VARS.ImagesDir,"clean.tif");
DbBinaryData destinationBinaryData = new DbBinaryData();
destinationBinaryData.Provider = DbBinaryDataProvider.SqlServer;
destinationBinaryData.CommandType = DbBinaryDataCommandType.Text;
destinationBinaryData.CommandText = "insert into ImagesTable (Image) values (@Image);";
destinationBinaryData.ConnectionString = "server=sp2007ep;" + "Trusted_Connection=yes;" + "database=Images;" + "connection timeout=30";
destinationBinaryData.Parameters = new DbBinaryDataParameter();
destinationBinaryData.Parameters.Add("Image", null);
destinationBinaryData.DataFieldType = DbBinaryDataFieldType.Raw;
destinationBinaryData.DataFieldName = "Image";
RasterConvertOptions convertOptions = new RasterConvertOptions();
convertOptions.Source = sourceBinaryData;
convertOptions.Destination = destinationBinaryData;
convertOptions.Format = RasterImageFormat.Cmp;
convertOptions.FirstPage = 1;
convertOptions.LastPage = 1;
convertOptions.BitsPerPixel = 24;
convertOptions.QualityFactor = 2;
ConvertRequest request = new ConvertRequest();
request.ConvertOptions = convertOptions;
client.Convert(request);
client.Close();
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}