viewtopic.php?f=3&t=32519&p=191101&hilit=+strret#p191101
- Code: Select all Expand view
- #include "fivewin.ch"
REQUEST DBFCDX
function Main()
local odoc := CreateObject( "MSXML2.DOMDocument" )
local ohttp := CreateObject( "MSXML2.XMLHTTP" )
local strret
ohttp:Open( "GET" ,"http://www.w3schools.com/angular/customers.php", .F. )
ohttp:SetRequestHeader( "Accept" , "application/xml")
ohttp:SetRequestHeader( "Content-Type" ,"application/json" )
oDoc:async := .f.
oDoc:LoadXml('<?xml version=""1.0"" encoding=""utf-8""?>')
ohttp:Send(oDoc:xml)
strret := alltrim(ohttp:responseText)
? StrRet
// StrToHashArray( StrRet )
SaveToDBF( StrRet )
return nil
function SaveToDBF( cStr )
local hData
cStr := CharRepl( "[]", RangeRem( 1, 31, cStr ), "{}" )
do while '" :' $ cStr
StrTran( cStr, '" :', '":' )
enddo
cStr := StrTran( cStr, '":', '"=>' )
hData := &cStr
if File( "download.dbf" )
USE download.dbf NEW ALIAS DST EXCLUSIVE VIA "DBFCDX"
else
DBCREATE( "download.dbf", { { "NAME", 'C', 40, 0 }, ;
{ "CITY", 'C', 40, 0 }, ;
{ "COUNTRY", 'C', 40, 0 } }, ;
"DBFCDX", .t., "DST" )
endif
AEval( HGetValueAt( hData, 1 ), { |h| DBAPPEND(), FW_HashToRec( h ) } )
XBROWSER
CLOSE DST
return nil
On windows 10 run ok
On Windows Seven I have this error
- Code: Select all Expand view
- Application
===========
Path and name: C:\Work\Errori\CREATE_OBJE_OLE\test.Exe (32 bits)
Size: 4,072,448 bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 20.12
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 01/18/21, 02:24:40
Error description: (DOS Error -2147352567) WINOLE/1007 Accesso negato.
(0x80070005): msxml3.dll
Args:
[ 1] = C
Stack Calls
===========
Called from: => TOLEAUTO:SEND( 0 )
Called from: test.prg => MAIN( 16 )
I checked and I have this msxml3.dll on my system on c:\windows\system32 folder
How I can resolve it ?
