*   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   
*
*
*   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   *   


DO (LOWER(JUSTPATH(sys(16))) + "\http_ppgm")
gldebug_print = .T.



? http_get_fulladdr ("http://www.evzen.ittt/te")
? http_get_fulladdr ("http://www.evzen.cz/testttt")
? http_get_fulladdr ("http://www.evzen.cz/test")

? http_get_fulladdr ("http://datastore-ovocenka.alto.mine.nu/")




*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  
PROCEDURE http_get_fulladdr (request_string)
*request_string = m.http_adresa + url_end

IF VARTYPE(oHTTP) # "O"           && pokud objekt neexistuje, je vytvoren a nastaven
    oHTTP=CREATEOBJECT("wwHttp")
    DO set_http_parms WITH oHTTP, "GET"
ENDIF

retval_string = sloz_response_string ( oHTTP.HttpGet(m.request_string), oHTTP.cResultCode, oHTTP.cResultCodeMessage, oHTTP.nError, oHTTP.cErrorMSg )
oHTTP.httpclose()
RETURN m.retval_string 
