none
Migrate to version 3 of the Translator Text API before April 30, 2019 RRS feed

תשובות

כל התגובות

  • Wie muss ich vorgehen, damit das API auf Version 3 läuft?

    Umstellen und ggfs. die notwendigen Anpassungen vornehmen.


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    יום שישי 05 אפריל 2019 10:56
  • wenn "umstellen" so einfach wäre

    Hallo Stefan

    kennst Du eine Anleitung, welche zeigt, wo ich die Umstellung machen muss?

    du musst wissen, dass ich azure Anfänger bin

    Danke zum Voraus

    Gruss Willy

    יום שישי 05 אפריל 2019 17:06
  • Hallo Willy,

    wenn wir auch nur ansatzweise wüssten, was Du wo und wie gemacht hast, könnte man dir evtl. auch sagen, was Du wo und wie umstellen musst.

    So wie hier ohne jeglichen Code, jegliche Hinweise über deine Art und Weise der Verwendung dieser API kann dir leider niemand helfen.

    Poste daher bitte die entsprechenden Details, dann schauen wir mal weiter.


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    יום שישי 05 אפריל 2019 17:12
  • Danke Stefan für Deine Bereitschaft.

    Ich habe verzweifelt versucht, im Dashboard von Azure das API (V2) zu finden, um es auf V3 zu migrieren.

    Aber nun vermute ich, dass ich "nur" meine Funktion in Excel anpassen muss.

    Stimmt das ?

    Gibt es bereits ein Codeschnippsel d.h. Funktion für V3 ?

    Mein Tool übersetzt zwischen Englisch und Deutsch und umgekehrt. Dazu verwende ich u.a. diese Funktion:


    Function MSHttpRequest(ByVal sRequest As String, ByVal sText As String) As String

       Dim sURL As String, sToken As String, strEncoded As String, bTrying As Boolean
       strEncoded = URLEncodeUTF8(sText, False, True) ' always encode as UTF-8
       sURL = "http://api.microsofttranslator.com/V2/Http.svc/" & sRequest & strEncoded
       bTrying = True
       Do
          'Sleep 1000 ' 1 sec pause if rate throttling needed.
          ' Also consider DoEvents in caller if many cells being translated in a loop
          sToken = GetAccessToken()
          Dim webRequest As Object ' late binding
          Set webRequest = CreateObject("MSXML2.XMLHTTP")
          'Dim webRequest As MSXML2.XMLHTTP60 ' early binding: Add reference in VBE to Microsoft XML, v6.0
          'Set webRequest = new MSXML2.XMLHTTP60
          webRequest.Open "GET", sURL, False
          webRequest.setRequestHeader "Authorization", "Bearer " & sToken
          webRequest.send
          MSHttpRequest = webRequest.responseText
          Set webRequest = Nothing

          If StrComp(Left$(MSHttpRequest, 8), "<string ", vbTextCompare) = 0 Then
             ' it worked, a string was returned, use StringFromXML() to extract it
             bTrying = False
             ' return the XML
          Else
             ' it failed, html returned (probably)
             Select Case ShowMsgBox(sText & vbLf & Left$(HtmlToText(MSHttpRequest), 1024), _
                   vbExclamation + vbRetryCancel, "Error")
             Case vbRetry
                ' keep trying
             Case vbCancel
                bTrying = False
                ' return the HTML.
             End Select
             If DEBUG_MODE Then Debug.Print MSHttpRequest: Stop ' to investigate and fix up
          End If
       Loop While bTrying
          '<html><body><h1>TranslateApiException</h1><p>Method: Translate()</p> _
             <p>Message: Cannot find an active Azure Market Place Translator Subscription associated with the request credentials.</p> _
             <code></code><p>message id=0824.V2_Rest.Translate.613D527C</p></body></html>
           'Could be rate limited. Retry the request.

          '<html><body><h1>Argument Exception</h1><p>Method: Translate()</p><p>Parameter: </p> _
             <p>Message: No bearer information found in the token</p>
          'means you did not supply a valid Access Token

          '<html><body><h1>Argument Exception</h1><p>Method: Translate()</p> _
             <p>Parameter: from</p><p>Message: 'from' must be a valid language&#xD; _
             Parameter name: from</p><code></code><p>message id=0650.V2_Rest.Translate.502DC8C6</p></body></html>

    End Function

    Was muss auch noch angepasst werden?

    Gruss Willy


                         
    יום שישי 05 אפריל 2019 18:48
  • Hallo Willy,

    die Dokumentation der Version 3 findest Du hier:

      https://docs.microsoft.com/de-de/azure/cognitive-services/translator/reference/v3-0-translate?tabs=curl

    Der größte Unterschied wird wohl sein, dass V2 auf XML und V3 auf JSON aufsetzt. Du musst also wohl doch einiges mehr umstellen.

    Was genau, kann ich dir nicht sagen, das müsstest Du dir anhand der Dokumentation selbst erarbeiten.


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    יום שישי 05 אפריל 2019 20:01
  • guten Morgen Stefan

    ich danke Dir für diesen Lösungsansatz und wünsche einen interessanten Tag

    Gruss

    Willy

    שבת 06 אפריל 2019 05:39