Ver Mensaje Individual
  #8 (permalink)  
Antiguo 19/08/2002, 06:02
FredGar
 
Fecha de Ingreso: agosto-2002
Mensajes: 11
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Subir imagen?

Objfich es un on objeto de tipo xelUpload ok?
Pues bien para saber si el fichero es una imagen solo debes comprobar que en la objFich.TipoContenidocadena esté contenido la cadena "IMAGE".Esta es la forma que yo uso:
if (instr(1,ucase( objFich.TipoContenido), "IMAGE",0)<>0) then
Espero te sirva. Un saludo

FredGar

pD:desconozco si hay otra forma, si es así adelante compañeros mostrarmela.