Comment écrire mon texte dans un fichier image ?

**pdtor** · 17/03/2006, 09h13

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

**Crazyblinkgirl** · 17/03/2006, 09h24

Bonjour,

As tu déjà commencé à écrire quelque chose?

**pdtor** · 17/03/2006, 09h51

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>

**Immobilis** · 17/03/2006, 09h56

Tu veux transfomer ta saisie en image?

**pdtor** · 17/03/2006, 10h01

C'est exactement cela !!!

**Immobilis** · 17/03/2006, 10h08

Faut un composant probablement payant ex : http://www.aspsmart.com/aspSmartImage/
A+

**pdtor** · 17/03/2006, 10h26

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

**Immobilis** · 17/03/2006, 13h26

Apparement, l'instruction qui ajoute le texte est ici

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

La variable "sEmail" doit etre remplacée par le contenu du texte que ton formulaire envoi.
A+

Comment écrire mon texte dans un fichier image ?

ASP

Discussions similaires

Partager

Partager