TidHttp 및 XE3

Question

최근 델파이 2006에서 XE3으로 변환 된 프로그램이며 TidHttp에 문제가 있습니다. 이것은 '{'오류에서 처리 루틴으로보고 - 나는 오류 '제기 예외가 자료 64 문자열에 잘못된 문자'얻을

Result := ''; 
myCurrentTime := FormatDateTime('yyyymmddhhnnss',now); 

myParams := '<params>'; 
myParams := myParams + '<licence>' + '1234567890' + '</licence>'; 
myParams := myParams + '<activationcode>' + 'abcdef' + '</activationcode>'; 
myParams := myParams + '<devicename>' + 'aaa' + '</devicename>'; 
myParams := myParams + '<deviceid>' + 'bbb' + '</deviceid>'; 
myParams := myParams + '<devicetimestamp>' + myCurrentTime + '</devicetimestamp>'; 
myParams := myParams + psRequest; 
myParams := myParams + '</params>'; 

myRequestStream := nil; 
myResponseStream := nil; 
myHTTP := nil; 
myXMLDocument := nil; 

finished := false; 
myAttempts := cAttempts; 

while finished = false do 
begin 
try 
    myRequestStream := TMemoryStream.Create; 
    myResponseStream := TMemoryStream.Create; 
    myHTTP := TIdHTTP.Create; 
    myXMLDocument := TXMLDocument.Create(nil); 

    myParams := mEncoder.Encode(myParams); 

    myRequestStream.Write(myParams[1], Length(myParams)); 
    myRequestStream.Position := 0; 

    myHTTP.Request.Method := 'POST'; 
    myHTTP.ReadTimeout := piTimeoutSeconds * 1000; 
    myHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; 
    myHTTP.Request.ContentLength := myRequestStream.Size; 
    myHTTP.ProtocolVersion := pv1_1; 

    myHTTP.Post(psUrl, myRequestStream, myResponseStream); 

후 다음 : 여기에 코드입니다.

웹을 수색했지만 답변을 찾을 수 없습니다. 어떤 제안이라도 대단히 감사하겠습니다.

감사합니다.

스티브

Answer 1

요청 세부 정보의 절반 만 스트림에 저장합니다. Delphi 2009에서 string은 유니 코드 형식이되어 각 문자는 2 바이트를 차지합니다. Length은 문자를 측정하고 TStream.Write은 바이트 수를 나타냅니다.

쉬운 솔루션은 myParams을 AnsiString으로 변경하는 것입니다.