FiveTech Support Forums

On Windows 10

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

run ok on windows seven I have this error



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

Silvio,

You may try FWH function WebImage( cURL )