Delphi ActiveX

IBM Cloud - Text to Speech - Synthesize Audio (POST)

See more IBM Text to Speech Examples

Synthesizes text to audio that is spoken in the specified voice. Uses a POST which allows for more text to be synthesized. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
myBaseUrl: WideString;
sbUrl: TChilkatStringBuilder;
json: TChilkatJsonObject;
url: WideString;
resp: TChilkatHttpResponse;
respStatusCode: Integer;

begin
success := 0;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

http.Login := 'apikey';
http.Password := 'my_apikey';
http.BasicAuth := 1;

// Send the following request:

// curl -X POST -u "apikey:{apikey}" 
//    --header "Content-Type: application/json" 
//    --header "Accept: audio/wav" 
//    --data "{\"text\":\"When life gives you lemons, order the lobster tail.\"}" 
//    --output lobster.wav "{url}/v1/synthesize?voice=en-US_AllisonV3Voice"

// Use your base URL shown in the credentials web page (below your apikey)
myBaseUrl := 'https://api.us-south.text-to-speech.watson.cloud.ibm.com/instances/31941e96-7b89-4d56-8993-9cd8f18ec2d8';

sbUrl := TChilkatStringBuilder.Create(Self);
sbUrl.Append(myBaseUrl);
sbUrl.Append('/v1/synthesize?voice=en-US_AllisonV3Voice');

http.Accept := 'audio/wav';

json := TChilkatJsonObject.Create(Self);
json.UpdateString('text','When life gives you lemons, order the lobster tail.');

url := sbUrl.GetAsString();
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST',url,json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));

if (respStatusCode = 200) then
  begin
    success := resp.SaveBodyBinary('qa_output/lobster.wav');
    Memo1.Lines.Add('Success!');
  end
else
  begin
    Memo1.Lines.Add(resp.BodyStr);
  end;
end;