Discussion :

[alexeyk]

Bonjour,

On a besoin de générer du PDF avec pdflib, et insérer les images depuis des URL. Actuellement on a un code qui marche mais avec des chemins réseau.

Pour le chargement depuis une URL on a trouvé le code suivant en JAVA :
images-image_from_url

Et il faut le traduire en ASP vbscript.

Les points qui bloquent :
-charger l'image depuis une URL
url = new URL(image_url);
InputStream inp = url.openStream();
imageData = new byte[inp.available()];
inp.read(imageData);

-pour utiliser ensuite la fonction pdflib : create_pvf
p.create_pvf("/pvf/image", imageData, "");

Merci par avance,
Alex

[Immobilis]

Salut,

Tu peux essayer avec l'objet WinHttpRequest et la propriete "ResponseBody": http://msdn.microsoft.com/en-us/libr...06(VS.85).aspx

Ex winhttp.winhttprequest.5.1

A+

[alexeyk]

Merci on va tester ça

[JeanMicheMoule]

J'arrive certainement trop tard, l'eau a coulé sous les ponts. Cependant, j'ai l'immense joie de reprendre actuellement un vieux projet qui présente le même soucis.

Alors que faire? Ôh toi, vieil OP, comment as tu fini?

[JeanMicheMoule]

Alexeyk... Ne me dis pas que j'ai vu sur ton bureau et que tu avais posté le problème que je t'ai posé ce matin...

[alexeyk]

Alexeyk... Ne me dis pas que j'ai vu sur ton bureau et que tu avais posté le problème que je t'ai posé ce matin...

Hahaha ! On dirait bien

Mes messages sont en général très bien référencés : je suis pote avec le gars qui s'occupe des Pandas chez Google. Donc tu risques de tomber souvent sur mes posts sur internet

J'ai pas de solution à ton problème, mais je peux troquer une aspirine contre un café et une clope

[JeanMicheMoule]

Zut, je viens de te lire et je reviens d'une pause avec le collègue ritalien.

Je vais tenter de trouver une solution à ce problème avant de re-pauser.

Cependant, relativement au module java que tu exploitais, j'en ai plus ou moins déduis ça:
L'idée est de convertir l'image à une url en bytestream pour en créer un pvf. "Alas", il doit me manquer une étape dans la procédure, parce que de faire ça dans ce vieux vbscript n'est pas suffisant.
(Bon après je ne fais pas un "bytestream" à proprement parlé, mais j'ai tenté de faire un tableau de byte de la sorte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function BinaryGetURL(URL)
  'Create an Http object, use any of the four objects
  Dim Http
'  Set Http = CreateObject("Microsoft.XMLHTTP")
'  Set Http = CreateObject("MSXML2.ServerXMLHTTP")
  Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
'  Set Http = CreateObject("WinHttp.WinHttpRequest")
 
  'Send request To URL
  Http.Open "GET", URL, False
  Http.Send
  'Get response data As a string
  BinaryGetURL = Http.ResponseBody
End Function

-> Gardons tout de même ce forum professionnel avec un brin de code)