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.