Código
Vamos utilizar o Babylon para criar um tradutor inglês portugues 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:
}
webBrowser1..Navigate('http://info.babylon.com/cgi-bin/info.cgi?word=' + edit1.Text + '&lang=5&type=hp&layout=combo.html&n=10&list=');
{
Basta executar o projeto, digitar uma palavra em inglês no edit1 e depois clicar em traduzir. Como estaremos utilizando o babylon como motor de tradução você deve estar CONECTADO A INTERNET para essa dica funcionar.
Abraços
Renato
}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009