How to create an Captcha with TclMagick?
- From: Einstein30000 <dominic_ernst@xxxxxx>
- Date: Fri, 28 Sep 2007 12:06:37 -0700
Hi,
to protect my self-made board against Spambots a captcha is necessary.
So i have to create one using TclMagick.
My current try on apache 1. Webserver (with installed rivet):
<?
package require TclMagick
set wand [magick create wand]
set draw [magick create drawing]
set rpx [magick create pixel red]
$rpx color red
$draw SetStrokeColor red
$draw SetFillColor red
$draw color 1 1 point
$wand SetSize 100 30
$wand DrawImage $draw
?>
This small script doesn't work and i can't understand the syntax of
TclMagick?! :-\
I hope someone could help me with this Problem, all i want is:
A small Captcha graphic (any resolution but not to big!) with 5
radomly selected chars (a-z, A-Z, 0-9). The chars should also have an
randomly selected rotation between 0 and 30 degrees.
The script above was my try to create only a small image to test
TclMagick, but it ends with the following error:
Wand contains no images `MagickWand-3'
while executing
"$wand DrawImage $draw"
(in namespace eval "::request" script line 13)
invoked from within
"namespace eval request {
puts -nonewline ""
I hope someone could help me with this Problem!
cheers
Dominic
.
- Follow-Ups:
- Re: How to create an Captcha with TclMagick?
- From: Pete
- Re: How to create an Captcha with TclMagick?
- From: spam
- Re: How to create an Captcha with TclMagick?
- Prev by Date: Re: Simple parser for C/C++
- Next by Date: Re: 8.5 beta and decimal precision handling
- Previous by thread: Converting ANI to DNIS on a cisco router
- Next by thread: Re: How to create an Captcha with TclMagick?
- Index(es):
Relevant Pages
|
