Ver Mensaje Individual
  #4  
Antiguo 19-04-2018
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Pues basándote en los códigos que hemos puesto puedes hacerlo sin problemas.
Crea un formulario con 1 TButton y 2 TMemo.
Y utiliza el siguiente código:

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
var
  http: TIdHttp;
  params: TStrings;
  respuesta: string;
const
  url = 'http://www.mapama.gob.es/es/agricultura/temas/sanidad-vegetal/productos-fitosanitarios/registro/productos/proexi.asp';
begin
  http := TIdHTTP.Create(Self);
  params := TStringList.Create;
  try
    params.Add('e=0');
    params.Add('cod=11179');
    params.Add('nom=');
    respuesta := http.Post(url, params);
    Memo2.Lines.Text := Respuesta;

    BuscarDatosRespuestas(respuesta, '', '');
    BuscarDatosRespuestas(respuesta, 'tit.asp?id=50000">', '');

  finally
    http.Free;
    params.Free;
  end;
end;

Verás que el primer TMemo contiene el código HTML de la página de respuesta que necesitas.
A partir de ahí puedes hacer un parser simple conuna rutina como esta para obtener los datos que necesitas:

Código Delphi [-]
function TForm2.BuscarDatosRespuestas(ARespuesta:string; Tag1, Tag2:string):string;
var
  str:String;
  i, j:integer;
begin
  repeat
    i := AnsiPos(Tag1, ARespuesta);
    if (i > 0) then begin
      str := Copy(ARespuesta, (i + Length(Tag1)), Length(ARespuesta));
      ARespuesta := Str;
      j := AnsiPos(Tag2, Str);
      if (j > 0) then begin
        Str := Copy(Str, 1, j-1);
        Memo1.Lines.Add(Str);
      end;
    end;
  until (i = 0);
end;

Te adjunto el proyecto de ejemplo.
Archivos Adjuntos
Tipo de Archivo: zip Consultar_Web_Parametros.zip (6,2 KB, 9 visitas)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita