Microsoft Cognitive Services - bei Abruf eines neuen Tokens Fehler 10054

[DeddyH]

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?

[Der schöne Günther]

Ich kenne mich mit Indy nur ziemlich oberflächlich aus, aber wenn du deine Anwendung neu startest ist auch dein

Delphi-Quellcode:

IdSSLIOHandlerSocketOpenSSL

neu. Der wird ja in

Delphi-Quellcode:

GetNewAuthKey()

immer recycled. Hat der irgendwelche Zustände die man zurücksetzen könnte?

[DeddyH]

Nicht, dass ich wüsste. Außerdem wird der ja auch für die eigentliche Übersetzung verwendet, es geht ja im Prinzip nur um die Nutzung von TLS. Ich kann ja morgen trotzdem mal sehen, ob es daran liegen könnte, Danke fürs Mitdenken.