TRY,CATCH,ENDTRY
Publicado por jorge (15 intervenciones) el 05/10/2007 15:13:25
Estimados amigos del foro:
He desarrolaldo una aplicacion para digitalizar documentacion mediante un scanner y
estoy utilizando una rutina bajada de PORTALFOX para transformar un archivo BMP a JPG, la verdad que todo funciona bien en VFP 9. Al utilizarla en VFP 6 me da un error, ya que contiene una sintaxis de lenguaje que desconozco.
Para ejemplificar ésta es la parte de la rutina que me error:
******************************************
PROTECTED FUNCTION InitGDIplus
LOCAL hToken, cInput
hToken=0
cInput = PADR(CHR(1),16,CHR(0))
*Toda esta extructura me da error
TRY &&
THIS.errorcode = GdiplusStartup(@hToken, @cInput, 0)
CATCH
THIS.errorcode = -1
ENDTRY
THIS.hToken=hToken
RETURN (THIS.errorcode=0)
**************************************************
"TRY,CATCH,ENDTRY" es una sintaxis nueva para mi.
Me podrian explicar cual es su uso o si puede reemplazarla con
otra para que funcione en VFP6.
Desde ya muy agradecido
He desarrolaldo una aplicacion para digitalizar documentacion mediante un scanner y
estoy utilizando una rutina bajada de PORTALFOX para transformar un archivo BMP a JPG, la verdad que todo funciona bien en VFP 9. Al utilizarla en VFP 6 me da un error, ya que contiene una sintaxis de lenguaje que desconozco.
Para ejemplificar ésta es la parte de la rutina que me error:
******************************************
PROTECTED FUNCTION InitGDIplus
LOCAL hToken, cInput
hToken=0
cInput = PADR(CHR(1),16,CHR(0))
*Toda esta extructura me da error
TRY &&
THIS.errorcode = GdiplusStartup(@hToken, @cInput, 0)
CATCH
THIS.errorcode = -1
ENDTRY
THIS.hToken=hToken
RETURN (THIS.errorcode=0)
**************************************************
"TRY,CATCH,ENDTRY" es una sintaxis nueva para mi.
Me podrian explicar cual es su uso o si puede reemplazarla con
otra para que funcione en VFP6.
Desde ya muy agradecido
Valora esta pregunta


0