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

sherpa-onnx/csrc/wave-reader.cc

@@ -224,8 +224,6 @@ std::vector<float> ReadWaveImpl(std::istream &is, int32_t *sampling_rate,
     // header.subchunk2_size contains the number of bytes in the data.
     // As we assume each sample contains two bytes, so it is divided by 2 here
     std::vector<int16_t> samples(header.subchunk2_size / 2);
-    SHERPA_ONNX_LOGE("%d samples, bytes: %d", (int)samples.size(),
-                     header.subchunk2_size);
 
     is.read(reinterpret_cast<char *>(samples.data()), header.subchunk2_size);
     if (!is) {

sherpa-onnx/pascal-api/sherpa_onnx.pas

@@ -309,19 +309,50 @@ uses
   SysUtils;
 
 const
-  {See https://www.freepascal.org/docs-html/prog/progap7.html}
+  {
+  See
+   - https://www.freepascal.org/docs-html/prog/progap7.html
+   - https://downloads.freepascal.org/fpc/docs-pdf/
+   - https://downloads.freepascal.org/fpc/docs-pdf/CinFreePascal.pdf
+  }
 
   {$IFDEF WINDOWS}
-    SherpaOnnxLibName = 'sherpa-onnx-c-api.dll';
-  {$ENDIF}
+   { For windows, we always use dynamic link. See
+     https://forum.lazarus.freepascal.org/index.php/topic,15712.msg84781.html#msg84781
+     We need to rebuild the static lib for windows using Mingw or cygwin
+   }
+     SherpaOnnxLibName = 'sherpa-onnx-c-api.dll';
+  {$ELSE}
+     {$IFNDEF SHERPA_ONNX_USE_SHARED_LIBS}
+       {static link for linux and macos}
+       {$linklib sherpa-onnx-c-api}
+       {$linklib sherpa-onnx-core}
+       {$linklib kaldi-decoder-core}
+       {$linklib sherpa-onnx-kaldifst-core}
+       {$linklib sherpa-onnx-fstfar}
+       {$linklib sherpa-onnx-fst}
+       {$linklib kaldi-native-fbank-core}
+       {$linklib piper_phonemize}
+       {$linklib espeak-ng}
+       {$linklib ucd}
+       {$linklib onnxruntime}
+       {$linklib ssentencepiece_core}
 
-  {$IFDEF DARWIN}
-    SherpaOnnxLibName = 'sherpa-onnx-c-api';
-    {$linklib sherpa-onnx-c-api}
-  {$ENDIF}
+       {$IFDEF LINUX}
+         {$linklib m}
+         {$LINKLIB stdc++}
+         {$LINKLIB gcc_s}
+       {$ENDIF}
 
-  {$IFDEF LINUX}
-    SherpaOnnxLibName = 'libsherpa-onnx-c-api.so';
+       {$IFDEF DARWIN}
+         {$linklib c++}
+       {$ENDIF}
+       SherpaOnnxLibName = '';
+     {$ELSE}
+      {dynamic link for linux and macos}
+      SherpaOnnxLibName = 'sherpa-onnx-c-api';
+      {$linklib sherpa-onnx-c-api}
+    {$ENDIF}
   {$ENDIF}
 
 type
@@ -621,10 +652,17 @@ var
   PWave: PSherpaOnnxWave;
   I: Integer;
 begin
+  Result.Samples := nil;
+  Result.SampleRate := 0;
+
   PFilename := PAnsiChar(Filename);
+
   PWave := SherpaOnnxReadWaveWrapper(PFilename);
 
-  Result.Samples := nil;
+  if PWave = nil then
+    Exit;
+
+
   SetLength(Result.Samples, PWave^.NumSamples);
 
   Result.SampleRate := PWave^.SampleRate;