0

  

I use this code on a Firemonkey App in XE6 and it works fine.
Now I am trying to use it at work with XE8 for a new app, but I get e.Message = ‘Connection Timed Out’ with both error codes 10060 and 10038 and I simply can’t understand why? I tested inside the network and in my 3G connection.

try
{ conecta no servidor para procurar o documento }
Log.Lines.Add(‘Internet: Iniciando Protocolo’);
Cloud := TIdHTTP.Create(Self);
Log.Lines.Add(‘Internet: Tentando Conectar…’);
DocumentText := Cloud.Get(Format(‘http://alcantara.net.br:80/ristretto/index.php?ac=dl&&ln=%s&&lk=%s&&dn=%s&&dk=%s’,[LoginNX,LoginKX,DocumentNX,DocumentKX]));
Log.Lines.Add(‘Internet: Sucesso ao Conectar!’);
Cloud.Free;
NewDocument := (Length(DocumentText) = 7) and (LeftStr(DocumentText, 7) = ‘@newdoc’);
{ decodifica o documento e começa a edição }
lblStatus.FontColor := TAlphaColorRec.Black;
if NewDocument then
begin
lblStatus.Text := ‘Novo: ‘ + DocumentNS;
DocumentContent.Lines.Clear;
end
else
begin
lblStatus.Text := DocumentNS;
DocumentContent.Lines.Text := Alcantara.Whisper.SSCM.SSCMR(DocumentText, LoginNX+LoginKX, DocumentNX+DocumentKX);
end;
DocumentOpened := True;
finally
if not DocumentOpened then
Log.Lines.Add(‘Documento: Nenhum’)
else
if NewDocument then
Log.Lines.Add(‘Documento: Novo (Vazio)’)
else
Log.Lines.Add(‘Documento: ‘ + DocumentNS);
end;
except
on E:Exception do
begin
lblStatus.Text := E.Message;
Log.Lines.Add(‘Erro: ‘ + E.Message);
lblStatus.FontColor := TAlphaColorRec.Red;
end;
end;