Salut !
Pouvez-vous m'aider, à faire la chose suivante:
(1) Récupérer des données soumises par un formulaire HTTP via la méthode POST
(2) Ecrire toutes ces données dans un fichier binaire de type image/jpg
Merci pour votre aide !
Stéphane
Salut !
Pouvez-vous m'aider, à faire la chose suivante:
(1) Récupérer des données soumises par un formulaire HTTP via la méthode POST
(2) Ecrire toutes ces données dans un fichier binaire de type image/jpg
Merci pour votre aide !
Stéphane
Bonjour,
As tu déjà commencé à écrire quelque chose?
Je suis encore tout nouveau en ASP. Pour le moment voilà ce que j'arrive à faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 <html> <head> <title>Ma page ASP</title> </head> <% champ=request.form("champ")%> <form method="post" name="formulaire" action="page.asp"> Champ de saisie <input type="text" name="champ" value="<%=champ%>" > <input type="submit"> </form> </body> </html>
Tu veux transfomer ta saisie en image?
"Winter is coming" (ma nouvelle page d'accueil)
C'est exactement cela !!!
Faut un composant probablement payant ex : http://www.aspsmart.com/aspSmartImage/
A+
"Winter is coming" (ma nouvelle page d'accueil)
J'ai trouvé un code qui transforme une adresse e-mail en image. Pouvez-vous m'aider à l'utiliser pour convertir mes données entrantes (http) en une image jpg ?
Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54 //Dans cet exemple, nous allons utiliser le composant "ASPImage" pour //créer les images de nos e-mails Function genEmailImage(email, font, colorFont, fontsize, isItalic, isBold, padsize, colorBack) sEmail = TRIM(email) ' The image name will be a random number Randomize sEmailFileName = "f" & 9999999 * Rnd() Set objImage = Server.CreateObject("AspImage.Image") ' returnColor returns the VB constant for the numeric color passed objImage.BackgroundColor = returnColor(colorBack) objImage.FontName = font objImage.FontColor = returnColor(colorFont) objImage.FontSize = fontsize objImage.Italic = isItalic objImage.Bold = isBold objImage.PadSize = padsize objImage.MaxX = objImage.TextWidth (sEmail) objImage.MaxY = objImage.TextHeight (sEmail) objImage.TextOut sEmail, objImage.X, objImage.Y, FALSE ' Replace this path (and the one below) with whatever path is appropriate for you objImage.FileName = Server.MapPath("/02/maskemail/images/" & sEmailFileName & ".jpg") If objImage.SaveImage Then genEmailImage = "<img src=""/02/maskemail/images/" & sEmailFileName & ".jpg"">" Else genEmailImage = "ASPImage was unable to SAVE. Probably a permission issue, go bother your web host." End If Set objImage = nothing End Function '=== Pour certaines raisons ASPImages requiert des constantes VB pour définir la couleur. Les nombres ne marchent pas.===' Function returnColor(num) select case num case 1: returnColor = vbBlack case 2: returnColor = vbRed case 3: returnColor = vbGreen case 4: returnColor = vbYellow case 5: returnColor = vbBlue case 6: returnColor = vbMagenta case 7: returnColor = vbCyan case 8: returnColor = vbWhite end select End Function
Apparement, l'instruction qui ajoute le texte est iciLa variable "sEmail" doit etre remplacée par le contenu du texte que ton formulaire envoi.objImage.MaxX = objImage.TextWidth (sEmail)
objImage.MaxY = objImage.TextHeight (sEmail)
objImage.TextOut sEmail, objImage.X, objImage.Y, FALSE ' Replace this path (and the one below) with whatever path is appropriate for you
objImage.FileName = Server.MapPath("/02/maskemail/images/" & sEmailFileName & ".jpg")
If objImage.SaveImage Then
A+
"Winter is coming" (ma nouvelle page d'accueil)
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager