FiveTech Software tech support forums

Posted: **Tue Mar 17, 2020 12:51 pm**

Saludos
Este programa funciona desde varios PC, sin embargo en algunos PC de otros de mis cliente genera esta incidencia.

FUNCTION MAIN()
LOCAL cUrl:="https://twitter.com/monitordolarvla?lang=es"
? WebPageSource(cUrl)
RETURN

Code: Select all

FUNCTION WebPageSource(cUrl)
   local oIE,cTXT,cHTML,cMemo:=""
   local cString
   LOCAL cString1,cString2
   LOCAL oUrl, oCli,lOk

   DEFAULT cUrl := "http://www.bcv.org.ve"

   BEGIN SEQUENCE

        oUrl = TUrl():New( cUrl )

        IF EMPTY( oUrl )
            BREAK
        ENDIF

        oCli = TIPClientHttp():New( oUrl )

        IF EMPTY( oCli )
           BREAK
        ENDIF

        IF !oCli:Open( oUrl )
           BREAK
        ENDIF

        WHILE .T.

          cString := oCli:Read()

          IF Empty(cString)
            EXIT
          ENDIF

          cMemo:=cMemo+cString

        ENDDO

        cString:=cMemo
        oCli:Close()
        oUrl:Close()

    END SEQUENCE
   

return cString

Posted: **Tue Mar 17, 2020 1:28 pm**

Mira el antivirus, el FireWall y el tema de permisos, a ver si lo interceptan.

Posted: **Wed Mar 18, 2020 11:43 am**

Moises
Gracias,

1. Necesito atajar el mensaje y no me bote del sistema.
2. Ejecute la URL (https://twitter.com/monitordolarvla?lang=es) desde el navegador del cliente y se mostró sin novedad

Posted: **Wed Mar 18, 2020 12:24 pm**

Aquí tienes un ejemplo operativo:

Code: Select all

#include "fivewin.ch"


FUNCTION MAIN()
LOCAL cUrl :="http://www.google.es"
? WebPageSource(cUrl)

RETURN nil


function WebPageSource( cURL )


   local oURL
   local oClient

   local cRetBuf

   oURL := tURL():New( cUrl )

   oClient := TIpClientHttp():new( oUrl )


   if oClient:Open()

      cRetBuf := oClient:readAll()

   endif

   oClient:Close()

   msgalert( "Close", oClient:lastErrorMessage() )




return cRetBuf

Posted: **Mon Sep 14, 2020 6:31 am**

Saludos
Este programa estaba funcionando sin Novedad, logré compilarlos con FWH, genera incidencia

Application
===========
Path and name: C:\fwh\samples\DPCRPE.exe (32 bits)
Size: 4,361,728 bytes
Compiler version: Harbour 3.2.0dev (r2006301601)
FiveWin version: FWH 20.07
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 7 secs
Error occurred at: 09/14/20, 02:28:35
Error description: Error BASE/1081 Operation not supported: TIPCLIENTHTTP:new()
Args:
[ 1] = O TIPCLIENTHTTP
[ 2] = C https

Stack Calls
===========
Called from: ..\contrib\hbtip\client.prg => TIPCLIENT:NEW( 0 )
Called from: ..\contrib\hbtip\httpcli.prg => TIPCLIENTHTTP:NEW( 0 )
Called from: DPCRPE.prg => WEBPAGESOURCE( 393 )
Called from: DPCRPE.prg => MAIN( 143 )

System
======
CPU type: Intel(R) Core(TM) i3-3240 CPU @ 3.40GHz 3392 Mhz
Hardware memory: 8079 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Windows total applications running: 5
1 ,
2 , C:\Windows\SYSTEM32\shcore.dll
3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.10240.16384_none_49c0
4 , C:\fwh\samples\DPCRPE.exe
5 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.10240.16384_none_d15682eeaf714

Variables in use
================
Procedure Type Value
==========================
TIPCLIENT:NEW
Param 1: O Class: ERROR
TIPCLIENTHTTP:NEW
Param 1: O Class: TURL
Param 2: U
Param 3: U
Local 1: O Class: ERROR
Local 2: U
Local 3: U
WEBPAGESOURCE
Param 1: O Class: TURL
Local 1: U
Local 2: U
MAIN
Param 1: C "https://twitter.com/dolartoday?lang=es"
Local 1: C ""
Local 2: U
Local 3: O Class: TURL
Local 4: U
Local 5: U
Local 6: U

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TWINDOW
5 TDIALOG
6 TBRUSH
7 TFONT
8 TREG32
9 TRECT
10 TURL
11 TIPCLIENT
12 TIPCLIENTHTTP
13 TSTRUCT

Memory Analysis
===============
606 Static variables

Dynamic memory consume:
Actual Value: 720896 bytes
Highest Value: 720896 bytes

Posted: **Mon Sep 14, 2020 8:45 am**

Saludos
La incidencia es generada por la URL contiene

https

https://twitter.com/monitordolarof?lang=es

Posted: **Wed Sep 16, 2020 2:35 am**

Hola. Mira si este post ayuda.
Yo solamente podia descargar ficheros desde HTTP, no de HTTPS.
https://forums.fivetechsupport.com/view ... er#p225509

FiveTech Software tech support forums

DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

Re: DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

Re: DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

Re: DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

Re: DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

Re: DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL

Re: DOS ERROR -2147352567 WINOLE/1007 MSXMLE.DLL