Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   pasar un texto a un editor de una pagina web para validar ese texto (https://www.clubdelphi.com/foros/showthread.php?t=83014)

esvastiger 02-05-2013 17:37:45

pasar un texto a un editor de una pagina web para validar ese texto
 
1 Archivos Adjunto(s)
Buenas tengo un problema con IdHTTP y esque cuando lo ejecuto y pulso el botón me sale un error.
El error es 'HTTP/!.1 403 Forbidden'

Lo que yo pretendo es pasarle el texto de un memo como parametro para que la pagina web lo valide y me devuelva si es valido o no

PD : No me deja poner el código Adjunto el código del botón en un txt
Código Delphi [-]
var
  Params : TStrings;
  Response : string;

 begin
   params := TStringList.Create;
   try
   Params.Add(Memo1.Text);
   Response := IdHTTP1.Post('http://jsonformatter.curiousconcept.com/',Params);
   ShowMessage('Respuesta: ' + Response);
   finally
   IdHTTP1.Free;
   Params.Free;
  end;
 end;

aposi 02-05-2013 18:25:01

Cita:

Empezado por esvastiger (Mensaje 459719)
Buenas tengo un problema con IdHTTP y esque cuando lo ejecuto y pulso el botón me sale un error.
El error es 'HTTP/!.1 403 Forbidden'

Lo que yo pretendo es pasarle el texto de un memo como parametro para que la pagina web lo valide y me devuelva si es valido o no

PD : No me deja poner el código Adjunto el código del botón en un txt

Prueba de passar el parametro de esta forma

Código Delphi [-]

Params.AddFormField('jsondata',memo1.text);

esvastiger 03-05-2013 10:40:33

No funciona, el metodo AddFormField no se encuentra para los TStrings.
Código Delphi [-]
Params.Add('jsondata='+Memo1.text);
He intentado tambien hacerlo de la siguiente forma pero ha sido en vano

Chris 06-05-2013 20:46:12

El código de error 403 en HTTP está relacionado a la falta de credenciales o autorización para acceder o utilizar un recurso. En este caso http://jsonformatter.curiousconcept.com/. Estuve revisando el sitio en busca de usos de Cookies, pero tal parece que no las utiliza para enviar información. Lo que sí noté es que la información que tú quieres enviar, es a la siguiente URL: http://jsonformatter.curiousconcept.com/ajax, no a http://jsonformatter.curiousconcept.com/.

Primero haz la prueba con la URL que te proporcioné. Si aún así no funciona, intenta activar el componente de Cookies de Indy y vuelve hacer la prueba.

Saludos.

esvastiger 07-05-2013 14:39:18

Cambio de validador
 
1 Archivos Adjunto(s)
Hola

Lo he puesto pero aun asi no me funciona lo de las caches tampoco. Supongo que me decias de usarlo con la siguiente instrucción.

IdHTTP.AllowCookies := True

He cambiado de validador os pongo el codigo en un fichero puesto que no me deja poner el codigo
Se conecta perfectamente pero cuando le paso el texto del memo1 y le paso el boton lo que me devuelve en el stream está vacio.

Me explico en la etiqueta <prev> devuelto tendría que devolver si es valido el codigo insertado o en su caso el error del problema por el cual no es correcto pero lo que me devuelve es código como si hubiese nueva la pagina

Este es el nuevo error que me suerge al usar este nuevo validador


La franja horaria es GMT +2. Ahora son las 10:28:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi