Google API в Delphi. Реализация AJAX Language API.

Раз нельзя использовать API Инструментов переводчика, то решал поработать с Google AJAX Language API, чтобы обеспечить минимальный набор функций по переводу текста с помощью Переводчика Google. В целом, компонент для Delphi получился небольшой (как и сам API), едсинственное, что пришлось использовать из не входящих в стандартный набор Delphi библиотек — это библиотеку SuperObject для работы с JSON, т.к. именно в этом формате (и только в нем) приходит ответ при работе с AJAX Language API. Так что, если хотите воспользоваться компонентом переводчика, то сначала придётся скачать последнюю версию SuperObject здесь.
Ну, а теперь, всё что касается непосредственно компонента.

1. Свойства компонента

У компонента Translator всего два свойства:

property SourceLang: TLanguageEnum read FSourceLang write FSourceLang;

Язык оригинала.

property DestLang: TLanguageEnum read FDestLang write FDestLang;

Язык на который необходимо перевести отрывок текста. При этом перечислитель TLanguageEnum содержит идентификаторы всех доступных в Переводчике Google языков. Однако следует отметить следующее обстоятельство, которое относися непосредственно к API — не все пармы языков SourceLang/DestLang поддерживаются. Если невозможно перевести текст с SourceLang на DestLang, то API вернет ошибку.
Если Вы не знаете на каком языке написан исходный екст, то в свойстве SourceLang можно указать значение Unknown — в этом случае Google попробует определить язык оригинала автоматически.

2. События компонента

OnTranslate: TOnTranslate;
type
  TOnTranslate = procedure(const SourceStr, TranslateStr: string; LangDetected: TLanguageEnum) of object;

Возникает после того как получен положительный ответ от сервера (с кодом 200). Возвращает следующие значения:
SourceStr — строка текста для перевода;
TranslateStr — переведенный текст;
LangDetected — язык оригинала. Удобно использовать, когда необходимо опеределить язык оригинала текста.

OnTranslateError: TOnTranslateError;
type
  TOnTranslateError = procedure(const Code: integer; Status: string) of object;

Возникает в случае, если во время перевода произошла какая-либо ошибка (в JSON-документе содержится код ответа отличный от 200). Возвращает следующие значение:
Code — код ошибки
Status — текст ошибки.

3. Методы компонента

function Translate(const SourceStr: string): string;

Основной метод компонента Delphi. Переводит строку SourceStr на язык, определенный в свойстве DestLang.

function GetLanguagesNames: TStringList;

Возвращает список всех доступных языков для перевода. Удобно использовать, когда необходимо заполнить ComboBox доступными языками.

function GetLangByName(const aName: string): TLanguageEnum;

Возвращает идентификатор языка по его названию. Например,

Translator.GetLangByName('Русский')

вернет значение lng_ru, которое можно в дальнейшем использовать в свойствах компонента.

4. Пример использования

Создадим небольшое приложение, как показано на рисунке:

В Edit будем записывать строку, в ComboBox’ах выбирать языки, с которыми нам необходимо работать, а в Memo выведем результат работы компонента. Напишем следующие обработчики событий у компонента Tanslator1:

procedure TForm6.Translator1Translate(const SourceStr, TranslateStr: string;
  LangDetected: TLanguageEnum);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Исходный текст '+SourceStr);
  Memo1.Lines.Add('Перевод '+TranslateStr);
end;
 
procedure TForm6.Translator1TranslateError(const Code: Integer; Status: string);
begin
  Memo1.Lines.Add('Ошибка '+IntToStr(Code)+' '+Status)
end;

На OnShow формы будем формировать списки ComboBox:

procedure TForm6.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Assign(Translator1.GetLanguagesNames);
  ComboBox2.Items.Assign(Translator1.GetLanguagesNames);
end;

При выборе языка в ComboBox’ах будем сразу передавать эти значения в свойства компонента Translator1:

procedure TForm6.ComboBox1Change(Sender: TObject);
begin
  Translator1.SourceLang:=Translator1.GetLangByName(ComboBox1.Items[ComboBox1.ItemIndex]);
end;
 
procedure TForm6.ComboBox2Change(Sender: TObject);
begin
  Translator1.DestLang:=Translator1.GetLangByName(ComboBox2.Items[ComboBox2.ItemIndex]);
end;

И, наконец, по нажатии на кнопку «Перевести» будем переводить текст из Edit:

procedure TForm6.Button1Click(Sender: TObject);
begin
  Translator1.Translate(Edit1.Text)
end;

Теперь запускаем приложение и, для проверки, переведем «Hello World» скажем…на персидский язык. Вот результат работы переводчика:
.

Скачать компонент можно со страницы загрузок нашего проекта на GitHub. Замечания, предложения, идеи по дальнейшему развитию компонента принимаются здесь.

Книжная полка

	Автор: Андрей Шкрыль Название: Разработка клиент-серверных приложений в Delphi Описание: Рассмотрены практические вопросы по разработке клиент-серверных приложений в среде Delphi 7 и Delphi 2005 с использованием СУБД MS SQL Server 2000, InterBase и Firebird. Приведена информация о теории построения реляционных баз данных и языке SQL. Освещены вопросы эксплуатации и администрирования СУБД.
	Автор: Антон Григорьев Название: О чем не пишут в книгах по Delphi Описание: Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP и др.