From: Robin Christopherson <robin.christopherson_at_ntlworld.com>
Date: Mon, 14 May 2007 23:00:59 +0100

Thanks Brian - it does look like that. Hmmm.

----- Original Message -----
From: "Brian Wolven" <bcwolven_at_jhu.edu>
To: <rockbox_at_cool.haxx.se>
Sent: Monday, May 14, 2007 10:34 PM
Subject: Re: Rockbox on H340 and pregnant pauses


> Robin Christopherson wrote:
>> Thanks Brian but I think it's the latest version (although I can't see
>> how to display the version number). Should I just reinstall do you
>> think?
>
> I don't think that'd help unless you somehow got hold of a "modified"
> version. The first part of the file voiceUtils.vbs ought to look like the
> text below; if it doesn't, then it may be worth downloading the voicebox
> ZIP again and starting over.
>
>
> '---
> ' Set up SAPI for clip generation
> '---
>
> Public Sub VoiceInit()
>
> '---
>
> Set Shell = CreateObject("WScript.Shell")
> Set FSO = CreateObject("Scripting.FileSystemObject")
> dQ = Chr(34) ' double quote - preferable to writing """" to get
> "
> sP = Chr(32) ' space character
> ScriptDir = FSO.GetFile(Wscript.ScriptFullName).ParentFolder
>
> Set Log_file = FSO.CreateTextFile(ScriptDir&"\voiceBox.log")
> IniFile = ScriptDir&"\voiceBox.ini"
>
> '---
>
> On Error Resume Next ' skip to next line on error
>
> Set spkr = WSCript.CreateObject("SAPI.SpVoice")
>
> If Err.Number <> 0 Then
>
> MsgBox "You do not have Microsoft Speech installed."
>
> Err.clear
> Log_file.Close
> WScript.Quit
>
> End If
>
> '--- Attempt to load voice.
>
> Set spkr.Voice = spkr.GetVoices("Language=409").Item(0)
>
> If Err.Number <> 0 Then
>
> MsgBox "You do not seem to have a voice installed. Exiting."
>
> Err.clear
> Log_file.Close
> Wscript.Quit
>
> End If
>
> On Error GoTo 0 ' reset error handling
> Err.clear ' in case we have more code, we clear the current error
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition. Version: 7.5.467 / Virus Database:
> 269.7.0/804 - Release Date: 14/05/2007 16:46
>
Received on 2007-05-15