Consumir API - Delphi XE
Boa Tarde Pessoal!
Se puderem me orientar, preciso consumir uma API (segue documentação... https://api.tudoentregue.com.br/Documentacao/index.html)
Quanto à geração dos arquivo no formato Json, eu já consegui entender.
Porém, já tentei de várias formas e não consigo fechar comunicação com web service para Post do arquivo.
Vi na documentação que tem um "AppKey" e um "RequesterKey". As duas chaves eu possuo mas não tenho ideia de onde as defino.
Estou utilizando IDHTTP, mas seria interessante que o envio fosse através de HTTPS.
Vejam como estou fazendo:
Alguém poderia me dar um exemplo de como enviar os arquivos se possível em HTTPS?
Desde já agradeço!
Daniel
Se puderem me orientar, preciso consumir uma API (segue documentação... https://api.tudoentregue.com.br/Documentacao/index.html)
Quanto à geração dos arquivo no formato Json, eu já consegui entender.
Porém, já tentei de várias formas e não consigo fechar comunicação com web service para Post do arquivo.
Vi na documentação que tem um "AppKey" e um "RequesterKey". As duas chaves eu possuo mas não tenho ideia de onde as defino.
securityDefinitions": {
"AppKey": {
"type": "apiKey",
"in": "header",
"name": "AppKey",
"description": "Identificador do software Homologado junto à ActiveCorp para integrar dados ao TudoEntregue."
},
"RequesterKey": {
"type": "apiKey",
"in": "header",
"name": "RequesterKey",
"description": "Identificador único do Motorista/Cliente junto ao TudoEntregue."Estou utilizando IDHTTP, mas seria interessante que o envio fosse através de HTTPS.
Vejam como estou fazendo:
var code : Integer;
sResponse : String;
Json : String;
JsontoSend : TStringStream;
begin
Json := ''{"PhoneCountry": "+55", "PhoneNumber": "19999999999", "Name": "Daniel", "IMEI": "", "DeviceKey": "", "DeviceId": "",'';
Json := Json +''"DeviceType": "MarcaModelo", "OSName": "Android", "OSVersion": "7.0", "Email": "d2m.pavan@gmail.com", "ZipCode": "13400000", "City": "Piracicaba", "State": "Sao Paulo", "Enable": false}'';
JsonToSend := TStringStream.Create(utf8Encode(Json));
try
IdHTTP1.Request.Clear;
IdHTTP1.Request.CharSet := ''UTF-8'';
IdHTTP1.Request.Method := ''POST'';
IdHTTP1.Request.ContentType := ''application/json'';
IdHTTP1.Response.ContentType := ''applicattion/json'';
IdHTTP1.Response.CharSet := ''UTF-8'';
try
sResponse := IdHTTP1.Post(''http://api.tudoentregue.com.br/v1/drivers'',JsontoSend);
except
on E:EIdHTTPProtocolException do
begin
Memo1.Lines.Clear;
Memo1.Lines.Add(''Error on Request: '' + #13+#10 + e.Message);
exit;
end;
end;
Memo1.Lines.Clear;
Memo1.Lines.Add(sResponse);
finally
JsontoSend.Free();
end;
end;Alguém poderia me dar um exemplo de como enviar os arquivos se possível em HTTPS?
Desde já agradeço!
Daniel
Daniel Pavan
Curtidas 0