Forum AtoutFox : Re: CREATEBINARY( ) et son contraire ...   

> Bonjour à tous,
>
> Pour ceux qui ont suivi mon poste pour communiquer avec Rest api azure.
>
> J'aimerais lire une image provenant d'un lien Url et de l'enregistrer
> sur le disque.
>
> Donc pour envoyer une image j'utilise la function CreateBinary,
> et mais je ne trouve d'equivalent pour lire le binaire et le transformer
> en string binaire compatible avec FileToStr
>
> Ce code que j'ai crée me télécharge pas correctement le code binaire de
> la photo. Avez vous une idée ?
>
>
> Procedure GetUrlToFile() as Logical
> Local oHTTP as WinHTTP.WinHTTPRequest.5.1
> Local cUrl as String, cUrlParam as String, cVerb as String
> Local bAsync as Logical
> m.nResponse = 0
> m.bAsync = .F. && si True alors ajouter la methode WaitForResponse
> m.cVerb = "GET"
> m.cUrl =
> "https://imhoteppicture-secondary.blob.core.windows.net/941003/941003A02294_1.jpg";
> m.oHTTP = createobject("WinHTTP.WinHTTPRequest.5.1")
>
> m.oHTTP.Open(m.cVerb,m.cURL, m.bAsync)
> m.oHTTP.Send()
> &&m.oHTTP.WaitForResponse() && obligatoire si async true
>
> &&m.nResponse = m.oHTTP.Status
> &&this.cStatusText = m.oHTTP.Statustext
> &&this.cResponseText = m.oHTTP.ResponseText
> &&this.cResponseHeaders = m.oHTTP.GetAllResponseHeaders()
>
> m.cFile = m.oHTTP.ResponseText
> &&m.cFile = strconv(m.oHTTP.ResponseText,11)
> Strtofile(m.cFile,"d:\photo.jpg")
>
> return m.nResponse
> EndPROC
>
>
>
> d'avance merci
> Olivier
> .
>