DbImageSource Class

[SerializableAttribute]
public class DbImageSource : RandomAccessImageSource, 
	ISerializable, IImageStreamSource

<SerializableAttribute>
Public Class DbImageSource
	Inherits RandomAccessImageSource
	Implements ISerializable, IImageStreamSource

using System.Data;
using System.Data.SqlClient;
using System.Collections;
using Atalasoft.Imaging;
using Atalasoft.Imaging.ImageSources;
using Atalasoft.Imaging.ImageSources.Data;

public class DbImageSourceExample
{
    // Gets a SQL Server specific connection to the image database
    public static IDbConnection GetConn()
    {
       return new SqlConnection("Data Source=DBServer;Integrated security=SSPI;Initial Catalog=ImageDatabase;");
    }

    // create an accessor that uses SQL statements
    public DbCommandImageAccessor CreateSqlImageAccessor()
    {
       Hashtable sqlParams = new Hashtable();
       sqlParams["@lower"] = 2;
       sqlParams["@upper"] = 4;
       return new DbSqlImageAccessor(new GetConnectionCallback(GetConn), false, "imageBlob", "id", "images", "id between 2 and 4", null, null, sqlParams );
    }

    // get an image from the database
    public AtalaImage GetImageFromDb(int i)
    { 
       DbImageSource imgSrc = new DbImageSource(CreateSqlImageAccessor());
       return imgSrc[i];
    }
}

Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Imports Atalasoft.Imaging
Imports Atalasoft.Imaging.ImageSources
Imports Atalasoft.Imaging.ImageSources.Data

Public Class DbImageSourceExample

    ' Gets a SQL Server specific connection to the image database
    Public Shared Function GetConn() As IDbConnection
        Return New SqlConnection("Data Source=DBServer;Integrated security=SSPI;Initial Catalog=ImageDatabase;")
    End Function

    ' create an accessor that uses SQL statements
    Public Function CreateSqlImageAccessor() As DbCommandImageAccessor
        Dim sqlParams As New Hashtable()
        sqlParams("@lower") = 2
        sqlParams("@upper") = 4
        Return New DbSqlImageAccessor(New GetConnectionCallback(AddressOf GetConn), False, "imageBlob", "id", "images", "id between 2 and 4", _
        Nothing, Nothing, sqlParams)
    End Function

    ' get an image from the database
    Public Function GetImageFromDb(ByVal i As Integer) As AtalaImage
        Dim imgSrc As New DbImageSource(CreateSqlImageAccessor())
        Return imgSrc(i)
    End Function

End Class