Ingresar login de un sitio web desde Delphi

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

Normalmente puedes hacerlo utilizando las Indy y su componente TIdHttp para realizar un post a la web con los parámetros que necesites.
En este hilo/Mensaje tienes un código de [dec] que se parece bastante a lo que necesitas. Se crea el componente, se pasan los parámetros y se envían con un POST.

De todas formas si haces una búsqueda en los foros, encontrarás otros hilos que hablan de temas similares porque es algo que ya hemos tratado en otras ocasiones:

http://www.clubdelphi.com/foros/show...35&postcount=5
http://www.clubdelphi.com/foros/show...6&postcount=12
http://www.clubdelphi.com/foros/showthread.php?t=37050
https://www.clubdelphi.com/foros/showthread.php?t=72881

Y aquí un mensaje mio de hace un tiempo con una duda similar, donde puedes encontrar código y ejemplos, y la solución que otros compañeros me ayudaron a encontrar.

[manelb]

Saludos a todos y perdón por mi ignorancia en el tema...

Este sistema funcionaria con cualquier web donde se espera un valor y devuelve uno o varios resultados??

Mi caso concreto es el de la web del Ministerio de Agricultura donde se consulta el registro de un producto fitosanitario y devuelve el registro, el nombre del producto, la composición y el titular o fabricante de dicho producto.

La web es la siguiente y un posible registro a consultar seria por ejemplo este: 11179

Hace unos meses me puse en contacto con el Ministerio de Agricultura para preguntar si había algún webservice donde poder realizar estas consultas y me respondieron que la única forma era a través del enlace que os he indicado y que debía consultarse directamente a través de la web.
Con este método que proponéis se podría solucionar, y el resultado seria similar a la utilización de un servicio web. Estoy diciendo alguna barbaridad??

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

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.

[Dark_Code]

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

Normalmente puedes hacerlo utilizando las Indy y su componente TIdHttp para realizar un post a la web con los parámetros que necesites.....

Hola, e utilizado este codigo para iniciar sesión del foro desde delphi, pero lo que pasa es que al loguearme osea poner el usuario y contraseña, no se puede conectar al servidor.

Este es el link del foro:

Código Delphi [-]
worldhack.net/foro/login.php

MI CUENTA DEL FORO:
USUARIO: caaf95
CONTRASEÑA: clubdelphi

Ahi esta mi source, espero de tu ayuda a que pueda conectarme correctamente al foro desde delphi. Muchas Gracias de antemano.