GETURLTOFILE error on windows 7 (WINOLE/1007)

GETURLTOFILE error on windows 7 (WINOLE/1007)

Postby Silvio.Falconi » Fri Apr 10, 2020 10:30 pm

On Windows 10

oHtp = CREATEOBJECT( "Msxml2.XMLHTTP.6.0" )

run ok on windows seven I have this error

Code: Select all  Expand view  RUN
  Error description: (DOS Error -2147352567) WINOLE/1007  Download della risorsa specificata non riuscito.
 (0x800C0008): msxml6.dll


is there anothe command on Windows seven ?
this is the function

FUNCTION GETURLTOFILE( cUrl, cFile, cUsr, cPsw )
LOCAL lOk := .F.

LOCAL oHtp, oStr, ex

DEFAULT cFile := CFILENAME( STRTRAN( cUrl, "/", "\" ) )

//TRY
oHtp = CREATEOBJECT( "Msxml2.XMLHTTP.6.0" )

oHtp:Open( "POST", cUrl, .F., cUsr, cPsw )

oHtp:Send()


IF oHtp:Status != 200 THEN BREAK
MemoWrit(cFile,oHtp:ResponseBody)
//oStr = CREATEOBJECT( "ADODB.Stream" )
//oStr:Open()
//oStr:Type = 1
//oStr:Write( oHtp:ResponseBody )
//oStr:SaveToFile( cFile, 2 )
//oStr:Close()

lOk = .T.
//CATCH ex
// ? ex:message
//END

RETURN lOk
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm

Re: GETURLTOFILE error on windows 7 (WINOLE/1007)

Postby Antonio Linares » Sat Apr 11, 2020 10:01 am

Silvio,

You may try FWH function WebImage( cURL )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42125
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: GETURLTOFILE error on windows 7 (WINOLE/1007)

Postby Silvio.Falconi » Sat Apr 11, 2020 10:04 am

I must download a file from a extern server
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 63 guests