Delphi DLL

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

See more IBM Text to Speech Examples

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
myBaseUrl: PWideChar;
sbUrl: HCkStringBuilder;
numReplaced: Integer;
textToSynthesize: PWideChar;
bdResponseBody: HCkBinData;
respStatusCode: Integer;

begin
success := False;

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

http := CkHttp_Create();

CkHttp_putLogin(http,'apikey');
CkHttp_putPassword(http,'my_apikey');
CkHttp_putBasicAuth(http,True);

// 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 := CkStringBuilder_Create();
CkStringBuilder_Append(sbUrl,myBaseUrl);
CkStringBuilder_Append(sbUrl,'/v1/synthesize?accept=ACCEPT_TYPE&voice=CHOSEN_VOICE&text=TEXT_TO_SYNTHESIZE');

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

// Send the GET to synthesize the voice.
// The response file will be contained in bdResponseBody
bdResponseBody := CkBinData_Create();
success := CkHttp_QuickGetBd(http,CkStringBuilder__getAsString(sbUrl),bdResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;
respStatusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));

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

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbUrl);
CkBinData_Dispose(bdResponseBody);

end;