Dim content As String = ""
If http.GetData(apiurl, headers, content) Then
Dim serializer As New DataContractJsonSerializer(GetType(TranslateResponse))
- Dim res As TranslateResponse = CreateDataFromJson(Of TranslateResponse)(content)
+ Dim res As TranslateResponse
+
+ Try
+ res = CreateDataFromJson(Of TranslateResponse)(content)
+ Catch ex As Exception
+ ErrMsg = "Err:Invalid JSON"
+ Return False
+ End Try
If res.ResponseData Is Nothing Then
ErrMsg = "Err:" + res.ResponseDetails
Dim content As String = ""
If http.GetData(apiurl, headers, content) Then
Dim serializer As New DataContractJsonSerializer(GetType(LanguageDetectResponse))
- Dim res As LanguageDetectResponse = CreateDataFromJson(Of LanguageDetectResponse)(content)
- Return res.ResponseData.Language
+ Try
+ Dim res As LanguageDetectResponse = CreateDataFromJson(Of LanguageDetectResponse)(content)
+ Return res.ResponseData.Language
+ Catch ex As Exception
+ Return ""
+ End Try
End If
Return ""
End Function
If (New HttpVarious).GetData(apiurl, Nothing, src, 0, args.errmsg, GetUserAgentString()) Then
Dim sb As New StringBuilder
Dim serializer As New DataContractJsonSerializer(GetType(PicPlzDataModel.ResultData))
- Dim res As PicPlzDataModel.ResultData = CreateDataFromJson(Of PicPlzDataModel.ResultData)(src)
+ Dim res As PicPlzDataModel.ResultData
+
+ Try
+ res = CreateDataFromJson(Of PicPlzDataModel.ResultData)(src)
+ Catch ex As Exception
+ Return False
+ End Try
If res.Result = "ok" Then
Try