(Simples)Criando um tradutor de Inglês (Útilidade )

[Ping~Of~Death 0]

Vamos utilizar o Babylon para criar um tradutor inglês/português em Delphi com apenas uma linha de código.

 

- Crie um novo projeto no Delphi.

 

- Coloque um TEdit, um TButton e um TWebBrowser (Paleta internet).

 

- No evento click do TButton coloque o seguinte código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Execute o projeto e digite uma palavra em inglês no Edit1 e depois clique no botão.

Como estaremos utilizando o babylon como motor de tradução você deve estar CONECTADO A INTERNET para essa dica funcionar.

Veja o resultado da tradução para a palavra Money:

 

money

s. dinheiro

Money

s."money", revista americana popular focalizada nos assuntos de finanças e economia

 

Abraços,

Créditos: Ping~Of~Death.

[NoSlake 56]

Conteúdo bem interessante...

Só poderia aprimorar a CODE para aparecer o resultado em "ShowMessage" ou em um *****...

Do jeito que está, carrega no WebBrowser1. Deixando mais diferente na leitura :lol:

 

Pode ser bem útil para quem quer montar um dicionario on-line Ingles>Português.

[C£rberus 1]

Tópico interessante, porém está a falta de créditos.

[Ping~Of~Death 0]

Brigadão ai Victor :yes:

 

 

C£rberus

Tópico interessante, porém está a falta de créditos.

 

 

Créditos adicionados au poster vlw por me lembra disso .