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

[TUberwer]

Привет ALL
Нашел код одной функции и код вызова этой функции.
Вот сама функция

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;

С ней все ок.
Вот код вызова этой функции(код был дан на сайте с функцией)

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

Цитата с сайта с кодом

где
Stream — это поток TFileStream в который мы читаем наш записанный файл в формате FLAC.
StrList — это TStringList с ответом от Google.

В общем сделал вызов этой функции, но вот такая ошибка

PHP код:

[Error] Unit1.pas(130): Undeclared identifier: 'Stream' 


Помогите исправить=)

[Аватар]

Показуй полностью как вызываешь. Скорее всего Stream не описан и не создан. Наверно и StrList

[TUberwer]

Да, Stream и StrList не созданы и не описаны, могли бы вы помочь с кодом?
Как именно мне их создать и описать? Или просто это переменные String в которые заносится текст?

[cotseec]

Сообщение от TUberwer

Да, Stream и StrList не созданы и не описаны, могли бы вы помочь с кодом?
Как именно мне их создать и описать? Или просто это переменные String в которые заносится текст?

вызвать их конструкторы и не забыть уничтожить после

Stream := TStream.Create;
StrList := TStringList.Create; (НЕ TStrings)

предварительно объявить переменные

Stream: TStream;
StrList: TStringList;

[Пепел Феникса]

Сообщение от TUberwer

Да, Stream и StrList не созданы и не описаны, могли бы вы помочь с кодом?
Как именно мне их создать и описать? Или просто это переменные String в которые заносится текст?

простите, вы Делфи вообще знаете?
переменные не умеете объявлять? объекты создавать?
в вашей цитате есть же и имена и типы переменных.

в этой функции нет переменной с именем Stream, банально букву пропустили -TStream

там Stream это имя переменной, а не имя типа.

вызвать их конструкторы

TStream создавать нельзя, это абстрактный класс.
далее,почему упущено присвоение объектов переменным?

[cotseec]

TStream создавать нельзя, это абстрактный класс.

про TStream - верно, лучше TMemoryStream

[Пепел Феникса]

Сообщение от cotseec

про TStream - верно, лучше TMemoryStream

зависит от того куда грузить нужно.
нет тут понятия лучше.

[TUberwer]

т.е вот такой код должен получится?
Этот код не работает, вот при нажатии на Button3

procedure TForm1.Button3Click(Sender: TObject);
var
sound : String;
Stream: TStream;
StrList: TStringList;
begin
Stream := TStream.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('test'), Stream, StrList);
Form1.Panel1.Caption := 'Success';
Stream.Free;
StrList.Free;
end;

Вот эта статья http://habrahabr.ru/post/144535/ (не реклама)

[cotseec]

тут без разницы
ТС пытается отослать в гугл файл для распознавания, в функцию он передает в том числе поток, в который уже загружен файл, а что TFileStream, что TMEmoryStream может загрузить из файла, учитывая размеры отправляемого файла (максимум 1 МБ) - разницы нет

[Пепел Феникса]

Сообщение от TUberwer

т.е вот такой код должен получится?

procedure TForm1.Button3Click(Sender: TObject);
var
sound : String;
Stream: TStream;
StrList: TStringList;
begin
Stream := TStream.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('test'), Stream, StrList);
Form1.Panel1.Caption := 'Success';
Stream.Free;
StrList.Free;
end;

Вот эта статья http://habrahabr.ru/post/144535/ (не реклама)

я только что говорил что TStream создавать нельзя, так как это абстрактный класс, применяйте или TMemoryStream если ответ должен быть загружен в память, или же в файл, то тогда TFileStream.
тип переменной менять не обязательно, нужно менять тип создаваемого объекта.

или не ответ, а запрос, я код особо не читал.