用Idhttp.post方法将客户端的文本提交给服务器的范例

 var
   strMsg:string;
   sParams: TStringStream;
begin
  sParams := TStringStream.create('');
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  try
    sParams.WriteString('参数1=结果&参数2=结果2') ;
    strMsg:=IdHTTP1.post('http://www.xxxxx.com/add-c.asp',sParams)  ;
    memo1.Text:=strmsg;
  finally
    sParams.Free ;
  end;
s := 'http://aaa.net/bbs/index.php';
  if CanGetIECookie(s, str) then
  begin
    CookieStr := 'Cookie: '   str;
    idHttp1.Request.CustomHeaders.Text := CookieStr;
  end else
  begin
    ShowMessage('没有发现本地Cookie，请从Web页面登陆一次。');
    Exit;
  end;
  s := 'http://aaa.net/bbs/forumdisplay.php';
  PostData := TStringList.Create;
  PostData.Add('fid=1');
  Memo1.Lines.Text := idHTTP1.Post(s, PostData);
  PostData.Free; 
var
  S:TStringList;
begin
  S := TStringList.Create;
  S.Add('user=', edtUser.text);
  S.Add('pass=', edtPass.text);
  try
    HTTP.Post('http://xxxxxxxx/xxx',  S);
  finally
    HTTP.Free;
  end;
end;