Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-05-2013
esvastiger esvastiger is offline
Registrado
NULL
 
Registrado: abr 2013
Posts: 5
Poder: 0
esvastiger Va por buen camino
pasar un texto a un editor de una pagina web para validar ese texto

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;
Archivos Adjuntos
Tipo de Archivo: txt prueba1.txt (313 Bytes, 9 visitas)

Última edición por Casimiro Notevi fecha: 03-05-2013 a las 10:58:02. Razón: no me deja meter código
Responder Con Cita
  #2  
Antiguo 02-05-2013
aposi aposi is offline
Miembro
 
Registrado: dic 2006
Posts: 146
Poder: 18
aposi Va por buen camino
Cita:
Empezado por esvastiger Ver Mensaje
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);
Responder Con Cita
  #3  
Antiguo 03-05-2013
esvastiger esvastiger is offline
Registrado
NULL
 
Registrado: abr 2013
Posts: 5
Poder: 0
esvastiger Va por buen camino
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
Responder Con Cita
  #4  
Antiguo 06-05-2013
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 19
Chris Va por buen camino
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.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #5  
Antiguo 07-05-2013
esvastiger esvastiger is offline
Registrado
NULL
 
Registrado: abr 2013
Posts: 5
Poder: 0
esvastiger Va por buen camino
Cambio de validador

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
Archivos Adjuntos
Tipo de Archivo: txt texto.txt (955 Bytes, 5 visitas)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Editor de texto con capacidad para gestionar tablas e imágenes santiago14 Varios 4 03-01-2013 12:48:59
Editor de texto. rauros OOP 57 09-03-2008 13:57:27
Componente confiable para pasar voz a texto!! JuanErasmo C++ Builder 1 06-05-2006 01:20:13
programa para validar formato de archivo de texto n3mohack Varios 4 21-04-2005 00:27:00
Editor de Texto kael Varios 1 02-11-2004 18:18:42


La franja horaria es GMT +2. Ahora son las 01:44:26.


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
Copyright 1996-2007 Club Delphi