Das ist eine Legacy-Anwendung mit Delphi 2006. Sie greift auf die MS Azure Translator
API zu. Das hat seit gut 1 Jahr problemlos funktioniert + jetzt nicht mehr.
Es geht um diesen Code:
Code:
var
XMLHTTPRequest: IXMLHTTPRequest;
XMLDOMDocument: IXMLDOMDocument;
begin
try
XMLHTTPRequest := CreateOleObject('MSXML2.XMLHTTP') as IXMLHTTPRequest;
if (sActiveToken = '') or (Now - dtTokenDate >= n10min) then begin
dtTokenDate := Now;
XMLHTTPRequest.Open('POST', URIToken, False, '', '');
XMLHTTPRequest.setRequestHeader('Ocp-Apim-Subscription-Key', SubscriptionKey);
XMLHTTPRequest.send('');
if (XMLHTTPRequest.readyState = COMPLETED) and (XMLHTTPRequest.status = OK) then
begin
sActiveToken := XMLHTTPRequest.responseText;
end else begin
sActiveToken := '';
end;
end;
Uri := UriTranslate + '?appid=Bearer%20' + sActiveToken + '&text=' +
sText + '&from=' + sFrom + '&to=' + sTo;
XMLHTTPRequest.Open('GET',
URI, False, '', '');
XMLHTTPRequest.send('');
Open wird ein Token angefordert, der ist immer 10 Minuten gültig. Das funktioniert. Unten wird mit dem Token eine Abfrage-
URL erzeugt. Das OPEN funktioniert. Beim SEND wird eine
Exception geworfen mit "'Systemfehler: -2146697208'". Das SEND ist eine Methode aus der
MSXML.
Hat jemand eine Ahnung, was da schief gehen könnte?
Danke für Eure Tipps!