POST запрос

@Vovik_0_1 · Регистрация: 28.07.2011

Студворк — интернет-сервис помощи студентам

Привет всем. Помогите отправит POST запрос. Нужно отправить файл flac в google speech api.. Вот рабочий пример: отправляет скрипт на Python.

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/local/bin/python
 
import urllib2
import sys
 
 
key = "JHF7667F&FYFUR3JItUPgFp6bcPqgJz8h8tI"
url = "https://www.google.com/speech-api/v2/recognize?output=json&lang=ru-ru&key="+key
 
filename = r'C:\2.flac'
 
 
audio = open(filename,'rb').read()
 
headers={'Content-Type': 'audio/x-flac; rate=44100'}
 
request = urllib2.Request(url, data=audio, headers=headers)
response = urllib2.urlopen(request)
st = response.read().decode('utf-8')
print st

Вот есть старый пример на Delphy возможно уже не рабочий..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function TMainForm.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;

Нужно реализовать это на C++builder.. У меня есть мысли но так не работает((

C++
1
2
3
4
5
6
7
8
9
10
11
12
     TStringList *s = new TStringList;
TMemoryStream *fs = new TMemoryStream();
s->Clear();
s->Add("C:\\2.flac");
s->Add("Content-Type': 'audio/x-flac; rate=44100");
//ActivePage(1);
IdHTTP1->HandleRedirects=true;
IdHTTP1->Post("https://www.google.com/speech-api/v2/recognize?output=json&lang=ru-ru&key=JHF7667F&FYFUR3JItUPgFp6bcPqgJz8h8tI",s,fs);
fs->SaveToFile("in.txt");
 
delete s;
delete fs;

Добавлено через 12 часов 34 минуты
Неужели никто не знает?

@gunslinger · 14.11.2014, 00:10

Попробуй использовать TIdMultiPartFormDataStream и его методы AddFile / AddFormField.
Вот пример использования (код старый, использовал free вместо delete в конце):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
AnsiString UploadPicture(AnsiString path, int site)
{
TIdMultiPartFormDataStream *MPS = new TIdMultiPartFormDataStream;
TIdHTTP *HTTPtemp = new TIdHTTP(NULL);
HTTPtemp->HandleRedirects = 1;
TRichEdit *RichEdittemp = new TRichEdit(Form1);
RichEdittemp->Visible = 0;
RichEdittemp->Parent = Form1;
RichEdittemp->ScrollBars = ssBoth;
RichEdittemp->WordWrap = 0;
int I, PosReturn;
AnsiString result;
 
switch (site)
{
// ***********
case 1:
MPS->AddFile("file1", path, ""); // если написать "multipart/form-data" вместо "", то выскочит ошибка "Вы не загрузили файлы"
MPS->AddFormField("check_thumb", "no");
MPS->AddFormField("uploading", "1");
RichEdittemp->Text = HTTPtemp->Post("http://***********/upload?api=1", MPS);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("<imagepath>");
if (PosReturn) //found!
break;
}
if (PosReturn > 0)
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+11, RichEdittemp->Lines->Strings[I].Pos("</imagepath>")-PosReturn-11);
else
result = "Ошибка загрузки.";
break;
 
// radikal.cc
case 2:
MPS->AddFile("Filedata", path, "multipart/form-data"); // или image/jpeg для jpg
MPS->AddFormField("Filename", path); // можно и ExtractFileName()
MPS->AddFormField("ISPUBLIC", "0");
MPS->AddFormField("IDALBUM", "noall");
MPS->AddFormField("RESPTYPE", "xml");
MPS->AddFormField("FROMOBJECT", "22");
MPS->AddFormField("MAXSIZEIMG", "1024");
MPS->AddFormField("MAXSIZEIMGPREV", "180");
// MPS->AddFormField("ISINSCRIMGPREV", "0");
// MPS->AddFormField("INSCRIMGPREV", "Увеличить"); // = "РЈРІРµР»РёС‡РёС‚СЊ"
// MPS->AddFormField("COMMENTIMG", "");
// MPS->AddFormField("URLFORIMG", "");
// MPS->AddFormField("TAGS", "");
 
RichEdittemp->Text = HTTPtemp->Post("http://radikal.cc/api3/rest/uplimg/prepared", MPS);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("<ImgUrl>");
if (PosReturn) //found!
break;
}
if (PosReturn > 0)
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+8, RichEdittemp->Lines->Strings[I].Pos("</ImgUrl>")-PosReturn-8);
else
result = "Ошибка загрузки.";
break;
 
// wc3parser.com/imgupload/
case 3:
MPS->AddFile("filename", path, "multipart/form-data");
MPS->AddFormField("submit", "Upload");
RichEdittemp->Text = HTTPtemp->Post("http://www.wc3parser.com/imgupload/", MPS);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("[IMG]");
if (PosReturn) //found!
break;
}
if (PosReturn > 0)
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/IMG]")-PosReturn-5);
else
result = "Ошибка загрузки.";
break;
 
// imgs.su
case 4:
MPS->AddFile("file", path, "multipart/form-data");
MPS->AddFormField("quality", "100");
RichEdittemp->Text = HTTPtemp->Post("http://imgs.su", MPS);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("[img]");
if (PosReturn) //found!
break;
}
if (PosReturn > 0)
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/img]")-PosReturn-5);
else
result = "Ошибка загрузки.";
break;
 
