向cgi提交数据

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  lUrl: string;
  lParams: TStrings;
  lHtml: string;
begin
  lUrl := 'http://snixxx.co.uk/cgi-bin/mt-comments.cgi?entry_id=1302';
  lParams := TStringList.Create;
  try
    lParams.Add('author=dqxhyy');
    lParams.Add('[email protected]');
    lParams.Add('dqxhyydqxhyydqxhyydqxhyy');
    try
      lHtml := IdHttp1.Post(lUrl, lParams);
    except
      showmessage(lhtml);
    end;
  finally
    lParams.Free;
  end;
end;

Answer 1

// 剛剛試了, 要這樣
procedure TForm1.Button1Click(Sender: TObject);
var
  lUrl: string;
  lParams: TStrings;
  lHtml: string;
begin
  lUrl := 'http://snixxx.co.uk/cgi-bin/mt-comments.cgi';
  lParams := TStringList.Create;
  try
    lParams.Add('entry_id=1302');
    lParams.Add('author=dqxhyy');
    lParams.Add('[email protected]');
    lParams.Add('dqxhyydqxhyydqxhyydqxhyy');
    try
      lHtml := IdHttp1.Post(lUrl, lParams);
    except
      showmessage(lhtml);
    end;
    showmessage(lhtml);
  finally
    lParams.Free;
  end;
end;

Answer 2

首先应该感谢你热心的帮助，但是我看了
http://snixxx.co.uk/cgi-bin/mt-comments.cgi这个网页，我需要的信息并没有提交上去，麻烦你再帮我看看

Answer 3

那就奇怪, 
因為lHtml := IdHttp1.Post(lUrl, lParams);
並沒有返回錯誤呀.

Answer 4

// 剛剛試了, 要這樣
procedure TForm1.Button1Click(Sender: TObject);
var
  lUrl: string;
  lParams: TStrings;
  lHtml: string;
begin
  lUrl := 'http://snixxx.co.uk/cgi-bin/mt-comments.cgi';
  lParams := TStringList.Create;
  try
    lParams.Add('entry_id=1302');
    lParams.Add('author=dqxhyy');
    lParams.Add('[email protected]');
    lParams.Add('text=dqxhyydqxhyydqxhyydqxhyy');
    try
      lHtml := IdHttp1.Post(lUrl, lParams);
    except
      showmessage(lhtml);
    end;
    showmessage(lhtml);
  finally
    lParams.Free;
  end;
end;你把返回的lhtml值存為一個html文件看看,  表明數據提交並沒有出錯呀.
會不會*.cgi程序會過濾這樣的提交呢.

Answer 5

konhon(优华) 大哥，继续啊！