Genexus

Si lo armamos de la siguiente manera:

                Definimos un procedimiento al que llamamos ObtBlobSize

                Rule

                                 parm(IN: &BlobFileName, OUT: &BlobSize );

                Variables

                                                              &BlobFileName es un varchar

                               &BlobSize es un numeric

                               &BlobFile es un tipo file

                Source

&BlobFile.Source = &BlobFileName

&BlobSize =  &BlobFile.GetLength() / 1024

Ese procedimiento es llamado desde la transacción por ejemplo en las rules en particular una transacción en la cual debemos guardar fotos o escaneos y si los usuarios escanean mal la base se te va al diablo en espacio ocupado.

// Estas dos porque cargo en una variable bitmap si quiero mostrar siempre del mismo tamaño en la ventana y no tengo problemas con los exploradores IE y Mozilla se

// comportan diferentes con los blob

&FotoUrlName = PathToURL(UltFoto) If .NOT. UltFoto.IsEmpty();

&Foto = LoadBitmap(&FotoUrlName) If .NOT. &FotoUrlName.IsEmpty();

// Estas dos para ver que tamaño tiene el archivo que cargaron en el blob

&FotoSize = PBlobObtTam.Udp(UltFoto) If .NOT. &FotoUrlName.IsEmpty();

Error('El tamaño de la foto debe ser menor, Verifique la foto tomada debería abarcar sólo la cara') If &FotoSize > &MAX_KbFoto;

// Esto es si quiero controlar que las .ext de los archivos metidos en el blob sean determinados

Error('El formato del archivo de foto debe ser JPG') If .NOT. UltFotoEXT.IsEmpty() .AND. Upper(UltFotoEXT)  <> 'JPG';

&FotoUrlName varchar

&Foto bitmap

&FotoSize entero

&MAX_KbFoto  entero - parámetro de la aplicación que establece el máximo tolerado

UltFoto atributo blob

UltFotoEXT atributo char asociado a la extensión del blob

Hola Gustavo. Estoy con el mismo problema. ¿ Obtuviste la solución ?.

Desde ya, gracias.
Saludos.

Daniel.

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4989 (20100331) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com