You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
139 lines
5.2 KiB
139 lines
5.2 KiB
/***************************************************************************
|
|
Copyright:
|
|
(C) 2002 by George Russell <george.russell@clara.net>
|
|
(C) 2003-2004 by Olaf Schmidt <ojschmidt@kde.org>
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
#include <khtml_part.h> // this plugin applies to a khtml part
|
|
#include <dom/html_document.h>
|
|
#include <dom/html_element.h>
|
|
#include <dom/dom_string.h>
|
|
#include <kdebug.h>
|
|
#include "khtmlkttsd.h"
|
|
#include <kaction.h>
|
|
#include <kgenericfactory.h>
|
|
#include <kiconloader.h>
|
|
#include <tqmessagebox.h>
|
|
#include <klocale.h>
|
|
#include <tqstring.h>
|
|
#include <tqtimer.h>
|
|
#include <kspeech.h>
|
|
#include <tqbuffer.h>
|
|
|
|
#include <kapplication.h>
|
|
#include <dcopclient.h>
|
|
#include <ktrader.h>
|
|
|
|
KHTMLPluginKTTSD::KHTMLPluginKTTSD( TQObject* parent, const char* name, const TQStringList& )
|
|
: Plugin( parent, name )
|
|
{
|
|
// If KTTSD is not installed, hide action.
|
|
KTrader::OfferList offers = KTrader::self()->query("DCOP/Text-to-Speech", "Name == 'KTTSD'");
|
|
if (offers.count() > 0)
|
|
{
|
|
(void) new KAction( i18n("&Speak Text"),
|
|
"kttsd", 0,
|
|
this, TQT_SLOT(slotReadOut()),
|
|
actionCollection(), "tools_kttsd" );
|
|
}
|
|
else
|
|
kdDebug() << "KHTMLPLuginKTTSD::KHTMLPluginKTTSD: KTrader did not find KTTSD." << endl;
|
|
}
|
|
|
|
KHTMLPluginKTTSD::~KHTMLPluginKTTSD()
|
|
{
|
|
}
|
|
|
|
void KHTMLPluginKTTSD::slotReadOut()
|
|
{
|
|
// The parent is assumed to be a KHTMLPart
|
|
if ( !parent()->inherits("KHTMLPart") )
|
|
TQMessageBox::warning( 0, i18n( "Cannot Read source" ),
|
|
i18n( "You cannot read anything except web pages with\n"
|
|
"this plugin, sorry." ));
|
|
else
|
|
{
|
|
// If KTTSD not running, start it.
|
|
DCOPClient *client = kapp->dcopClient();
|
|
if (!client->isApplicationRegistered("kttsd"))
|
|
{
|
|
TQString error;
|
|
if (kapp->startServiceByDesktopName("kttsd", TQStringList(), &error))
|
|
TQMessageBox::warning(0, i18n( "Starting KTTSD Failed"), error );
|
|
}
|
|
|
|
// Find out if KTTSD supports xhtml (rich speak).
|
|
TQByteArray data;
|
|
TQBuffer dataBuf(data);
|
|
TQDataStream arg;
|
|
dataBuf.open(IO_WriteOnly);
|
|
arg.setDevice(&dataBuf);
|
|
arg << "" << KSpeech::mtHtml;
|
|
TQCString replyType;
|
|
TQByteArray replyData;
|
|
bool supportsXhtml = false;
|
|
if ( !client->call("kttsd", "KSpeech", "supportsMarkup(TQString,uint)",
|
|
data, replyType, replyData, true) )
|
|
TQMessageBox::warning( 0, i18n( "DCOP Call Failed" ),
|
|
i18n( "The DCOP call supportsMarkup failed." ));
|
|
else
|
|
{
|
|
TQDataStream reply(replyData, IO_ReadOnly);
|
|
reply >> supportsXhtml;
|
|
}
|
|
|
|
KHTMLPart *part = (KHTMLPart *) parent();
|
|
|
|
TQString query;
|
|
if (supportsXhtml)
|
|
{
|
|
kdDebug() << "KTTS claims to support rich speak (XHTML to SSML)." << endl;
|
|
if (part->hasSelection())
|
|
query = part->selectedTextAsHTML();
|
|
else
|
|
{
|
|
// TODO: Fooling around with the selection probably has unwanted
|
|
// side effects, but until a method is supplied to get valid xhtml
|
|
// from entire document..
|
|
// query = part->document().toString().string();
|
|
part->selectAll();
|
|
query = part->selectedTextAsHTML();
|
|
// Restore no selection.
|
|
part->setSelection(part->document().createRange());
|
|
}
|
|
} else {
|
|
if (part->hasSelection())
|
|
query = part->selectedText();
|
|
else
|
|
query = part->htmlDocument().body().innerText().string();
|
|
}
|
|
// kdDebug() << "KHTMLPluginKTTSD::slotReadOut: query = " << query << endl;
|
|
|
|
dataBuf.at(0); // reset data
|
|
arg << query << "";
|
|
if ( !client->call("kttsd", "KSpeech", "setText(TQString,TQString)",
|
|
data, replyType, replyData, true) )
|
|
TQMessageBox::warning( 0, i18n( "DCOP Call Failed" ),
|
|
i18n( "The DCOP call setText failed." ));
|
|
dataBuf.at(0);
|
|
arg << 0;
|
|
if ( !client->call("kttsd", "KSpeech", "startText(uint)",
|
|
data, replyType, replyData, true) )
|
|
TQMessageBox::warning( 0, i18n( "DCOP Call Failed" ),
|
|
i18n( "The DCOP call startText failed." ));
|
|
}
|
|
}
|
|
|
|
K_EXPORT_COMPONENT_FACTORY( libkhtmlkttsdplugin, KGenericFactory<KHTMLPluginKTTSD>("khtmlkttsd") )
|
|
|
|
#include "khtmlkttsd.moc"
|