Вот такая реализация, получается, ошибочна
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 | HTTP:= THTTPSend . Create;
try
FS := TFileStream . Create( 'speech.wav' , fmOpenRead);
HTTP . MimeType := 'audio/x-wav' ;
FS . Position := 0 ;
HTTP . Document . CopyFrom(FS, FS . Size);
if HTTP . HTTPMethod( 'POST' , url) then
ServerAnswerResultField . Lines . LoadFromStream(HTTP . Document);
finally
FS . Free;
HTTP . Free;
end ;
|
А что исправить, непонятно