Hallo,
ich habe ein großes/kleines Problem mit meiner Rest API Funktion.
Hierzu habe ich ein kleines TestProgramm geschrieben, das im ERP System über REST Api daten ändern soll.
Das funktioniert so weit auch sehr gut.
Jetzt habe ich die Bibliothek in mein größeres Projekt hinzugefügt und die REST API Bibliotheks komponente streikt.
Anbei der Code für den REST API aufruf:
Alle Links alle Login Daten sind die gleichen, jedoch beim
springt er raus, ohne eine Fehlermeldung!
Woran kann das liegen?
*Topic verschoben*
ich habe ein großes/kleines Problem mit meiner Rest API Funktion.
Hierzu habe ich ein kleines TestProgramm geschrieben, das im ERP System über REST Api daten ändern soll.
Das funktioniert so weit auch sehr gut.
Jetzt habe ich die Bibliothek in mein größeres Projekt hinzugefügt und die REST API Bibliotheks komponente streikt.
Anbei der Code für den REST API aufruf:
VB.NET-Quellcode
- Public Async Sub ChangeIFSVersion(Part_No As String, Contract_Side As String, IFS_EngChgLevel As String, ChangeVersion As IFS_Columns, IFS_Server As String, Sender As String, SaveTable As Boolean, CloseRevisionTable As Boolean, Optional ByVal ResponseMessegaBox As Boolean = False)
- Try
- Select Case IFS_Server
- Case "TEST"
- IFS_Server = LinkRestAPI_Test & "(PartNo='" & Part_No & "',Contract='" & Contract_Side & "',EngChgLevel='" & IFS_EngChgLevel & "')"
- Clear_Link = LinkRestAPI_Test
- WriteInSystem = "TEST"
- WriteInMainSystem = False
- Case "MAIN"
- IFS_Server = LinkRestAPI_Prod & "(PartNo='" & Part_No & "',Contract='" & Contract_Side & "',EngChgLevel='" & IFS_EngChgLevel & "')"
- Clear_Link = LinkRestAPI_Prod
- WriteInSystem = "MAIN"
- WriteInMainSystem = True
- End Select
- Dim client As HttpClient = New HttpClient()
- Dim serializer As JavaScriptSerializer = New JavaScriptSerializer()
- Dim ath As String = Convert.ToBase64String(System.Text.ASCIIEncoding.ASCII.GetBytes(IFSMain.IFSLoginName & ":" & IFSMain.IFSPW))
- Dim baseUri As Uri = New Uri(Clear_Link)
- client.BaseAddress = baseUri
- client.DefaultRequestHeaders.Clear()
- client.DefaultRequestHeaders.ConnectionClose = True
- client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Basic", ath)
- Dim serializedResult As String = GOKMAINFunction_JSONCompiler.CreateJSONFile(ChangeVersion)
- Dim RestContent As New Http.StringContent(serializedResult, Encoding.UTF8, "application/json")
- Dim method = "PATCH"
- Dim httpVerb = New HttpMethod(method)
- Dim httpRequestMessage = New HttpRequestMessage(httpVerb, IFS_Server) With {.Content = RestContent}
- Dim RestResponse As Http.HttpResponseMessage = Await client.SendAsync(httpRequestMessage) 'And dieser stelle springt er mir im größeren Programm raus
- IFSMain.GOKSettings.AddNewIFSRevisionEntry(Part_No, IFS_EngChgLevel, Contract_Side, "ChangeIFSVersion", Clear_Link, serializedResult, RestResponse.StatusCode.ToString, Sender, Me.WriteInSystem, WriteInMainSystem, SaveTable, CloseRevisionTable)
- RaiseEvent GetResponse(RestResponse, ResponseMessegaBox, "ChangeIFSVersion", Part_No, IFS_EngChgLevel)
- Catch ex As Exception
- Debug.Print("Fehler übetragung!!!")
- End Try
- End Sub
Alle Links alle Login Daten sind die gleichen, jedoch beim
Woran kann das liegen?
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()