Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[TUTORIAL] Tradutor!


Niik
 Compartilhar

Posts Recomendados

E aew Galera ;D

Fikei um tempinho sem poistar pois estava um pouco acupado ;x

 

Mas agora estava passando aqui e vi um topico pedindo ajuda em relação à um Tradutor...

Então Lá Vai o Tuto!

 

Componentes Necessários:

~> 1 TEdit

~> 1 TButton

~> 1 TWebBrowser (Paleta internet)

 

Como fazer:

 

Irei Usar o google translater, por isso sempre que você usar deverá está conectado à internet. (Caso Contrário seria necessário criar um banco de dados... Tesno ;s)

 

1° - Adicione esses componentes na sua Form

2° - Organize da maneira que desejar (Dica: Coloque o TWebBrowser com um tamanho grande.)

3° - Dê dois cliques em cima da TButton e, entre o Begin e o end;, adicione o seguinto CODE

webBrowser1.Navigate('
É necessário se cadastrar para acessar o conteúdo.
+ edit1.Text + '%0A');
5° - Altere o nome do Edit1 e coloque algo do Tipo Inserir Palavra ou deixa em branco mesmo. E Altere o Nome do TButton para Traduzir

6° - Execute seu projeto, coloque a palavra no edit e clique em Traduzir.

 

Feito!

 

Obs: Você pode colocar esse code se caso queira colocar no servidor Babylon (site de Tradução)

webBrowser1.Navigate('
É necessário se cadastrar para acessar o conteúdo.
+ edit1.Text + '&lang=5&type=hp&layout=combo.html&n=10&list=');

Créditos:

~Niikx

ActiveDelphi.com

 

 

 

Link para o comentário
Compartilhar em outros sites

webBrowser1.Navigate('

É necessário se cadastrar para acessar o conteúdo.
+ edit1.Text + '&lang=5&type=hp&layout=combo.html&n=10&list=');

 

pode ser adaptado para melhorias futuras um combobox em &lang5, pra criar uma troca de tradução.

Link para o comentário
Compartilhar em outros sites

no edit não é necessário adicionar nada....

 

pois será o lugar onde a palavra a ser traduzida vai ser escrita!

 

 

webBrowser1.Navigate('
É necessário se cadastrar para acessar o conteúdo.
+ edit1.Text + '&lang=5&type=hp&layout=combo.html&n=10&list=');

 

pode ser adaptado para melhorias futuras um combobox em &lang5, pra criar uma troca de tradução.

 

Eu ia fazer isso... porém postei de um jeito mais simples para entenderem melhor! ;D

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.