Interceptar erro

[Wanderson]

Olá,

Como posso interceptar este erro e evitar que o programa encerre?

line= oServerWS:send()

Error= Application
===========
Path and name: C:\BAIXA\VEBAIXADA.exe (32 bits)
Size: 2,065,408 bytes
Time from start: 0 hours 4 mins 6 secs
Error occurred at: 06/02/2017, 14:23:38
Error description: Error MSXML2.ServerXMLHTTP.6.0/3 DISP_E_MEMBERNOTFOUND: SEND

Obrigado.

[VitalJavier]

Buen dia
Yo lo tengo Asi :

Code: Select all  Expand view

   TRY
      ohttp:send( doc:xml )
   CATCH
      MSGALERT( "Error", "No se mando la Solicitud de Web-Service, Inténtelo mas tarde...." )
      RETURN NIL
   END         

 

Hasta Ahorita no me ha mandado mensaje de error

Espero y te ayude. (O Quieres que te muestre que error es ? )

[karinha]

Code: Select all  Expand view

   IF ISINTERNET()

      #IFDEF __XHARBOUR__  // xHarbour

         Try
             oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
         Catch
            MsgInfo('Erro na Criação do Serviço')
            Return .f.
         End

      #ELSE

         Try
            oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
         Catch
            MsgInfo('Erro na Criação do Serviço!', 'Atenção!')
            exit
         End

      #ENDIF

      Try
         oServer:Open( "GET", URL_CONSULTA, .f. )
         oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )
         oServer:SetRequestHeader( "Connection", "keep-alive" )
         oServer:Send()
         oServer:WaitForResponse( 10000 )
      Catch
         MsgInfo('Erro na conexão com o site!', 'Atenção!')
         exit
      End

   ELSE

      ? [SEM NET]

   ENDIF
 



[Wanderson]

Buen dia
Yo lo tengo Asi :

Code: Select all  Expand view

   TRY
      ohttp:send( doc:xml )
   CATCH
      MSGALERT( "Error", "No se mando la Solicitud de Web-Service, Inténtelo mas tarde...." )
      RETURN NIL
   END         

 

Hasta Ahorita no me ha mandado mensaje de error

Espero y te ayude. (O Quieres que te muestre que error es ? )

Gracias, como mostrar que error es?

[Wanderson]

Code: Select all  Expand view

   IF ISINTERNET()

      #IFDEF __XHARBOUR__  // xHarbour

         Try
             oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
         Catch
            MsgInfo('Erro na Criação do Serviço')
            Return .f.
         End

      #ELSE

         Try
            oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
         Catch
            MsgInfo('Erro na Criação do Serviço!', 'Atenção!')
            exit
         End

      #ENDIF

      Try
         oServer:Open( "GET", URL_CONSULTA, .f. )
         oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )
         oServer:SetRequestHeader( "Connection", "keep-alive" )
         oServer:Send()
         oServer:WaitForResponse( 10000 )
      Catch
         MsgInfo('Erro na conexão com o site!', 'Atenção!')
         exit
      End

   ELSE

      ? [SEM NET]

   ENDIF
 



Obrigado Karinha.