hacer un POST http a una pagina, desde programa en delphi
Publicado: 27 Jun 2009, 08:07
hola foro com andan espero que bien bueno le digo lo que intento hacer quiero hacer un post http a una pagina o mas bien a un foro que esta hecho en vbulletin, bueno hasta el momento me he loguedo con mi programa corectamente pero cuando intento enviarle la informacion me devuelbe la misma pagina a la que intento hacer el post no se que esta pasando, eston son los datos que tengo que enviarle por el post a la pagina
de esta forma me logueo e intento enviar la informacion pero no se que esta pasando, el login esta perfecto el problema es al enviar la informacion
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;