Procedure TForm1. Button1Click (Sender: TObject); Var PostList: TStrings; Response: TStringStream;
The begin. Response:=TStringStream. Create ("); PostList:=TStringList. Create; Try IdHTTP1. Request. UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon) '; PostList. Add (' id=admin); PostList. Add (ps='1'); IdHTTP1. Post (' http://www.zhezhisd.cn/admin_in.asp ', postList, Response); The finally Memo1. Lines. Text:=Response. DataString; The Response. Free; PostList. Free; end;
end; I write so that it can be: IdHTTP1. Post (' http://www.zhezhisd.cn/admin_in.asp/? id=admin& Ps=1 ', postList, Response); And like the above submission is not successful, could you tell me why? The post of the second parameter is not used to submit some parameters?
CodePudding user response:
Behind the parameters of the string is id=admin & amp; ps=1, when you Add parameters this & amp; What is missing?