> b) pour la récupération du contenu binaire de ton fichier jpg......
> tu utilises "oHTTP.ResponseText"......
> après le reste sont des détails (si je puis me permettre...) : mais PROC....ENDPROC avec un "return"... c'est donc une "function", nResponse dans ton code n'est jamais affecté = retournera toujours 0, les retours des méthodes / functions sont à tester si erreur . .. existence du fichier .jpg, et inutile de préfixer m. les variable en affectation "gauche" puisque ce ne peut être que des variables...
> Le mer. 20 janvier 2016, 15h17 OlivierH a écrit :
>> 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
>> .
>>