Problem mit MSXML Httprequest.send

[TigerLilly]

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!

[TigerLilly]

Ergänzung: Das ist sowohl auf meiner Entwicklungsmaschine so (XP) , als auch beim Kunden (Win 10).

Und eben auf einem Win 8 Rechner getestet, da funktioniert das. Muss wohl was mit der MSXML.DLL zu tun haben.

[TigerLilly]

Code:

CLASS_XMLHTTPRequest: TGUID = '{ED8C108E-4349-11D2-91A4-00C04F7969E8}';
...
class function CoXMLHTTPRequest.Create: IXMLHttpRequest;
begin
  Result := CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
end;

Die Registry sagt dazu: msxml3.dll. Auf dem Entwicklungsrechner v3 SP10 (da geht es nicht).
Auf dem Testrechner v3 SP11 (da geht es).

Mal sehen, ob es für die v3 ein SP 11 zum downloaden gibt.

Aber die Frage ist: Warum funktioniert das auf meinem Entwicklungsrechner nicht mehr?

[TigerLilly]

Das liegt wohl wirklich an der Version. Hmm - weiß jemand, wie man die MSXML3.dll updaten kann?

[KodeZwerg]

Nur ein Versuch:
XMLHTTPRequest.send(''); mit XMLHTTPRequest.send(); ersetzen. Was passiert?

[mkinzler]

Zitat von TigerLilly:

Das liegt wohl wirklich an der Version. Hmm - weiß jemand, wie man die MSXML3.dll updaten kann?

https://support.microsoft.com/de-de/...msxml-versions

[TigerLilly]

@KodeZwerg:
Das geht so nicht, weil:
procedure send(varBody: OleVariant); safecall;

Aber auch der Aufruf mit NULL als Parameter statt '' ändert nichts. Trotzdem danke.

@mkinzler:
Danke für den Link. MSXML3.DLL SP11 kommt da leider gar nicht vor + die weiterführenden Links landen im Nirwana.

Leider ist die Fehlermeldung 'Systemfehler: -2146697208' auch nicht recht hilfreich.

[Delphi.Narium]

Besagte MSXML3.DLL, gleicher Sytemfehler, aber vollkommen andere Ursache:

https://www.experts-exchange.com/que...-document.html
https://forums.iis.net/t/1237302.asp...rror+800c0008+
https://www.openkb.org/xml-download-...ce-has-failed/

Grobes Fazit: Der Server ist nicht erreichbar.

[KodeZwerg]

Gerade wegen dieser Zahl vermute ich dass das '' der Fehler ist, eventuel liegts ja auch an der Unit wo das "varBody: OleVariant" vorkommt (das die jetzige dll den typ nicht versteht)
Schau Dir mal den Export der DLL, da müsstest du den korrekten Aufruf entdecken können.

[Delphi.Narium]

Wenn das '' der Fehler ist, müsste es aber überall so sein und nicht nur bei einigen Rechnern.