idhttp post

Question

)W...........wappass.baidu.com......$
)W...........wappass.baidu.com.............. .....0......... ....%Y........^6...ns4..........^6...dns..........^6...ns3..........^6...ns2..........3n..=....s......3n....%..O......(.....&..a......3n...l..
发送
POST /wpass HTTP/1.1..
Content-Type: application/x-www-form-urlencoded..
Content-Length: 86..
Host: wappass.baidu.com..
Accept: text/html, */*..
User-Agent: NokiaN90-1/3.0545.5.1 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1.......
发送
ct=login&tpl=wapp&u=&retry=/wpass&username=ZZZZZ&password=ZZZZZ&save=0&from=&ssid=0
接收
HTTP/1.1 200 OK..
Date: Tue, 26 Aug 2008 10:58:41 GMT..
Cache-Control: max-age=0..
Set-Cookie: BDUSS=k2WsdfasgdgasdgadgVXpPcFsdfsfsdfsdfsQUFBJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOdfsdfsdfIZE; path=/; domain=.baidu.com..
Set-Cookie: WAPTIME=1219748322; expires=Sun, 23 Aug 2020 08:23:00 GMT; path=/; domain=.baidu.com..
Content-Type: text/vnd.wap.wml;charset=UTF-8..
Content-Length: 759..
Connection: close....
<?xml version="1.0" encoding="utf-8"?>.<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">.<!--STATUS OK-->.<wml>.<card title="............" onenterforward="/wpass?bd_page_type=0&amp;from=0&amp;ssid=e470218317c53ba97e8d6b6569454b97" onenterbackward="/wpass?bd_page_type=0&amp;from=0&amp;ssid=e470218317c53ba97e8d6b6569454b97">.<p>.............<br/>.<a href="/wpass?bd_page_type=0&amp;from=0&amp;ssid=e470218317c53ba97e8d6b6569454b97">.....................</a><br/>.<br/>.<a href="http://wapp.baidu.com/?from=0&amp;ssid=e470218317c53ba97e8d6b6569454b97">..................</a><br/>.<a href="http://wap.baidu.com/?from=0&amp;ssid=e470218317c53ba97e8d6b6569454b97">..................</a><br/>.&nbsp;.</p>.</card></wml>.

Answer 1

怎么用 delphi 的post 来发送上面的哪个 数据

Answer 2

ct=login&tpl=wapp&u=&retry=/wpass&username=用户名&password=密码&save=0&from=&ssid=0ct=login%26tpl%3Dwapp%26u%3D%26retry%3D%2Fwpass%26username%3D用户名%26password%3D密码%26save%3D0%26from%3D%26ssid%3D0为什么 idhttp 给我弄成了他

Answer 3

var
  S: TStringList;
  R: String;
  Http: Tidhttp;
Begin
  S := TStringList.Create;
  S.Add('ct=login');
  S.Add('tpl=wapp');
  S.Add('retry=/wpass');
  S.Add('username=ZZZZZ');
  S.Add('password=ZZZZZ');
  S.Add('save=0');
  S.Add('from=&ssid=0');
  
  Http := Tidhttp.Create(nil);
  Http.HandleRedirects := True;
  R := Http.Post('http://wappass.baidu.com/wpass', S);
  Http.Free;
  S.Free;
End;

Answer 4

var 
  S: TStringList; 
  R: String; 
  Http: Tidhttp; 
Begin 
  S := TStringList.Create; 
  S.Add('ct=login'); 
  S.Add('tpl=wapp'); 
  S.Add('retry=/wpass'); 
  S.Add('username=ZZZZZ'); 
  S.Add('password=ZZZZZ'); 
  S.Add('save=0'); 
  S.Add('ssid=0'); 
  
  Http := Tidhttp.Create(nil); 
  Http.HandleRedirects := True; 
  R := Http.Post('http://wappass.baidu.com/wpass', S); 
  Http.Free; 
  S.Free; 
End;

Answer 5

上面那样会在最后多出来个&怎么去掉

Answer 6

还有 怎么 获取 BDUSS=k2WsdfasgdgasdgadgVXpPcFsdfsfsdfsdfsQUFBJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOdfsdfsdfIZE; 这段

Answer 7

1.用TMemoryStream就不会多出&2.edit1.Text := idhttp1.Request.RawHeaders.Values['Set-Cookie'];

Answer 8

edit1.Text := idhttp1.Request.RawHeaders.Values['Set-Cookie']; 
为什么 没有显示

Answer 9

idhttp1.Request.RawHeaders.textContent-Type: application/x-www-form-urlencoded
Content-Length: 86
Host: wappass.baidu.com
Accept: text/html,*/*
User-Agent: NokiaN90-1/3.0545.5.1 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1
没有你那个 'Set-Cookie'