請教各位前輩,小弟使用TIDHTTP GET的方法上傳一段字串會出現以下的問題 http/1.1 400 bad Request 的Exception 問題 var SendStringValue begin SendStringValue := 'http://127.0.0.1/aaa.asp?ID=test&Num=123 abc' Response := IdHTTP1.Get(SendStringValue); end; 整串資料直接在IE上執行是OK的 網頁設計者告知我需要做標準之URL Encoding,但不知要在那裏設定其屬性才算是標準之URL Encoding,而且我測試過只要不加上空白鍵就可以傳送沒有問題 謝謝各位前輩

試試:

var
  SendStringValue: string;
begin
  SendStringValue := IdURL1.URLEncode('http://127.0.0.1/aaa.asp?ID=test&Num=123 abc'); 
  Response := IdHTTP1.Get(SendStringValue);
end;

發表人 - hagar 於 2004/04/20 16:42:36

function urlencode(inSTR : string): string; var URLED_STR : string; i, xl: integer; begin URLED_STR := ''; for i := 1 to length(inSTR) do begin xl := ord(inSTR[i]); if (((xl >= 65) and (xl <= 90)) or ((xl >= 48) and (xl <= 57)) or ((xl >= 97) and (xl <= 122))) then URLED_STR := URLED_STR copy(inSTR,i,1) else if xl = 32 then begin URLED_STR := URLED_STR ' '; end else URLED_STR := URLED_STR '%' IntToHex (xl,2); end; Result := URLED_STR; end; 直接的解法 但須注意只需要針對 ? 後的參數做編碼 SendStringValue := 'http://127.0.0.1/aaa.asp?' Response := IdHTTP1.Get(SendStringValue urlencode('ID=test&Num=123 abc' ); _= 沒事就 winsock 一下 =_

謝謝前輩的指導,原來標準的URLEncode是這樣轉換的,我一直在查TIDHTTP的屬性及方法,原來方向是不正確的,非常感謝您

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.