Enviar datos a un formulario web y obtener respuesta

[Neftali [Germán.Estévez]]

Empezado por roman

Ahora, dado que la url usa el protocolo https, no te servirá si lo pones así nada más. Debes agregar un componente IdSSLIOHandlerSocketOpenSSL (también de las Indy) y asignárselo a la propiedad IOHandler del IdHTTP.

¡Qué grande Román! Dicho así parece fácil y todo.

[roman]

Ja, ja. Sí parece fácil ¿verdad? Pero lo cierto es que yo no sé casi nada de eso, salvo que lo he usado anteriormente para mandar correo con gmail que usa el protocolo ssl. Pero, a diferencia de aquél caso, aquí parece que no son necesarias las bibliotecas openssl, y eso sí que no lo entiendo, je, je.

// Saludos

[IVAND]

Gracias a todos por colaborar en mi problema , ya esta solucionado

Mil gracias nuevamente

[roman]

Hola,

Sería bueno que pusieras cómo hiciste para encontrar el dato específico en la página de resultados y así tener la solución completa.

// Saludos

[IVAND]

Claro , solo hice algo sencillo,

Use un componente Richedit
y busque dentro de el la cadena que busco , si la encuentro el documento es valido , caso contrario no

procedure TFIng_Fact.Validar_documentoClick(Sender: TObject);
Var
  Encontrado : LongInt;
  Desde, Hasta : Integer;
  Cad : String;
begin
 Cad:='El Documento que usted ha consultado, se encuentra autorizado por el SRI';
  //Ahora la busqueda

  If RichEdit1.SelLength <> 0 then
    Desde := RichEdit1.SelStart + RichEdit1.SelLength
  Else
    Desde := 0;
  Hasta := Length(RichEdit1.Text) - Desde;
  Encontrado := RichEdit1.FindText(Cad, Desde, Hasta, [stMatchCase]);
  If Encontrado <> -1 then
    // ShowMessage('La palabra se encontro en : '+IntToStr(Encontrado))
    Showmessage('Documento autorizado')
  Else
     ShowMessage('Documento no autorizado');
end;

Lo ideal seria tomar los valores que retorna en html y convertirlos en campos en delphi , pero eso aun no se como hacerlo