請問
我要做一個speech to text的功能
打算用Microsoft 的 bing speech處理
現在已經連好token
目前遇到的問題是
怎麼取得語音 上傳語音至API 轉為文字 回傳下來

不好意思
因為這個課題卡了很久 也上網爬過很多文 還是沒有處理的方法
只好上來問
還請大家多多幫忙
Delphi新手

------
yuchieh

Berlin VCL跟FMX測試都OK

[code delphi]
const
C_URL = 'https://speech.platform.bing.com/speech/recognition/interactive/cognitiveservices/v1';
var
MS : TMemoryStream;
SS: TStringStream;
FileName: string;
URL: string;
begin
FileName := 'D:\TEST.wav';
if not FileExists(FileName) then exit;
MS:= TMemoryStream.Create;
MS.LoadFromFile(FileName);
URL := C_URL '?language=zh-TW&locale=zh-TW&format=simple&requestid=MyAPP'; //requestid隨便打
IdHttp1.Request.Accept := 'application/json; text/xml';
IdHttp1.Request.ContentType := 'audio/wav; codec: ''audio/pcm''; samplerate=16000';
IdHTTP1.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' access_token;
SS := TStringStream.Create('', TEncoding.UTF8); //回傳有中文
IdHTTP1.Post(URL, MS, SS);
Showmessage(SS.DataString);
SS.Free;
MS.Free;
end;
[/code]