表单提交问题
昨天提问按照erhan的提示重写了一部分,当时问解决,可是第二天在其它电脑上试验又出现原来的问题,无法提交表单,提交后返回的页面依然是提交前的页面
procedure TForm1.btn1Click(Sender: TObject);var ss:Tstringlist; mstr: string;begin idhtp1.HandleRedirects := true; SS := Tstringlist.Create; SS.Add('nickname=yyyyyyy'); ss.Add('birthdayYear=1980'); ss.Add('birthdayMonth=1'); ss.Add('birthdayDay=1'); ss.Add('birthdayHour=19'); ss.Add('birthdayMin=30'); ss.Add('place1=北京市'); ss.Add('place2=北京市'); ss.Add('recom='); mstr := idhtp1.Post('http://www.go108.com.cn/unit007/item00209/result.php',ss); mmo1.Lines.Add(mstr); ss.Destroy;end;