Ayuda con Captcha

[cubanbaker]

Tengo en mi aplicacion un Captcha para validar la entrada de datos como se hace en una web etc..
Estoy utilizando el paquete gratuito SMDBgrid de scalabium y de él uso el componente Captcha pero me da error de compilación.
Si alguien ha usado este componente necesito su ayuda.

Gracias

[Casimiro Notevi]

No podemos adivinar, la bola de cristal está en el taller, tendrás que explicar un poquito más ;), por ejemplo, qué tal poner los mensajes de error que te salen.

[cubanbaker]

jeje Tienes razón, pero es que quería ser tan corto en el mensaje y no aburrir a los demas...
El lío es que estoy usando el componente TCaptcha que trae el paquete SMDBGrid ( no se si lo conoces o has usado)
Al compilar me da el error cuando pongo SMCaptcha1.Initialize
en general no me reconoce el SMCaptcha1.
He instalado el paquete, el componente esta en la Paleta, he revisado el demo que trae y funciona perfectamente, pero cuando lo pongo en mi aplicacion, nada!
Uso delphi 2010 y el paquete que instalé es para Delphi2010.
Has usado ese paquete? Si no, te puedo decir donde bajarlo gratuitamente, lo instalas y me echas una mano.
Gracias casimiro por tu siempre ayuda.

procedure TEmptyDB.FormCreate(Sender: TObject);
begin
SMCaptcha1.CaseSensetive := False;
end;
procedure TEmptyDB.btnOKClick(Sender: TObject);
begin
if SMCaptcha1.ValidateValue(edConfirmation.Text) then
ShowMessage('Confirmed')
else
ShowMessage('Confirmation is not valid. Try again')
end;
procedure TEmptyDB.imgChangePictureClick(Sender: TObject);
begin
SMCaptcha1.Initialize
end;
procedure TEmptyDB.btnCancelClick(Sender: TObject);
begin
Close
end;

[Casimiro Notevi]

Tengo instalado ese paquete de componentes, pero no tengo ningún captcha :confused:, debe ser una versión más moderna que la que tengo yo.

[cubanbaker]

De aqui lo bajé http://www.scalabium.com/download/smcmpnt.zip
Trae para varias versiones de Delphi

[Casimiro Notevi]

Por lo que veo trae una demo, ¿lo has probado?

[cubanbaker]

Si, trae un demo. Cuando lo ejecuto por separado funciona bien, pero cuando añado la forma a mi aplicación me da el error. Copie los ficheros necesarios (según creo). Me estaré saltando algun file que necesita?
Es que con el demo vienen tambien los siguientes files:

.res
.dcu
.dof

Serán necesarios todos? No creo...

[Casimiro Notevi]

Abres el dpr y lo compilas e instalas.
Todavia no has dicho el mensaje de error que te sale.

[escafandra]

Existen algunos componentes y código que puedes usar, 1 (http://delphimagic.blogspot.com/2009/06/crear-un-captcha-con-delphi.html), 2 (http://softwaretopic.informer.com/captcha-delphi/)...

Saludos.

[cubanbaker]

Si claro, ya instalé el paquete dpr, sino no pudiera tener el componente.
Y el error que me da es cuando SMCaptcha1.Initialize, no reconoce el Captcha que pongo.

[ecfisa]

Hola cubanbaker.

Si te interesa realizar el código, que no es muy difícil, agrego otro al que ya te menciona escafandra.

El demo que te adjunto fué una prueba que hice a partir de lo conversado en este post (http://www.clubdelphi.com/foros/showthread.php?t=72291).
Aunque es totalmente funcional, seguramente debas hacerle algunos ajustes, como te dije fué una prueba y así como estaba quedo :).

Un saludo.

[cubanbaker]

Gracias, ya me extrañaba no hubieras respondido ecfisa. :cool:
Ahora me pongo a probar lo que me han dado escafandra y tu . Creo que si, mejor hago yo el componente y pudiera ser hasta más funcional que el que bajé gratis.
Cuando lo tenga les digo.
un abrazo desde La Habana

[cubanbaker]

Ecfisa
No puedo abrir tu file. No se que tipo de archivo es y no lo puedo abrir con nada.
Gracias

[ecfisa]

Hola cubanbaker.

A mí me sucedía lo mismo cuando usaba Internet Explorer e intentaba descargar algún adjunto. Es algo que pasa con esta página, no encontré solución pero con Mozilla Firefox lo descarga o abre sin problemas.

Un saludo.

Edito: Si aún así tenés problemas con la descarga probá desde aquí (https://rapidshare.com/files/1812124105/captcha.zip).

[cubanbaker]

Ya he hecho el Captcha. Gracias a ambos por su ayuda. Funciona perfecto. Sólo que en la imagen en blanco de fondo tuve que dibujar las lineas de la imagen "manualmente" porque no supe como hacerlo por código. El único inconveniente es que siempre la imagen tendrá los mismos trazos de linea de fondo, pero los números cambian.Funciona, que es lo importante. Si alguien lo necesita, puedo poner el código completo para que lo utilicen.Gracias!

[Casimiro Notevi]

http://www.clubdelphi.com/foros/images/icons/icon14.gif Perfecto