Foros Club Delphi - SQL Server - Grabar / Recuperar Imagen

Hola,

Estoy intentando recuperar una imagen guardada en un campo tipo "image" en Sql Server, no se si el tipo de campo es el correcto o usar el tipo
varbinary(MAX). El tipo de conexión utilizada es ADO.
Para el acceso a la SQL utilizo una llamada a un Procedimiento Almacenado
creado por mi

Despues de varios intentos, creo que esto funciona.

Código:



        Mi_Imagen->Picture->Graphic->SaveToStream(msImagen);

        unsigned int  sizeg=msImagen->Size;

        TMemoryStream *msImagen = new TMemoryStream;

        TADOStoredProc *comm = NULL;

        comm = ptSQLBasic->DefineStoredProc("sp_INSERT_Grafico");

TParameter *pe=comm->Parameters->CreateParameter("@Grafico",ftBlob,pdInput,0,"");

          pe->Parameters->ParamByName("@Grafico")->LoadFromStream(msImagen,ftBlob);

                        comm->ExecProc();

El procedimiento almacenado llamado es "sp_INSERT_Grafico"

Código:

ALTER PROCEDURE [dbo].[sp_INSERT_Grafico]

(

                @Grafico  varbinary(MAX)

)

AS BEGIN

   UPDATE tbl_Ficha SET FOTO=@Grafico

END

Pero la parte de la recuperacion de la imagen no funciona!!.
no se, de que forma se le puede asignar al TMemoryStream o al TImage para asignar la imagen recuperada.

alguna idea ? de como se puede recuperar la imagen, usando un proc. con cursor o con paso de parametros ?