Código: Seleccionar todo

Field 0   subject
Field 1   message
Field 2   wysiwyg
Field 3   taglist
Field 4   iconid
Field 5   iconid
Field 6   iconid
Field 7   iconid
Field 8   iconid
Field 9   iconid
Field 10  iconid
Field 11  iconid
Field 12  iconid
Field 13  iconid
Field 14  iconid
Field 15  iconid
Field 16  iconid
Field 17  iconid
Field 18  iconid
Field 19  iconid
Field 20  s
Field 21  securitytoken
Field 22  f
Field 23  do
Field 24  posthash
Field 25  poststarttime
Field 26  loggedinuser
Field 27  sbutton
Field 28  preview
Field 29  signature
Field 30  parseurl
Field 31  parseame
Field 32  disablesmilies
Field 33                                 // ojo este no se por que sale en blanco 
Field 34  emailupdate
Field 35  postpoll
Field 36  polloptions
Field 37  sbutton
Field 38  preview

Código: Seleccionar todo

rocedure TForm1.Button1Click(Sender: TObject);
var
  idHttp: TIdHTTP;
  datosPost_login: TIdMultiPartFormDataStream;
  datosPost_informacion_enviar: TIdMultiPartFormDataStream;
begin

  datosPost_login := TIdMultiPartFormDataStream.Create;
  datosPost_informacion_enviar := TIdMultiPartFormDataStream.Create;
  try

    datosPost_login.AddFormField('vb_login_username', 'usuario');
    datosPost_login.AddFormField('vb_login_password', 'contraseña');
    datosPost_login.AddFormField('do', 'login');

    idHttp := TIdHTTP.Create(Self);
    try

      Memo1.Text := idHttp.Post('http://www.paginaa.com/foros/login.php', datosPost_login);

      //datosPost.CleanupInstance;

      datosPost_informacion_enviar.AddFormField('subject','El titulo');
      datosPost_informacion_enviar.AddFormField('message','El cuerpo del tema de gulder'{Memo3.Text});
      datosPost_informacion_enviar.AddFormField('wysiwyg','0');
      datosPost_informacion_enviar.AddFormField('taglist','');

      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');
      datosPost_informacion_enviar.AddFormField('iconid','0');

      datosPost_informacion_enviar.AddFormField('s', '');
      datosPost_informacion_enviar.AddFormField('securitytoken','1246051585-a4b920466447c38879c4c600a7a534c77d7586c2');
      datosPost_informacion_enviar.AddFormField('f', '13');
      datosPost_informacion_enviar.AddFormField('do', 'newthread');
      datosPost_informacion_enviar.AddFormField('posthash', 'f2742dca61938e790b1d84f1e2329a64');
      datosPost_informacion_enviar.AddFormField('poststarttime', '1246051585');
      datosPost_informacion_enviar.AddFormField('loggedinuser', '50739');

      datosPost_informacion_enviar.AddFormField('sbutton','Someter Nuevo Tema');
      datosPost_informacion_enviar.AddFormField('preview','Vista Previa de Mensaje');

      datosPost_informacion_enviar.AddFormField('signature','1');
      datosPost_informacion_enviar.AddFormField('parseurl','1');
      datosPost_informacion_enviar.AddFormField('parseame','1');
      datosPost_informacion_enviar.AddFormField('disablesmilies','1');
      datosPost_informacion_enviar.AddFormField('emailupdate','9999');
      datosPost_informacion_enviar.AddFormField('postpoll','yes');
      datosPost_informacion_enviar.AddFormField('postpoll','polloptions');

      datosPost_informacion_enviar.AddFormField('sbutton','Someter Nuevo Tema');
      datosPost_informacion_enviar.AddFormField('preview','Vista Previa de Mensaje');

      Memo2.Text := idHttp.Post('http://www.lapagina.com/foros/newthread.php', datosPost_informacion_enviar);

       //?do=newthread&f=13
    finally
      idHttp.Free;
    end;
  finally
    datosPost_login.Free;
    datosPost_informacion_enviar.Free;
  end;

end;