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

Synthesizes text to audio that is spoken in the specified voice.

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

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;
numReplaced: Integer;
textToSynthesize: WideString;
bdResponseBody: TChilkatBinData;
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;

// 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?accept=ACCEPT_TYPE&voice=CHOSEN_VOICE&text=TEXT_TO_SYNTHESIZE');

// Choose "audio/wav" for the output file type.
numReplaced := sbUrl.Replace('ACCEPT_TYPE',http.UrlEncode('audio/wav'));
// See the choices for voices at https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get
numReplaced := sbUrl.Replace('CHOSEN_VOICE','en-US_MichaelVoice');
textToSynthesize := 'When life gives you lemons, order the lobster tail.';
numReplaced := sbUrl.Replace('TEXT_TO_SYNTHESIZE',http.UrlEncode(textToSynthesize));

// Send the GET to synthesize the voice.
// The response file will be contained in bdResponseBody
bdResponseBody := TChilkatBinData.Create(Self);
success := http.QuickGetBd(sbUrl.GetAsString(),bdResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;
respStatusCode := http.LastStatus;
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));

if (respStatusCode = 200) then
  begin
    success := bdResponseBody.WriteFile('qa_output/lobster.wav');
    Memo1.Lines.Add('Success!');
  end
else
  begin
    Memo1.Lines.Add(bdResponseBody.GetString('utf-8'));
  end;
end;