Ich beschäftige mich gerade mit dem Übersetzungsservice von MS. Bevor man den nutzen kann, muss man sich zunächst einen
Authorisationstoken holen. So weit, so gut. Ich wickle das Ganze derzeit über TIdHTTP ab, funktioniert auch im Prinzip. Nun zu meinem Problem:
Zitat:
A valid token can be used to make multiple calls to the Microsoft Translator APIs. However, an authentication token is only valid for 10 minutes. If your program makes requests to the Microsoft Translator
API over an extended period of time, then your program must request a new
access token at regular intervals (e.g. every 8 minutes).
Dies will ich eigentlich dadurch realisieren, dass ich mir nach jedem neuen Token die Zeit merke, wann er geholt wurde. Kommt nun ein neuer Aufruf "Übersetz mal", dann wird nachgesehen, von wann der letzte Token ist. Ist das mehr als 5 Minuten her, soll ein neuer gezogen und verwendet werden. Der Code dazu:
Delphi-Quellcode:
function TMSTranslator.GetNewAuthKey:
string;
const
API_URI = '
https://api.cognitive.microsoft.com/sts/v1.0/issueToken';
var
StringStream: TStringStream;
TokenHTTP: TIdHTTP;
begin
TokenHTTP := TIdHTTP.Create(
nil);
try
TokenHTTP.Request.ContentType := '
application/x-www-form-urlencoded';
TokenHTTP.HandleRedirects := True;
TokenHTTP.Request.CustomHeaders.FoldLines := false;
TokenHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
TokenHTTP.Request.CustomHeaders.Clear;
TokenHTTP.Request.CustomHeaders.AddValue('
Ocp-Apim-Subscription-Key',
FSubscriptionKey);
StringStream := TStringStream.Create('
', TEncoding.UTF8);
try
Result := TokenHTTP.Post(API_URI, StringStream);
FLastTokenRequested := GetTickCount;
finally
StringStream.Free;
end;
finally
TokenHTTP.Free;
end;
end;
Vergeht allerdings zu viel Zeit zwischen 2 Aufrufen, dann bekomme ich beim Post einen Fehler 10054 - Connection reset by peer. Beende ich das Programm und starte es neu, ist alles wieder in Butter. Im REST-Debugger passiert das lustigerweise nicht. Was mache ich falsch?