// fotolink.su
case 5:
MPS->AddFile("image", path, "multipart/form-data");
RichEdittemp->Text = HTTPtemp->Post("http://fotolink.su/upload_file.php", MPS);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("[img]");
if (PosReturn) //found!
break;
}
 
if (PosReturn > 0)
{
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/img]")-PosReturn-5);
result = AnsiReplaceText(result, "pic_s", "pic_m");
}
else
result = "Ошибка загрузки.";
break;
 
// imageshack.us
case 6:
MPS->AddFile("fileupload", path, ""); // image/jpeg
MPS->AddFormField("uploadtype", "on");
MPS->AddFormField("key", "BXT1Z35V8f6ee0522939d8d7852dbe67b1eb9595");
MPS->AddFormField("rembar", "0");
MPS->AddFormField("a_username", "");
MPS->AddFormField("a_password", "");
RichEdittemp->Text = HTTPtemp->Post("http://imageshack.us/upload_api.php", MPS);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("<image_link>");
if (PosReturn) //found!
break;
}
if (PosReturn > 0)
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+12, RichEdittemp->Lines->Strings[I].Pos("</image_link>")-PosReturn-12);
else
result = "Ошибка загрузки.";
break;
 
// ipicture.ru
case 7:
MPS->AddFile("userfile", path, "multipart/form-data"); // image/jpeg
MPS->AddFormField("method", "file");
MPS->AddFormField("orig_resize_on", "0");
MPS->AddFormField("rotate", "0");
// MPS->AddFormField("string_big_on", "0");
MPS->AddFormField("optimize", "on");
MPS->AddFormField("ignorAllCheck", "0");
MPS->AddFormField("galleries", "12");
MPS->AddFormField("status", "on");
MPS->AddFormField("quality", "100");
// MPS->AddFormField("thumb_resize_on", "0");
// MPS->AddFormField("thumb_resize", "180");
// MPS->AddFormField("ramka_off", "0");
// MPS->AddFormField("string_small_on", "0");
 
HTTPtemp->Post("http://ipicture.ru/Upload", MPS);
// RichEdittemp->Text = HTTPtemp->Get(HTTPtemp->Response->RawHeaders->ValueFromIndex[HTTPtemp->Response->RawHeaders->IndexOfName("Refresh")]);
RichEdittemp->Text = HTTPtemp->Get(HTTPtemp->Response->RawHeaders->Values["Refresh"]);
 
for (I = 0; I < RichEdittemp->Lines->Count; I++)
{
PosReturn = RichEdittemp->Lines->Strings[I].Pos("[IMG]");
if (PosReturn) //found!
break;
}
if (PosReturn > 0)
result = MidStr(RichEdittemp->Lines->Strings[I], PosReturn+5, RichEdittemp->Lines->Strings[I].Pos("[/IMG]")-PosReturn-5);
else
result = "Ошибка загрузки.";
break;
 
default:
// ShowMessage("Не выбран сайт для загрузки изображений.")
;
}
 
MPS->Free();
HTTPtemp->Free();
RichEdittemp->Free();
return result;
}

Также проблема может вылезать из-за https (в отличие от "простого" http). Подробности решения уже не вспомню, надеюсь, более умные и с хорошей памятью товарищи подскажут при необходимости.

@Avazart · 14.11.2014, 11:55

Я как понимаю BCB6, Билдер менять надо на новый.

@krv · 14.11.2014, 14:58

Аха.. я тоже не смог прикрутить Инди 10 на билдер 6....
а в ХЕ (у меня ХЕ4) нормально работает то что тут на форуме бродит как примеры из темы в тему...

@Vovik_0_1 · 15.11.2014, 19:15 **[ТС]**

попробовал во так:

C++
1
2
3
4
5
6
7
8
9
10
    TIdMultiPartFormDataStream *MPS = new TIdMultiPartFormDataStream;
    TStringList *list = new TStringList();
    MPS->AddFile("userfile","E:\\1.flac");
    //MPS->AddFormField()
    IdHTTP1->Request->ContentType = "audio/x-flac; rate=44100;" ;
    list->Text = IdHTTP1->Post("https://www.google.com/speech-api/v2/recognize?output=json&lang=ru-ru&key=AIzaSyAqk7vE0vQDR3JItUPgFp6bcPqgJz8h8tI",MPS);
 
    Memo1->Lines->Text = list->Text;
    delete MPS;
    delete list;

Не работает(( Выдает ошибку

First chance exception at $7607B9BC. Exception class EIdSocketError with message
'Socket Error # 10054
Connection reset by peer.'.
Process Project1.exe (2104)

Добавлено через 3 минуты
Кстати вот тоже рабочий пример отправки этого запроса прогой Curl на системе Unix..

curl -X POST \
--data-binary @audio/good-morning-google.flac \
--header 'Content-Type: audio/x-flac; rate=44100;' \
'https://www.google.com/speech-api/v2/recognize?output=json&lang=en-us&key=yourkey'

Добавлено через 6 часов 59 минут
Есть у кого мысли?

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	14.11.2014, 11:55
	Я как понимаю BCB6, Билдер менять надо на новый. 0

@krv 74 / 54 / 17 Регистрация: 10.07.2014 Сообщений: 329
	14.11.2014, 14:58
	Аха.. я тоже не смог прикрутить Инди 10 на билдер 6.... а в ХЕ (у меня ХЕ4) нормально работает то что тут на форуме бродит как примеры из темы в тему... 0