盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);
  const
  sPostUrl= 'http://www.iwpai.com/login/index.html';
var
  postcmd : TStringList;
  code:string;
  done: Boolean;
begin
  try
  idhttp1.CookieManager:=idcookiemanager1;
  postcmd := TStringList.Create;
  postcmd.Add('userID=' + Edit1.Text);
  postcmd.Add('userLoginPass=' + Edit2.Text);
  postcmd.Add('yzmTextBox=' + Edit3.Text);
  Memo1.Text :=IdHTTP1.Post(sPostUrl, postcmd);
  showmessage('OK');
  except
   showmessage('NO');
  end;
    code := (IdHTTP1.Get('http://www.iwpai.com/ucacc/index.html'));
    Memo1.Clear;
    Memo1.lines.Add(code);
  postcmd.Free;
end;

我这样登录后，get返回来的还是未登录成功，这是怎么回事？
----------------------------------------------
-

作者：

oloveuxyz (oloveuxyz)	★☆☆☆☆	-
	普通会员

2014/5/14 12:14:43

1楼：

可能是Cookie的问题
加一个CookieManager试试
----------------------------------------------
什么都没写~~~

作者：

pankangkang (aaaa)	★☆☆☆☆	-
	普通会员

2014/5/14 12:40:02

2楼：

你要根据登陆后返回的header 执行模拟cookie
参考以下代码
function TMaindlg.GetCookie: string;
var
  i:Integer;
  tmp,cookie:string;
begin
   for i := 0 to idhtp1.Response.RawHeaders.Count - 1 do
   begin
      tmp := idhtp1.Response.RawHeaders[i];
      if pos('set-cookie: ', LowerCase(tmp)) = 0 then Continue;
      tmp := Trim(Copy(tmp, Pos('Set-cookie: ', tmp) + Length('Set-cookie: '), Length(tmp)));
      tmp := Trim(Copy(tmp, 0, Pos(';', tmp) - 1));
      if cookie = '' then cookie := tmp else cookie := cookie + '; ' + tmp;
  end;
  Result := cookie;
end;

procedure TMaindlg.Setcookie;
var
   i: Integer;
   tmp, cookie: String;
begin
   cookie := GetCookie;
  if cookie <> '' then
  begin
    for i := 0 to idhtp1.Request.RawHeaders.Count - 1 do
    begin
      tmp := idhtp1.Request.RawHeaders[i];
      if Pos('cookie', LowerCase(tmp)) = 0 then Continue;
      idhtp1.Request.RawHeaders.Delete(i);
      Break;
    end;
    idhtp1.Request.RawHeaders.Add('cookie: ' + cookie);
    idhtp1.Request.CustomHeaders.Add('Cookie:' + cookie);
  end;
end;
----------------------------------------------
-

信息

登陆以后才能回复