GoogleTranslateAPI и YandexTranslateAPI

[TUberwer]

Хотел спросить у raxp'a насчет его двух библиотек GoogleTranslateAPI и YandexTranslateAPI.
1) На вашем сайте про библиотеку YandexTranslateAPI.dll написано, что в этой библиотеке есть функция озвучивания переведенного текста. В демке этого нету.. Ну как бы я значение не менял, все равно озвучки нету, в описании написано что она не задействована, ее как-то можно "задействовать"?
2) Можно ли использовать в одной программе сразу две dll'ки? ведь чтобы ними воспользоваться, запросы одинаковые... А нужно сделать например по выбору(например так: создаем глобальную переменную integer, если ее значение равно 0, то используется библиотека GoogleTranslateAPI, если значение равно 1, то используется библиотека YandexTranslateAPI).
Я думал может можно как-то выгружать и подгружать библиотеки? например GoogleTranslateAPI выгружаю, YandexTranslateAPI подгружаю, и наоборот.. Или может еще способы есть?

[raxp]

На вашем сайте про библиотеку YandexTranslateAPI.dll написано, что в этой библиотеке есть функция озвучивания переведенного текста.

есть.

В демке этого нету.. Ну как бы я значение не менял, все равно озвучки нету

в демке нет. Озвучивание есть, можете установить флаг в true.

Можно ли использовать в одной программе сразу две dll'ки?

никто не запрещает.

ведь чтобы ними воспользоваться, запросы одинаковые

да, это сделано специально для приложений двухуровневой архитектуры.

Есть у меня автопереводчик текста под курсором в браузере, в даташитах PDF, из буфера обмена с автоопределением исходного языка. В случае неработоспособности одного сервиса, DLL можно просто подменить другой. Что и случилось несколько месяцев назад с сервисом YANDEX, когда они сменили API ver.1.0 на ver.1.5 JSON. Но ситуацию поправил и теперь обе функционируют.

p.s.: у YANDEX также есть свой спич-API для распознавания речи, но он доступен для андроид- и винфоне- платформ, API же для HTTP запросов они предоставляют после регистрации ограниченному числу разработчиков с октября-ноября 2013-го. Пока не хочу привязываться, ибо сыро и можно использовать только для себя, гугл вполне устраивает.

[TUberwer]

Ну смотрите, вот я в той же демке создал отдельную кнопку, и написал ей такой код, озвучки нету.. Брандмауэр и антивирусы оффнул. Озвучивание не происходит..

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
begin
translate('привет, да',
                            'en',
                            'ru',
                            '',
                            True);
end; 


Тоже самое делал и с кнопкой "Перевести, которая уже есть в демке сразу. Текстово переводит, но озвучки нету, хоть и поставил последний аргумент на True..

[raxp]

translate('привет, да', 
                            'en', 
                            'ru', 
                            'ja-file.mp3', 
                            True);

имя файлу забыли дать, этот параметр у вас пустой остался. Все работает, озвучивает.

Читаем:

В принципе, параметр filename можно считать рудиментом, но он оставлен, чтобы пользователь сам мог задавать путь для сохранения файла. По-умолчанию, без указания каталога, а просто имени - файл создается рядом с либой. Если имя не задавать, то и сохранять не во что.

Еще можно без программирования прямо в блокноте и сохранить как VBS:

' регистрируем COM объект DynamicWrapperX в тихом режиме
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("regsvr32.exe dynwrapx.dll /s"),3, true

Set Wrap = CreateObject("DynamicWrapperX")
Wrap.Register "YandexTranslateAPI.dll", "translate", "i=ssssc", "f=s", "r=s"
MsgBox(Wrap.translate("The British Museum has one of the largest libraries in the world. Hello", "ru", "auto", "tts.mp3", 1))

[TUberwer]

окей, помогло. Вот насчет этого не очень понял.

да, это сделано специально для приложений двухуровневой архитектуры.

Я так и не понял как мне воспользоваться определенной библиотекой в определенной ситуации..

[raxp]

...понял вас, перекачайте архив с YandexTranslateAPI.DLL.

Использовать можно так (рудимент убран):

var  translate:function(text,                // исходный текст для перевода
                        toLang,              // направление перевода en/ru
                        myLang: pansichar;   // исходный язык текста
                        play: boolean        // флаг аудио-воспроизведения
                        ): pansichar;        // текст после перевода
                        stdcall;
     LibHandle: THandle;

function LinkProc(ProcName: string):Pointer;
begin
  result:= GetProcAddress(LibHandle,PChar(ProcName));
end;

// одно событие на две кнопки со своими TAG=0 и TAG=1 для различения нажатий
procedure TForm1.Button2Click(Sender: TObject);
begin
 memo1.Clear;

 if LibHandle <> 0 then FreeLibrary(LibHandle);
 if (sender as tbutton).tag = 0 then
  LibHandle:= LoadLibrary('YandexTranslateAPI.dll')
   else LibHandle:= LoadLibrary('GoogleTranslateAPI.dll');

 if LibHandle<>0 then begin
  translate:= LinkProc('translate');

  memo1.Lines.Add(translate(memo2.Lines.GetText,
                            pansichar(tolang.Text),
                            pansichar(mylang.Text),
                            true));
 end
end;

[spamer]

Кстати, из интереса, Сергей, а разве Google не закрыл Translate API, его же вроде платным сделали?

[raxp]

...давно закрыл (в 2011 еще), но никто не мешает браузером притворяться с ограничением 100 тыс. символов в сутки

[raxp]

Пример совмещения двух гуглосервисов:

[vBoris]

Уважаемый raxp.
ссылка на архив