Отсылать аудио файл на распознавание и принимать ответ от гугла

[TUberwer]

И последний глупый вопрос в этой теме:
В статье код:

HTTPPostFile('https://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU', sound, ExtractFilename(OutFileName), Stream, StrList);

И я не очень понял что вставить в OutFileName... Тут должен быть путь к отправляемому файлу, или что? За что отвечает это ExtractFilename(OutFileName)?
И какое значение там нужно ставить для отправки в https://www.google.com/speech-api/v1...ium&lang=ru-RU ?

[Человек_Борща]

Можете THTTPSendEx попробовать. Там реализован нормальный TMultiparformDataStream(как в Indy, но не для инди а для синапсов) и всяческие удобные вариации POST/GET запросов.

Все упрощается до:

var
 HTTP:THTTPSendEx;
 myFile:TMultipartformdataStream;
begin
  HTTP:=THTTPSendEx.Create;
 myFile:=TMultipartFormDataStream.Create;
 try
 myFile.AddFile('FileName','ПУТЬ К ФАЙЛУ');
 myFile.DataEnd;
 if HTTP.Post('http://лолчто.рф',myFile,sHTMLCode) then
 begin
   //Запрос на сервер прошел, можно проверять ReturnCode/ResponseCode
   //В sHTMLCode - возвращается исходный код страницы ответа на файл.
 end;
 finally
  FreeAndNil(HTTP);
  FreeAndNil(myFile);
 end;
end;

[TUberwer]

Всем привет,
Вот нашел статью (http://habrahabr.ru/post/144535)
В ней описано как можно отсылать аудио файл на распознавание, и принимать ответ от гугла.
Вот сама функция отправки:

function HTTPPostFile(Const URL, FieldName, FileName: String; Const Data: TStream; Const ResultData: TStrings): Boolean;
const
  CRLF = #$0D + #$0A;
var
  HTTP: THTTPSend;
  Bound, Str: String;
begin
  Bound := IntToHex(Random(MaxInt), 8) + '_Synapse_boundary';
  HTTP := THTTPSend.Create;
  try
    Str := '--' + Bound + CRLF;
    Str := Str + 'content-disposition: form-data; name="' + FieldName + '";';
    Str := Str + ' filename="' + FileName + '"' + CRLF;
    Str := Str + 'Content-Type: audio/x-flac; rate=8000' + CRLF + CRLF;
    HTTP.Document.Write(Pointer(Str)^, Length(Str));
    HTTP.Document.CopyFrom(Data, 0);
    Str := CRLF + '--' + Bound + '--' + CRLF;
    HTTP.Document.Write(Pointer(Str)^, Length(Str));
    HTTP.MimeType := 'audio/x-flac; rate=8000, boundary=' + Bound;
    Result := HTTP.HTTPMethod('POST', URL);
    ResultData.LoadFromStream(HTTP.Document);
  finally
    HTTP.Free;
  end;
end;

Вот по нажатию кнопки я вызываю функцию

procedure TForm1.Button3Click(Sender: TObject);
var
sound : String;
Stream: TMemoryStream;
StrList: TStringList;
begin
Stream := TMemoryStream.Create;
StrList := TStringList.Create;
sound := ExtractFilePath(ParamStr(0))+'sound.flac';
HTTPPostFile('https://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU', sound, ExtractFilename(OutFileName), Stream, StrList);
Form1.Panel1.Caption := 'Success';
Stream.Free;
StrList.Free;
end;

Но выдает ошибку в этой строчке, говорит что не объявлен OutFileName, вот что нужно вставить в OutFileName? что там должно быть написано? за что эта надпись отвечает?

HTTPPostFile('https://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU', sound, ExtractFilename(OutFileName), Stream, StrList);

И еще вопрос, в статье

StrList — это TStringList с ответом от Google.

То есть этой командой можно будет ответ от гугл вывести в memo?

Form1.Memo1.Line.Text := StrList.Text;

[TUberwer]

UPаю, ответа пока нету(

[Человек_Борща]

Google Speech API не документирован, однако его можно выжать из исходников Chromium. Удачи.