Forum AtoutFox : CREATEBINARY( ) et son contraire en équivalent   

mer. 20 janvier 2016, 15h17
OlivierH
atoutfox.public.association

CREATEBINARY( ) et son contraire en équivalent

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
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017199