Функция перевода текста с различных языков

Функция осуществляет перевод заданного текста на нужный язык с помощью on-line сервиса Google Translate:

// объект Internet Explorer
Translation = ""
FreeException()
ExceptionsOff()
  objIE = CreateObject("InternetExplorer.Application")
  objIE.Visible = 0
  objIE.Silent = 0
  
  URL = 'http://translate.google.ru?hl=ru&layout=1&sl='&SourceLanguage&"&tl="&DestLanguage&"&q="& Replace(Message; " "; "+")
  objIE.Navigate(URL)
  
  while (objIE.readyState<4)  
    // Ждем пока загрузится
  endwhile
  
  Translation = objIE.Document.getElementById('gtrans').value
  objIE.Quit()
ExceptionsOn()
if ExceptionExists()
  Translation = "Ошибка!"
endif
GoogleTranslate = Translation

Пример использования:
Tr = GoogleTranslate("Hello, how are you?"; "en"; "ru")
/* Tr = Привет, как поживаете? */

Это был пример использования функции, можно пользоваться еще другим вариантом, который можно использовать в справочниках. Алгоритм таков:
  1. генерируется HTML-страничка,
  2. сохраняется во временную папку,
  3. подгружается в компонент WebBrowser на форме карточки



Код можно использовать в вычисления кнопок карточек справочников или электронных документов

Ссылка на функцию:

GoogleTranslate.7z (6,21 Кб)