用idHttp的Post方法递交数据，但有个编码问题请教！谢谢

Question

不行。刚才我就是用&来代替&结果后面的字符就没了================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 
★  多种帖子实现界面。 
★  保存帖子到本地[html格式]
★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子
★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。
    可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net

Answer 1

我现在就是用的&
回车换行用的不知道还有没有其他要替换的。================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 
★  多种帖子实现界面。 
★  保存帖子到本地[html格式]
★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子
★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。
    可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar

Answer 2

对字符串部分进行编码，例如：
ID=' + Encode(UserIDEdit.Text) +
                   '&REMITE=' + Encode(EMailEdit.Text) 编码的函数如下：function Encode(const msg : String) : String;
var
    I : Integer;
begin
    Result := '';
    for I := 1 to Length(msg) do begin
        if msg[I] = ' ' then
            Result := Result + '+'
        else if msg[I] in ['a'..'z', 'A'..'Z', '0'..'9'] then
            Result := Result + msg[I]
        else
            Result := Result + '%' + IntToHex(ord(msg[I]), 2);
    end;
end;