EngineX-Iluvatar/enginex-mr_series-sherpa-onnx
Archived
16
0
Fork 0
Code Issues Pull Requests Actions Projects Releases Wiki Activity

Add Pascal API for Kokoro TTS 1.0 (#1807)

Browse Source
This commit is contained in:
Fangjun Kuang
2025-02-07 16:06:11 +08:00
committed by GitHub
parent 35f5ff3166
commit c254504921
7 changed files with 407 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
sherpa-onnx/pascal-api/sherpa_onnx.pas
View File

@@ -82,6 +82,8 @@ type
Tokens: AnsiString;
DataDir: AnsiString;
LengthScale: Single;
DictDir: AnsiString;
Lexicon: AnsiString;
function ToString: AnsiString;
class operator Initialize({$IFDEF FPC}var{$ELSE}out{$ENDIF} Dest: TSherpaOnnxOfflineTtsKokoroModelConfig);
@@ -757,6 +759,8 @@ type
Tokens: PAnsiChar;
DataDir: PAnsiChar;
LengthScale: cfloat;
DictDir: PAnsiChar;
Lexicon: PAnsiChar;
end;
SherpaOnnxOfflineTtsModelConfig = record
@@ -1931,9 +1935,12 @@ begin
'Voices := %s, ' +
'Tokens := %s, ' +
'DataDir := %s, ' +
'LengthScale := %.2f' +
'LengthScale := %.2f, ' +
'DictDir := %s, ' +
'Lexicon := %s' +
')',
[Self.Model, Self.Voices, Self.Tokens, Self.DataDir, Self.LengthScale]);
[Self.Model, Self.Voices, Self.Tokens, Self.DataDir, Self.LengthScale,
Self.DictDir, Self.Lexicon]);
end;
class operator TSherpaOnnxOfflineTtsKokoroModelConfig.Initialize({$IFDEF FPC}var{$ELSE}out{$ENDIF} Dest: TSherpaOnnxOfflineTtsKokoroModelConfig);
@@ -2010,6 +2017,8 @@ begin
C.Model.Kokoro.Tokens := PAnsiChar(Config.Model.Kokoro.Tokens);
C.Model.Kokoro.DataDir := PAnsiChar(Config.Model.Kokoro.DataDir);
C.Model.Kokoro.LengthScale := Config.Model.Kokoro.LengthScale;
C.Model.Kokoro.DictDir := PAnsiChar(Config.Model.Kokoro.DictDir);
C.Model.Kokoro.Lexicon := PAnsiChar(Config.Model.Kokoro.Lexicon);
C.Model.NumThreads := Config.Model.NumThreads;
C.Model.Provider := PAnsiChar(Config.Model.Provider);