var
IdHTTP: TIdHTTP;
Params: TStrings;
t:TStringStream;
begin
idHTTP:= TidHTTp.create(self);
idHTTP.HandleRedirects := True;
Params := TStringList.Create;
t:=TStringStream.Create('');
try
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
Params.Clear;
Params.Add('name='+edtname.Text);
Params.Add('nickname='+edtnickname.Text);
Params.Add('tel='+edttel.Text);
Params.Add('post='+edtpost.Text);
Params.Add('mail='+edtmail.Text);
Params.Add('refer='+edtrefer.Text);
Params.Add('title='+edttitle.Text);
Params.Add('content='+content.Lines.Text);
Params.Add('kind=1');
try
IdHTTP.Request.Referer:='//http://www.xmhouse.com/liuyuan/mainlytj122.asp?kind=1';
IdHttp.Post('http://www.xmhouse.com/liuyuan/addsave.asp',Params, t);
except
showmessage('error');
exit;
end;
finally
IdHTTP.Free;
Params.Free;
t.Free;
end;
end;
IdHTTP: TIdHTTP;
Params: TStrings;
t:TStringStream;
begin
idHTTP:= TidHTTp.create(self);
idHTTP.HandleRedirects := True;
Params := TStringList.Create;
t:=TStringStream.Create('');
try
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
Params.Clear;
Params.Add('name='+edtname.Text);
Params.Add('nickname='+edtnickname.Text);
Params.Add('tel='+edttel.Text);
Params.Add('post='+edtpost.Text);
Params.Add('mail='+edtmail.Text);
Params.Add('refer='+edtrefer.Text);
Params.Add('title='+edttitle.Text);
Params.Add('content='+content.Lines.Text);
Params.Add('kind=1');
try
IdHTTP.Request.Referer:='//http://www.xmhouse.com/liuyuan/mainlytj122.asp?kind=1';
IdHttp.Post('http://www.xmhouse.com/liuyuan/addsave.asp',Params, t);
except
showmessage('error');
exit;
end;
finally
IdHTTP.Free;
Params.Free;
t.Free;
end;
end;
有可能是你提交的内容不对。