Delphi XE에서 POST 요청

Question

주요 작업은 Delphi 프로그램을 통한 POST 자동 작업입니다. REST 클라이언트를 사용하여 사이트 및 두 헤더의 URL을 갖는 것으로 나타났습니다. * login_email * 및 * login_pass * 성공적으로 HTML 코드를 가져올 수 있으며 POST 인증 양식은 OK입니다. 로그인했습니다.

그러나, 이 델파이 코드를 작성했습니다 :

DataToSend := TStringList.Create; 
DataToSend.Add(''); 

IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; 
IdHTTP1.Request.CustomHeaders.AddValue('login_email','some_email'); 
IdHTTP1.Request.CustomHeaders.AddValue('login_pass','some_password'); 

Memo1.Lines.Add(idHTTP1.Post('http://url.com', DataToSend)); 

내 사용자 정의 헤더가 URL 인코딩되지 않았습니다.

나는 요청 헤더를 참조하십시오

Server: nginx/1.0.8 
Date: Sun, 01 Sep 2013 17:03:59 GMT 
Content-Type: text/html; charset=windows-1251 
Connection: close 
X-Powered-By: PHP/5.2.6-1+lenny16 
Vary: Accept-Encoding 

하지만 ontained HTML은 POST 요청이 처리되지 않은 형태로 전송 된있는 같은 페이지입니다.

내가 뭘 잘못하고 있니?

Answer 1

POST 요청 매개 변수에는 절대로 HTTP 헤더가 포함되지 않습니다. 시도해보십시오 :

DataToSend := TStringList.Create; 
DataToSend.Add('login_email=some_email'); 
DataToSend.Add('login_pass=some_password'); 
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; 

Memo1.Lines.Add(idHTTP1.Post('http://url.com', DataToSend));