... ) oOle := CreateObject("Winhttp.WinHttpRequest.5.1") oOle:Open( "GET", cWeb + AllTrim( cMap ), .F. ) oOle:Send() cURL := oOle:ResponseText nPos1 := At( "/@", cUrl ) Msginfo(cWeb + AllTrim( cMap )) if !Empty( nPos1 ) nPos2 := At( "/data", cUrl ) cRet := Substr( ...