Bom dia Pessoal.
Segundo a Embarcadero o Delphi XE6 não é compatível com Windows XP.
Porém encontrei uma solução no fórum da embarcadero que resolve o problema.
http://qc.embarcadero.com/wc/qcmain.aspx?d=124627
No meu caso somente adicionei a pasta {Diretorio de Inspalação do Delphi XE6}/Source/Soap/ no meu LibraryPath editei o arquivo Soap.SoapHTTPTrans.pas substituindo o código:
{$IFDEF UNICODE}
HttpSendRequest(Request, nil, 0,
DatStr.Bytes, DatStr.Size);
{$ELSE}
HttpSendRequest(Request, nil, 0,
@DatStr.DataString[1],
Length(DatStr.DataString));
{$ENDIF}
RetVal := HandleWinInetError(GetLastError, Request, True);
Por:
{$IFDEF UNICODE}
WinInetResult := HttpSendRequest(Request, nil, 0,
DatStr.Bytes, DatStr.Size);
{$ELSE}
WinInetResult := HttpSendRequest(Request, nil, 0,
@DatStr.DataString[1],
Length(DatStr.DataString));
{$ENDIF}
if not WinInetResult then
RetVal := HandleWinInetError(GetLastError, Request, True);
Lembrando de Criar a variável local WinInetResul : Boolean;
Basta dar um Build e o executável volta a funcionar normalmente.
Esta solução foi postada pra Windows 7 com instalação Original (I.E. 9) mas no meu caso (Windows XP com IE 8) o sistema funcionou normalmente.
Se alguém quiser testar e compartilhar o resultado seria de grande ajuda.
Att,
Jonas