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

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

For more information, see https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
http: TChilkatHttp;
success: Integer;
myBaseUrl: WideString;
sbUrl: TChilkatStringBuilder;
json: TChilkatJsonObject;
resp: IChilkatHttpResponse;
respStatusCode: Integer;

begin
// 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.');

resp := http.PostJson3(sbUrl.GetAsString(),'application/json',json.ControlInterface);
if (http.LastMethodSuccess = 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;