Configurar Tidhttp

[Benjamim Mendes Junior]

Ola a todos!

Estou precisando reproduzir em Delphi uma função implementada em Python. A função faz um Get em uma url especifica, eu sei que em Delphi eu deveria usar o componente TIdHTTP, mas não estou conseguindo configura-lo da forma correta, segue a baixo o Código em Python, a parte que realmente preciso esta entre as duas linas comentadas:

def PingAPI(accessToken):

    print ""
    print "Ping API..."    
    print "Request [GET] /api/" + apiVersion + "/ping"
    result = False

    try:
        #INICIO DA PARTE EM QUE ESTOU REALMENTE EM DÚVIDA
        conn = httplib.HTTPSConnection(tvApiBaseUrl, tvApiPort)
        conn.connect()

        request = conn.putrequest('GET', '/api/' + apiVersion + '/ping')
    
        headers = {}
        headers['Authorization'] = 'Bearer ' + accessToken
        for k in headers:
            conn.putheader(k, headers[k])
        conn.endheaders()
    
        resp = conn.getresponse()
        statusStr = resp.reason
        statusCode = resp.status
        #FIM DA PARTE EM DUVIDA
        
        print statusCode, statusStr
        
        if (statusCode != 200):
            print "Unexpected response code. Received content was:"
            print resp.read()
            result = False
            return result

        jsonResp = json.loads(resp.read())
        tokenValue = jsonResp["token_valid"]

        if(tokenValue == True):
            print "Ping: Token is valid"
            result = True
        else:
            result = False

    except Exception, e:
        print "Request failed! The error was: ", e
        result = False

    return result

Obrigado.

[EMBarbosa]

https://stackoverflow.com/questions/301546/whats-the-simplest-way-to-call-http-get-url-using-delphi

[Régys Silveira]

Se for utilizar Indy para o get em urls seguras (HTTPS) precisa linkar o componente TIdHttp a um componente TIdSSLIOHandlerSocketOpenSSL que é quem vai fazer a parte de SSL do HTTPS

[Benjamim Mendes Junior]

Obrigado a todos, no final tudo que e precisava fazer era setar o IOHandler, montar o CustomHeaders e passar a URL completa

  IdHTTP1.IOHandler:= IdSSLIOHandlerSocketOpenSSL1;
  IdHTTP1.Request.CustomHeaders.AddValue('Authorization', 'Bearer 000000-11111111111111111111');
  XMLDocument1.XML.Text:= IdHTTP1.Get('https://webapi.teamviewer.com/api/v1/ping/');