GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Procedure Translate Message with Google Translate
Procedure Translate Message with Google Translate
Iniciado por Boller, ago., 31 2021 3:24 PM - Sem resposta
Conecte-se…
Boller
#1
Membro registado
3.657 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 31 2021 - 3:24 PM
Procedure
Translate_Msg
(
s
Text
is ANSI string
,
s
Lang_Target
is string
)
s
Key
is string
=
"xxxxxxxxxxxxxxxxxxxxxxxxx"
// Chave do google Cloud
s
URL
is ANSI string
=
"https://translation.googleapis.com/language/translate/v2"
s
Param
is ANSI string
=
"?target="
+
s
Lang_Target
+
"&q="
+
s
Text
+
"&key="
+
s
Key
// Lista de idiomas: https://cloud.google.com/translate/docs/languages
// Translate
v
CallWS
is httpRequest
v
CallWS.Method
=
httpPost
v
CallWS.URL
=
s
URL
+
URLEncode
(
s
Param
)
ResponseWS
is restResponse
=
RESTSend
(
v
CallWS
)
//
//IF NOT Response_Verify(ResponseWS) THEN
//
RESULT False
//END
IF
ResponseWS
..
StatusCode
=
200
THEN
RESULT
ResponseWS.Content
// json
ELSE
RESULT
""
END
Procedure
Translate_msgX
(
LOCAL
TextoaTraduzir
is string UNICODE
,
IdiomaOrigem
is string
,
IdiomaDestino
is string
)
:
chaîne UNICODE
// Definicao dos Objetos REST
JSONRequest
is httpRequest
JSONReponse
is httpResponse
GOOGLE_KEY_TRANSLATE_API
is string
=
"xxxxxxxxxxxxxxxxxxxxxxxx"
JSONRequest.ContentType
=
typeMimeJSON
JSONRequest.URL
=
"https://translation.googleapis.com/language/translate/v2?key="
+
GOOGLE_KEY_TRANSLATE_API
JSONRequest.Content
= [
{"q":"%1",
"source":"%2",
"target":"%3",
"format":"text"
}
]
// Monta Conteudo
JSONRequest.Content
=
StringBuild
(
JSONRequest.Content
,
StringToUTF8
(
TextoaTraduzir
)
,
IdiomaOrigem
,
IdiomaDestino
)
JSONReponse
=
RESTSend
(
JSONRequest
)
IF
ErrorOccurred
THEN
Error
(
ErrorInfo
(
errFullDetails
)
)
RETURN
""
END
// Usei variant pq achei mais facil
let
v
=
JSONToVariant
(
JSONReponse.Content
)
// Usando este método é que o objeto v do tipo da variante deve conter
// toda a estrutura de árvore do objeto de retorno (que Windev reconstitui por si mesmo)
RETURN
""
+
v
.data.translations
[
1
]
.
translatedText
O macete esta na primeira linha
prezados bom dia
estou usando API google para traduzir etc
esta tudo ok
vem em Json com Unicode
o conteudo vem asim traduzido
{
"data"
:
{
"translations"
:
[ {
"translatedText"
:
"Charles Dickens levou uma vida muito ativa, sempre estabelecendo uma agenda cheia para si mesmo, a qual perseguiu com extrema energia. Al\u00e9m de trabalhar em seus romances, jornalismo semanal e leituras p\u00fablicas, ele produziu e apareceu em in\u00fameras produ\u00e7\u00f5es teatrais amadoras etc dist\u00e2ncias"
,
"detectedSourceLanguage"
:
"en"
} ] } }
ja usei utf8tostring etc etc e nao converte os caracteres acentos etc
onde estou errando
?
Resposta
StringToUTF8
(
…
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto