Add Lazarus example for generating subtitles using Silero VAD with non-streaming ASR (#1251)

This commit is contained in:
Fangjun Kuang
2024-08-15 22:19:45 +08:00
committed by GitHub
parent 97a6a2a16a
commit fbe35ba736
32 changed files with 1697 additions and 14 deletions

View File

@@ -0,0 +1,26 @@
program generate_subtitles;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cthreads,
cmem,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, unit1, my_worker
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.