Jump to content

rullomare

uniGUI Subscriber
  • Posts

    131
  • Joined

  • Last visited

  • Days Won

    20

Posts posted by rullomare

  1. Hi, 

     

    simple TextToSpeech Unigui component(wrapper) of mespeak.js. 

                                     

    Voices are quite robotic but   "don't look a gift horse in the mouth" or "Noli equi dentes inspicere donati" .   

     


     


     

    I tried only the languages with which I have some familiarity; sorry !!

     

    supported languages :  

     

    ca       (Catalan)

    cs       (Czech)

    de       (German)

    el       (Greek)

    en/en    (English)

    en/en-n- (English, regional)

    en/en-rp (English, regional)

    en/en-sc (English, Scottish)

    en/en-us (English, US)

    en/en-wm (English, regional)

    eo       (Esperanto)

    es       (Spanish)

    es-la    (Spanish, Latin America)

    fi       (Finnish)

    fr       (French)

    hu       (Hungarian)

    it       (Italian)

    kn       (Kannada)

    la       (Latin)

    lv       (Latvian)

    nl       (Dutch)

    pl       (Polish)

    pt       (Portuguese, Brazil)

    pt-pt    (Portuguese, European)

    ro       (Romanian)

    sk       (Slovak)

    sv       (Swedish)

    tr       (Turkish)

    zh       (Mandarin Chinese, Pinyin)

    zh-yue   (Cantonese Chinese, Provisional)

     

    See  mespeak documentation.

     

    Supported browsers: Firefox, Chrome / Opera, Webkit, Safari and Chrome 38.0.2125.509 on Android 4.2.2.

     

     

    Not supported browsers: MS Internet Explorerer.

     

     

     

     

    Installation : 

     

     

     

    package BmTextToSpeak;

    {$R 'bmtexttospeak.dcr'}

    {$R *.res}

     

     

    requires

      designide,

      rtl,

      vcl,

      UniGUI17;   // XE3 , change your delphi version. 

       

                 

                  // XE2  UniGUI16;

                  // XE3  UniGUI17; 

                  // XE4  UniGUI18; 

                  // XE5  UniGUI19; 

                  // XE6  UniGUI20; 

                  // XE7  UniGUI21; 

                  // XE8  UniGUI22; 

     

    contains

      

      BMTextToSpeak in 'BMTextToSpeak.pas';

     

    end. 

      

     

    1) change your delphi version. 

     

    2) Build and Install package. 

     

    3) from release XE4 add Compiler Options   -LUDesignIDE    see : CompilerOptions.png 

     

    3a) compile and Run parla.dpr

     

     

    Good fun !

     

     

    P.S. The file bmtexttospeak.zip is a little big because it contains the folder Voices. 

     

    Regards 

     

     bmtexttospeak.zip  02/09/2015

     

     

    post-1298-0-18741000-1441193572_thumb.png

     

    post-1298-0-43432600-1441193538_thumb.png

     

    Salvatore Marullo

  2. Hi Rav, 

     

     honestly do not understand the problem.
     
    If you want to communicate with a  TCP server  from  a Unigui Application , just add the  Indy component  IdTcpClient to Unigui Form.
     
     
    In my example, I talk to a TCP server that processes a PDF file into a text file and returns to the  Tcp_Client a return code. 
     
     
     
    Function Pdftotext(PdfFilename,TextFilename,pdftotextpgm:string) : integer ;
    begin
        fuserform.Idtcpclient.Host := tcpserver ;
        fuserform.Idtcpclient.Port := TcpPort ;
       
        Fuserform.IdTCPClient.Connect;
        parms := pdftotextpgm + ';' + pdffilename + ';' + textfilename ;
       
     
        Fuserform.IdTCPClient.IOHandler.WriteLn(parms, TIdTextEncoding.Default);
        result :=  strtoint(   Fuserform.IdTCPClient.IOHandler.ReadLn());
     end; 
     
     

    post-1298-0-18195000-1434537012_thumb.png 

     

     

    Let me know if you need an example of the code for the Server-TCP

     

     

     

    Regards

  3. Hi Hazzoa,

     

    I tried with Chrome Version 43.0.2357.81 and working properly.
     
     
    If it works with Firefox and Opera, you have, probably, a problem with Chrome.
     
     
     
    clear the cache of chrome.
     
     
    View the log, and see if there are error messages.
     
    Regards .
  4. Hi Lena, 

     

    I had the same problem.
     
    Two solutions for your case:
     
    1) add to UniEdit3 ClientEvents.ExtEvents.specialkey:
     
     
           if (! (e.shiftKey) && (e.getKey () == 9)) {
     
           e.stopEvent ();
           MainForm.UniBitBtn1.focus (); }
     
    post-1298-0-36321700-1430224033_thumb.png
     
    2) Create a new component Tuniedit
     
         with a new property onBlurControl.
     
         SEE EXAMPLE. 
     
     
     
    Regards 
     
     

     

  5. Hi, 

     

    New Tuniedit with new properties: fieldLabel, labelAlign, labelWidth,  minLength, minLengthTex, TriggersButton.

     

     

    Using this component create alignment problems(if use fieldLabel) with the other components  between Design Time and Run Time.

     

    For the rest seems to work properly.

     

    The alignment between the various components must be calibrated manually.

     

    I wrote it for long time ago, but i not posted it  for the problem described above. 

     

    post-1298-0-72579400-1424686135_thumb.jpg

     

    post-1298-0-56122100-1424686163_thumb.jpg

     

     

     NewEditButon.zip            modified 25/02/2015 

     

     

    Installation:

     

     

    1) change your Delphi version.

     

    package BMUniTriggersButtonEdit;

     

     

     

    requires

      rtl,

      vcl,

      UniGUI18;   // XE4 , change your delphi version.  

                 

                  // XE2  UniGUI16;

                  // XE3  UniGUI17; 

                  // XE4  UniGUI18; 

                  // XE5  UniGUI19; 

                  // XE6  UniGUI20; 

                  // XE7  UniGUI21; 

     

       

     

    contains

      BmUniTriggersButtonEdit in 'BMUniTriggersButtonEdit.pas';

     

     

    end.

     

     

     

    2) Build and Install package.

     

     

     

    3) compile and Run  Triggersdemo.dpr

     

     

    Enjoy!

     

     

     

    Salvatore Marullo.

    • Upvote 2
×
×
  • Create New...